Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi PopupBlocker programmieren (https://www.delphipraxis.net/59435-popupblocker-programmieren.html)

Chrissi91 28. Dez 2005 09:52

Re: PopupBlocker programmieren
 
Hi :hi:,

momentan beschäftige ich mich mit folgender Procdure und versuche, sie bei mir einzufügen, aber es treten Probleme und Unklarheiten :mrgreen: auf. ^^

Damit rufe ich die procedure auf:

Delphi-Quellcode:
 FindAWindow('', '');
Delphi-Quellcode:
function FindAWindow(caption: string; ClassName: string): THandle;
var WindowInfo: TFindWindowStruct;
begin
  with WindowInfo do begin
    caption:=caption; //Name des Fensters
    className:=ClassName; //???
    WindowHandle:=0; //???
    EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo)); //???
    FindAWindow:=WindowHandle; //???
  end;
end;
Ich verstehe nicht, wie ic das machen soll ^^. Es wird doch nicht so schwer sein, das umzuschrieben, in mein Programm. Anscheinend für mich schon :wall:

Delphi-Quellcode:
public
    { Public-Deklarationen }
  end;

  PFindWindowStruct = ^TFindWindowStruct;

  TFindWindowStruct = record
    caption: string;
    ClassName: String;
    WindowHandle: THandle;
  end;
Kann ich die nicht in die eigene Procedure/Funktion eintrgane? Was macht / bedeutet

Delphi-Quellcode:
  PFindWindowStruct = ^TFindWindowStruct;

  TFindWindowStruct = record
Fragen über Fragen ^^

3_of_8 28. Dez 2005 23:39

Re: PopupBlocker programmieren
 
Das deklariert PWindowStruct zu einem Zeigertyp auf TWindowStruct. Das braucht man AFAIK für Parameterübergabe von Zeigertypen. Und es sieht eleganter aus.


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

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