ClassName / Caption von Objekt erhalten

[Destroyer446]

Ich weiß nicht was ich falsch mache, aber bei dem "EnumChildWindows" passiert bei mir einfach nichts...
Code:

Delphi-Quellcode:

function EnumChildProc(hHandle : HWND; lParam : Integer) : Boolean; stdcall;
begin
 ShowMessage('-');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 hParentHWND: HWND;
begin
 hParentHWND := FindWindow(nil, 'Fenstername');
 if hParentHWND = 0 then
 begin
  ShowMessage('Fenster nicht gefunden.');
  Application.Terminate;
 end;
 EnumChildWindows(hParentHWND, @EnumChildProc,0); //In den letzen Parameter kannst du eine eigene Zahl, Pointer übergeben. Diesen Wert findest du in der EnumChildProc im lParam wieder. Funktioniert wie mit SendMessage.
end;

Ist am Code irgendwas falsch?! ...

Mfg, Destroyer446