Problem mit fehlender Variable bei EnumChildProc.

[bitsetter]

Hallo,

du hast einfach aus der Funktion EnumChildProc eine Methode gemacht, du musst sie jedoch wieder aus dem private Abschnitt entfernen, also in etwa so:

Delphi-Quellcode:

function EnumChildProc(WND : HWND; HWNDName : String): Bool; stdcall; 
var wText : Array [0..250] of Char;
begin
GetWindowText(WND,wText,SizeOf(wText));
If HWNDName=wText then
begin
   destwindow:=WND;
   result:=false;
end else
   result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ...
  zS:='PrimaryListView';
  EnumChildWindows(destwindow,@EnumChildProc,zS); //Destwindow : HWND
end;