Hallo,
so müsste es funktionieren.
Delphi-Quellcode:
var
excel_obj: olevariant;
i: Integer;
begin
excel_obj := unassigned;
excel_obj := GetActiveOleObject('Excel.application');
for i := 1 to excel_obj.windows.count do
excel_obj.Windows[i].visible := false;
excel_obj := unassigned;
end;
Gruß