Einzelnen Beitrag anzeigen

1ceman

Registriert seit: 16. Dez 2005
Ort: Odenthal
134 Beiträge
 
Delphi 6 Personal
 
#29

Re: PC-Aktionen an mehrere PCs im Netzwerk senden

  Alt 24. Okt 2007, 08:38
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:
Delphi-Quellcode:
setprop(WindowHandle, 'mous_xpos', PMOUSEHOOKSTRUCT(lParam)^.pt.x);
setprop(WindowHandle, 'mous_ypos', PMOUSEHOOKSTRUCT(lParam)^.pt.y);
#

und in der form hab ich diese funtion:

Delphi-Quellcode:
procedure TF_Netz_Server.GotKeyMessage( var msg : TMessage );
var li:longint;
begin
li := longint(getprop(hwnd, 'mous_xpos'));
//getprop(hwnd, 'keyb_ncode');
M_History.Lines.Add(inttostr(li));
M_History.Lines.Add(inttostr(msg.lParam));
end;
Und ich vweiß auch nicht genau wie ich herausbekommen soll welche taste gedrückt wurde.
Roman
  Mit Zitat antworten Zitat