Delphi: ked je neaktivne okno

KViki · Napísal **KViki**: 01.08.2009 16:01

Potrebujem aby program v delphi zaznamenaval vsetko aj ked je neaktivny.
Napr.: aj ked mam aktivne ine okno tak a stalcim klavesu tak mi ju program zaregistruje. neviem ci ma chapate. ?!

Fico · Napísal **Fico**: 01.08.2009 18:28

Ak ide len čisto o zaznamenanie stlačených klávesov, tak najideálnejšie to bude za pomoci hákov (hooks).

Vytvor si DLL:

Kód:

library Project1;

uses
  SysUtils,
  Classes,
  Windows,
  Dialogs;

{$R *.res}

var
 hHak: HHOOK;

function OdchytenieKlavesu(kodHaku: integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin

  if ((lParam and $80000000) = 0) then
    ShowMessage(IntToStr(wParam));

  Result:= CallNextHookEx(hHak, kodHaku, wParam, lParam);

end;

procedure PridajHak();
begin

  hHak:= SetWindowsHookEx(WH_KEYBOARD, @OdchytenieKlavesu, HINSTANCE, 0);

end;

procedure OdstranHak();
begin

  UnhookWindowsHookEx(hHak);

end;


exports PridajHak, OdstranHak;


begin
end.

Vytvor si projekt:

Kód:

var
  Form1: TForm1;

procedure PridajHak; external 'Project1.dll';
procedure OdstranHak; external 'Project1.dll';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

  PridajHak();

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin

  OdstranHak();

end;

Knižnica nech je samozrejme v zložke s aplikáciou a nech sa volá Project1.dll (alebo si prepíš názov pri importovaní funkcií). Po každom stlačení klávesu sa v dialógu zobrazí ASCII stlačeného klávesu.

feromakovi · Napísal **feromakovi**: 02.08.2009 0:41

v záujme toho aby som nemusel program distribuovať s knižnicou DLL tak som to skúsil prerobiť takto:

Kód:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hHak: HHOOK;
  txt:TextFile;


implementation

{$R *.dfm}
function OdchytenieKlavesu(kodHaku: integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin

  if ((lParam and $80000000) = 0) then showmessage(chr(wParam));

  Result:= CallNextHookEx(hHak, kodHaku, wParam, lParam);

end;

procedure PridajHak();
begin

  hHak:= SetWindowsHookEx(WH_KEYBOARD, @OdchytenieKlavesu, HINSTANCE, 0);

end;

procedure OdstranHak();
begin

  UnhookWindowsHookEx(hHak);

end;



procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile(txt,'skuska.txt');
rewrite(txt);
PridajHak();
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   OdstranHak();
   closefile(txt);
end;

end.

lenže robí to teraz také somariny:
Delphi: ked je neaktivne okno

tiež som hľadal nejakú možnosť ako spraviť keylogger ale no neviem asi toto nebude princíp na ktorom sú založené keyloggery

Fico · Napísal **Fico**: 02.08.2009 8:10

Ehm

Citácia:

Ak špecifikujete globálny hák, musí sa funkcia háku nachádzať v DLL knižnici ...

Globálne háky nie sú WH_JOURNALRECORD a WH_JOURNALPLAYBACK - my sme použili WH_KEYBOARD, takže DLL je nevyhnutná.

KViki · Napísal autor témy **KViki**: 02.08.2009 11:47

No aj ja som premyslal ako spravit keylogger,. ale to neni primarne., Chcel som spravit multiClipBoard. Zistujem ze to nebude take jednoduche., :|

feromakovi · Napísal **feromakovi**: 02.08.2009 13:00

no našiel som na nete toto:

Kód:

http://mo4x.wordpress.com/2007/03/30/simple-keylogger-in-delphi/

je to presne ako písal Fico

že v tom čo on ukázal zdroják tak tam je použité:WH_KEYBOARD a v tom čo som našiel j tam je WH_JOURNALRECORD

...absolútne neviem čo to je ale aspoň viem čo si môžem pozrieť a naučiť sa...myslím tie háky

a mimochodom ten keylogger na tej stránke vyššie funguje už som ho aj skúšal len osobne som ho trošku preroobil aby som nemusel stláčať ten speedbutton a prekrásne funguje aj keď skryjem form takto:

Kód:

Application.ShowMainForm := False;

to som dal do oncreate a není program ani v lište ani v tray len v taskbare a z teda sa dá vymazať

Delphi: ked je neaktivne okno

Podobné témy