![]() |
Re: WindowTopper
Hallo,
Zitat:
Gruß Jörg |
Re: WindowTopper
Zitat:
|
Re: WindowTopper
Hallo,
auch wenn Dein Programm beendet ist, bleibt irgendwie ein Chaos zwischen den aktiven Fenstern. Gruß Jörg |
Re: WindowTopper
Zitat:
|
Re: WindowTopper
Hi
mein Virenscanner sagt das dein programm ein Vius ist: Win32:Banwor-I [Wrm] ansonsten würde ich es gerne mal unter vista testen xD |
Re: WindowTopper
Zitat:
Wenn ich Zeit habe, werde ich meinen eigenen Maushook schreiben. Der Hersteller der TWatch Komponente hat geschrieben: Zitat:
|
Re: WindowTopper
Zitat:
Was ist denn der Unterschied zwischen Fenstern, die ich mit Deinem Programm ON TOP gesetzt habe und den anderen. Das BDS 2006 Fenster hatte ich nicht ON TOP gesetzt. Gruß Jörg |
Re: WindowTopper
Für den MouseHook habe ich eine Alternative, ist ohne dll und reicht für diesen Prozess aus:
Delphi-Quellcode:
Gruß
private
MouseHook: HHOOK; {--[MouseHookProc]-------------------------------------------------------------} function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; begin if nCode = HC_ACTION then begin if lParam <> 0 then with PEventMsg(lParam)^ do begin if Message = WM_LBUTTONDOWN then begin end; if Message = WM_RBUTTONDOWN then begin end; if Message = WM_MOUSEMOVE then begin end; end; end; Result := CallNextHookEx(Form1.MouseHook, nCode, wParam, lParam); end; {--[FormCreate]----------------------------------------------------------------} procedure TForm1.FormCreate(Sender: TObject); begin MouseHook := SetWindowsHookEx(WH_JOURNALRECORD, @MouseHookProc, HInstance, 0); end; {--[FormDestroy]---------------------------------------------------------------} procedure TForm1.FormDestroy(Sender: TObject); begin if MouseHook <> 0 then UnhookWindowsHookEx(MouseHook); end; Mazel |
Re: WindowTopper
Habe mir auch schon überlegt, ob ich einen WH_JOURNALRECORD Hook nehmen soll.
Werde es mal testen, ob es damit zuverlässig läuft. |
Re: WindowTopper
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:36 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz