Danke für eure antworten...
@RavenIV, Phoenix: Stimmt das sind gute Ideen. Wie ich es letztendlich mache gucke ich mal
Ich würd aber trotzdem gerne versuchen das Programm hinzubekommen.(ehrgeiz
)
Hab jetzt folgendes in meine Projekt stehen:
Delphi-Quellcode:
procedure TF_Netz_Server.FormCreate(Sender: TObject);
begin
lib := LoadLibrary('Keyboardhook.dll');
if lib <> INVALID_HANDLE_VALUE then begin
InstallHook := GetProcAddress(lib, 'InstallHook');
UnInstallHook := GetProcAddress(lib, 'UninstallHook');
end; // else ERROR
InstallHook(self.Handle);
end;
procedure TF_Netz_Server.FormDestroy(Sender: TObject);
begin
freelibrary(lib);
end;
procedure TF_Netz_Server.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
uninstallhook;
end;
Nur das funktioniert irgendwie nicht so richtig...
beim Aufruf von installhook kommt imer folgende Fehlermeldung:
Zitat:
Project P_Netz_Server raised
exception class EAccessViolation with message '
Access violation at address 00000000. Read of address 00000000'. Process stopped. Use Step or Run to continue.
ich weiß aber auch nicht so richtig wie ich das keyboardhook.dll einbinden soll und ob ich sie .dpr oder .dll nennen soll, weil sie einfach als
dll zu bennen geht nicht, da Delphi dann sagt dass es keine gültige Windows-Datei ist.