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