PopupBlocker programmieren

[Chrissi91]

Hi ,

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

Damit rufe ich die procedure auf:

 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

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]

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