Forum: Win32/Win64 API (native code)
Delphi
by T3rm1n4T0r,
12. Okt 2005
Was die Werte bedeuten ist doch auch völlig ohne Belang. Ich denk mal, wichtig ist es nur zu sehn, dass 4 Nachrichten ankommen und nich, so wie ich bisher angenommen hatte, eine.
Forum: Win32/Win64 API (native code)
Delphi
by T3rm1n4T0r,
11. Okt 2005
Irgendwie hab ich da Mist geschrieben. Also interessant ist nur lParam, da wParam sich nur von Taste zu Taste unterscheidet.
OutputDebugString hab ich direkt unter SendMessage eingebaut, also in KeyUp Case! Wenn nun dieses Ereignis eintritt ( ich lasse eine Taste los :)), dann erscheinen bei Delphi 4 gleiche nachrichten mit dem gleichen lParam Wert.
Was das nun bedeutet weiß ich nicht. Ich...
Forum: Win32/Win64 API (native code)
Delphi
by T3rm1n4T0r,
11. Okt 2005
Also hab das mal mit lparam gemacht und wenn ich keine Taste loslassen, dann erscheinen da unten bei Delphi 4 gleiche Nachrichten. Was bedeutet das jetzt?
Forum: Win32/Win64 API (native code)
Delphi
by T3rm1n4T0r,
11. Okt 2005
Also, erklären kann ich es mir immer noch nicht, warum das so ist. Allerdings lässt sich das Problem lösen indem man zusätzlich noch überprüft ob GetAsyncKeyState(vkc) = 0 ist. Das müsste zawr immer 0 sein, da ich ja das 32 Bit prüfe ob es gesetzt ist, aber irgendwie is da alles komisch :P
Forum: Win32/Win64 API (native code)
Delphi
by T3rm1n4T0r,
10. Okt 2005
Keiner ne Idee, was das falsch läuft?
Forum: Win32/Win64 API (native code)
Delphi
by T3rm1n4T0r,
9. Okt 2005
Hi,
ich hab mir einen KeyboardHook geschrieben, der eine Message and das Hauptprogramm sendet, damit ich dort alles auswerten kann.
Das Ganze sieht so aus:
function KbdHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
Result := CallNextHookEx(Keyboard_HookHandle, nCode, wParam, lParam);
case nCode < 0 of
True: exit; // nicht anrühren wenns negativ...