Forum: Win32/Win64 API (native code)
Delphi
by halinchen,
8. Jun 2007
Ich schätze du meinst als letzten Parameter GetCurrentThread (oder GetCurrentThreadID) zu nehmen.
Ich teste das sofort mal. Aber logischerweise sollte der Hook dann nicht mehr global funktionieren...
JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, hInstance, GetCurrentThread);
oder
JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, hInstance, GetCurrentThreadID);
So...
Forum: Win32/Win64 API (native code)
Delphi
by halinchen,
27. Mai 2007
Ich hab einen Fehler entdeckt: :mrgreen:
Bei ApplicationEvents1Message:
JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, 0 hInstance, 0);
Sonst geht der Hook nach Strg-Alt-Entf nicht mehr...
Hier der gesamte Code:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
Forum: Win32/Win64 API (native code)
Delphi
by halinchen,
20. Mai 2007
Achso ja. Hätte ich auch drauf kommen können. Das Thema "Terminal-Font" hab ich auch gelesen. :wall: :wall: :mrgreen:
Forum: Win32/Win64 API (native code)
Delphi
by halinchen,
20. Mai 2007
Ein Programm zum Anzeigen aller Handles, Prozesse und Systeminformationen. Und dann halt auch das Feature "Fenster unter der Maus bestimmen".
Forum: Win32/Win64 API (native code)
Delphi
by halinchen,
20. Mai 2007
Ich hab genau deinen Code genommen und er geht.
Ich kann die Form während der Laufzeit verschieben, vergrößern, also wie normal.
Du wirst es nicht glauben, genau das habe ich schon wieder gesucht! Vielleicht haben wie ja das selbe Projekt :mrgreen: