Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Suche prog, daß alt+TAB und Startmenü etc. verhindert! (https://www.delphipraxis.net/79567-suche-prog-dass-alt-tab-und-startmenue-etc-verhindert.html)

StefanG 26. Okt 2006 07:53

Re: Suche prog, daß alt+TAB und Startmenü etc. verhindert!
 
Zitat:

Zitat von Marco Steinebach
Hi StefanG,
Erstmal vielen herzlichen Dank für die rasche Antwort.
Ich hab noch 'n paar Fragen zu der MSGFilterFunc, bzw. ich und mein Compiler ;-):
Code:
  Result := 0;
  if (Code < 0) or (wParam = PM_NOREMOVE) then
    Result := CallNextHookEx(HookHandle, Code, wParam, lParam)
...
wo kommt der HookHandle im Aufruf von CallNextHook her?

Also erstmal solltest du dir bewusst sein, dass dieser Code aus einer Hookdll stammt. Für Informationen über Hooks empfehle ich das Tutorial unter www.assarbad.net.
Das HookHandle ist der Rückgabewert der Funktion SetWindowsHookEx.
Bei mir exportierte die DLL eine Funktion "SetHook" mit der ich von meinem Programm aus den Hook installieren konnte
Code:
function SetHook : Boolean; stdcall;
begin
  Result := False;
  HookHandle := SetWindowsHookEx(WH_GETMESSAGE, @MsgFilterFunc, HInstance, 0);
  Result := HookHandle <> 0;
end;
Zitat:

Code:
else begin
    Kill := False;
    case TPMsg(lParam)^.message of
bei der Zeile steigen ich und mein Compiler aus. Was ist TPMSG?
TPMsg ist einfach ein Pointer auf ein TMSG also
Code:
TPMsg = ^TMsg;
Tmsg ist in der Windows.pas deklariert

Zitat:

Code:
...
          VK_D,     // Win+D       ==> Desktop
blöde frage, ich weiß, aber die ganzen VK's finde ich auch nicht. in welcher Unit sind die denn?
jo wurde schon von MagicAndre beantwortet

Marco Steinebach 30. Okt 2006 18:32

Re: Suche prog, daß alt+TAB und Startmenü etc. verhindert!
 
Hi allezusammen,
vielen herzlichen Dank für die wirklich hilfreichen Antworten. Nach der Lektüre über Hooks läuft jetzt alles, wie es soll. Da ich aber noch nicht ganz fertig bin, hab ich den Quellcode hier noch nicht drangehängt. Bei Interesse einfach eine Nachricht an mich.

Viele Grüße
Marco


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:56 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz