Aber nicht nebeneinander. Der Code funktioniert bei mir problemlos um z.B. die Listview zu finden:
Delphi-Quellcode:
var
ParentWindow, ListWindow: HWND;
begin
ParentWindow := FindWindow('
WorkerW','
');
if ParentWindow <> 0
then
begin
ListWindow := FindWindowEx(ParentWindow, 0, '
SHELLDLL_DefView',
nil);
ListWindow := FindWindowEx(ListWindow, 0, '
SysListView32',
nil);
if ListWindow <> 0
then
begin
ShowMessage('
Window Handle: ' + IntToStr(ListWindow));
end;
end;
end;