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-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| 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));
if string(P) = 'MozillaUIWindowClass' then begin
GetWindowText(hwnd, P, 255);
Listbox1.items.add(P);
end;
if string(P) = 'IEFrame' then begin
GetWindowText(hwnd, P, 255);
Listbox1.items.add(P);
end;
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!
