Hallo,
ich beschäftige mich mit dem Problem, eine Liste bestimmter Seiten die im IE, Firefox und Opera geöffnet sind, an hand des Fenstertitels zu schließen! Hab versucht erstmal mit FindWindow alle aktiven Fenster zu ermitteln.
Delphi-Quellcode:
// Hier werden erstmal alle gefundenen in eine Listbox aufgelistet!
procedure TForm1.Button1Click(Sender: TObject);
var
hwnd : THandle;
p : array[0..256] of Char;
begin
hwnd := FindWindow(nil, nil);
while hwnd <> 0 do begin
hwnd := GetWindow(hwnd, GW_HWNDNEXT);
GetClassName(hwnd, P, SizeOf(P));
// Firefox
if string(P) = 'MozillaUIWindowClass' then begin
GetWindowText(hwnd, P, 255);
Listbox1.items.add(P);
end;
// IE
if string(P) = 'IEFrame' then begin
GetWindowText(hwnd, P, 255);
Listbox1.items.add(P);
end;
// Opera
if string(P) = 'OpWindow' then begin
GetWindowText(hwnd, P, 255);
Listbox1.items.add(P);
end;
end;
end;
Hier hab ich das Problem das immer nur der aktive Tab angezeigt wird, und alle die nicht aktiv sind werden nicht angezeigt! Hat jemand eine Ahnung???
Danke!