Zitat von
SirThornberry:
GetWindow ist eine aus der
Unit Windows
Delphi-Quellcode:
var
lHwnd : Cardinal;
lClassname: Array[0..255] of Char;
begin
lHwnd := FindWindow(nil, nil);
while (lHwnd <> 0) do
begin
if IsWindowVisible(lHwnd) and (GetWindow(lHwnd, GW_OWNER) = 0) then
begin
GetWindowText(lHwnd, @lClassName, 255);
ListBox1.Items.Add(lClassName);
end;
lHwnd := GetWindow(lHwnd, GW_HWNDNEXT);
end;
end;
die Taskleiste muss hier noch gefiltert werden und Popupfenster müssen auch noch raus gefiltert werden. Dann klappts aber.
Das ist ein ganz neuer Ansatz der wahrscheinlich besser funktioniert als EnumWindows(). Werde ich auf jeden Fall mal ausprobieren. Danke.