Einzelnen Beitrag anzeigen

Benutzerbild von smallsmoker
smallsmoker

Registriert seit: 12. Nov 2007
Ort: Duisburg
283 Beiträge
 
#16

Re: Keylogger und diakritische Zeichen

  Alt 30. Apr 2008, 00:52
hm habe jetzt ne nette funktion der schweizer gefunden die aktuelle Fenster Caption herausfinden
nur weiß ich nicht genau wie ich dies in das LogKeyPress event einfügen soll ...
er soll ja nur in den log schreiben wenn sich das fenster ändert ..
momentan sieht der inhalt des events bei mir so aus:
Delphi-Quellcode:
procedure TMainForm.LogKeyPress(Sender: TObject; Key: Char);
var aktuellesfensterhandle : integer;
begin
if (aktuellesfensterhandle <> GetForegroundWindow) then
memo1.Lines.Add(activecaption);
Memo1.SelText:= Key;
aktuellesfensterhandle := GetForegroundWindow;
end;
was leider dazü führt bsp.:

Zitat:
Ausführen
h
Ausführena
Ausführenl
Ausführenl
Ausführeno
Unbenannt - Editorh
Unbenannt - Editora
Unbenannt - Editorl
Unbenannt - Editorl
Unbenannt - Editoro
was eigentlich so aussehen sollte.:

Ausführen
hallo

Unbenannt - Editor
hallo

ändert sich ständig das fenster im vordergrund ? oder hab ich da nen denkfehler ..

mfg smallmoker
  Mit Zitat antworten Zitat