Hallo,
ich habe vor eine Art Makro-Rekorder zu schreiben, um einen Prozess sehr oft automatisch hintereinander ausführen zu lassen.
Hab mich hier im Forum etwas schlau gelesen und verwende zum Abfragen der Tastatur key hooks (siehe Quelltext unten).
Wenn ich etwas im Text-Editor schreibe werden die Buchstaben ganz normal geloggt. Wenn ich jedoch etwas in mozilla eingebe, dann werden die Buchstaben doppelt geloggt. Beim schreiben im Mailfenster von Outlook sogar vierfach.
Kann mir jemand sagen, wie ich diese Problem in Griff bekomme?
Hier mein Quelltext:
Delphi-Quellcode:
function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var s:string;
begin
//es ist ebenfalls moeglich die Bearbeitung an eine Bedingung zu knuepfen
Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
case nCode < 0 of
TRUE: exit; //wenn code kleiner 0 wird nix gemacht
FALSE:
begin
//Hier kann jetzt alles bearbeitet werden
if (lParam and (1 SHL 31) <> 0) then begin
s:=GetCharFromVirtualKey(wParam);
AppendStringToFile(s,filename);
end;
end;
end;
end;