-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
26. Okt 2007
*push*
hat keiner ne idee woran das liegen könnte??
//Edit
Also hab nochmal gesucht und herausgefunden dass ich es richtig ist, wenn man WH_MOUSE_LL und WH_KEYBOARD_LL so deklarieert:
const
WH_MOUSE_LL = 14;
WH_KEYBOARD_LL = 13;
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
24. Okt 2007
:wall: hätte ich auch selber drauf kommen können.
Hab aber direkt wieder ne frage, wie bekomm ich heraus welche taste gedrückt wurde(also bei tastatur und maus)??
//Edit:
Eigentlich sollte man über wParam herausbekommen, welche taste gedrückt wurde. Nur das war bei allen tasten das gleiche...
Dann hab ich mal nen bissl rumprobiert. Unter anderem habe ich das WH_KEYBOARD_LL in WH_KEYBOARD...
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
24. Okt 2007
so hab irgendwie noch nen kleines problem mit dem auswerten von wParam und lParam und ncode.
Also hab versucht xpos und ypos auszugeben, was auch funktioniert, aber nur solange die maus über der Form ist...
Ich hab folgenden Code in die funktion mousehookproc gepackt:
setprop(WindowHandle, 'mous_xpos', PMOUSEHOOKSTRUCT(lParam)^.pt.x);
setprop(WindowHandle, 'mous_ypos',...
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
asoooo...jetzt verstehe ich das ;)
Und es funktioniert...*freu*
Nochmal vielen vielen dank für deine Hilfe und Mühe...
Hab auch noch das Uninstall richtig gemacht und nen MouseHook eingebaut...funktionier alles super.
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
erst nochmal vielen dank ;)
Hab das HookHandle in sendmessage zu WindowHandle geändert.
hab "HookHandle := SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardHookProc, HInstance, 0);" eingefügt(ersetzt)
Nur das "ändern und die message als const = 13 deklarieren... dann geht alles ! " versteh ich net...
meinst du mit message WM_KeyLogMessage??
hab das jetzt einfach mal so gemacht (in der dll):...
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
ok ist auch etwas komisch beschrieben, ich wollte nur sagen, dass es nicht funktioniert, also die Tastatue eingabe wird nicht in das Memo geschrieben.
So hab mal das ganze Projekt hochgeladen...Danke für die Hilfe
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
ja hab ich wohl falsch verstanden...hatte mich zwar irgendwie gewundert, aber mir gedacht, dass ich bestimmt falsch liege...
das Problem ist nur, dass es zwar jetzt läuft, also es kommen keine Fehlermeldungen mehr, aber es tut sich sonst auch net viel...
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
also habs sie kompiliert, das funktioniert auch.
wenn ich jetzt aus den Button Listen klicke kommt diese information:
hab die dll nochmal was geändert und das projekt auch, hier sind nochmal die aktuellen versionen:
Projekt:
unit U_Netz_Server;
interface
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
hmm wenn ich das oben einbinde kommt immer das:
Also meine datei keyboardhook.dpr ist aber so richtig??oder hab ich da schon was falsch gemacht(also ich hab sie aus irgendeinem tutorial genommen und halt das mit dem sendmessage geändert)
Zu dem Sendmessage hab ich auch ne frage: und zwar habe ich
sendmessage(HookHandle, WM_KeyLogMessage, wParam, lParam);
genommen, ich hab das aber auch...
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
Hmmm, da haste recht, hatte das oben irgendwie falsch verstanden was du meintest.
Das Problem ist nur, wenn ich
InstallHook( self.handle );
da hin mache, kommt immer die Fehlermeldung(hatte ich oben schonmal gepostet):
Ka was da falsch läuft...
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
Kann ich das so machen mit dem install hook, oder muss das in die getmessage procedure??
procedure TF_Netz_Server.B_ListenClick(Sender: TObject);
begin
If B_Listen.Caption = 'Listen'
Then begin
ServerSocket.Port := SpE_Port.Value;
ServerSocket.Open;
Connections := 0;
Timer.Enabled := True;
B_Listen.Caption := 'Schließen';
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
Ne passiert nix, also wird immer nur das eingegeben, was ich auch tippe...
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
Danke für die schnelle Hilfe!
Nur es kommt nix bei der Form an. Ich glaube ich hab auch irgendwie die .dll nicht richtig drin.
Hier ist erstmal der Quellcode meiner Form:
(ich hab die deklarationen der uninteressanten Proceduren mal rausgenommen, damit es was übersichtlicher ist)
unit U_Netz_Server;
interface
uses
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
Danke das funktioniert.
Jetzt hab ich nur noch ne Frage:
function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
//es ist ebenfalls möglich die Bearbeitung an eine Bedingung zu knüpfen
//it's possible to call CallNextHookEx conditional only.
Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
case nCode < 0 of
TRUE: exit; //wenn...
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
23. Okt 2007
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 :P)
Hab jetzt folgendes in meine Projekt stehen:
procedure TF_Netz_Server.FormCreate(Sender: TObject);
begin
lib := LoadLibrary('Keyboardhook.dll');
if lib <> INVALID_HANDLE_VALUE then...
-
Forum: Win32/Win64 API (native code)
Delphi
by 1ceman,
22. Okt 2007
Ich möchte ein Programm schreiben, was alle tastatureingaben und mausbewegungen an andere PCs im Netzwerk schickt, wo diese Eingaben und Bewegungen ausgeführt werden sollen.
Ich habe mir das so gedacht, dass ich einen Server-programm schreibe, was auf dem PC läuft, auf dem ich arbeite. Dieses Programm schickt alle Eingaben an die Clients. Das Client-programm ist auf allen anderen Rechner im...
