Dateivorschau

[mmw]

hallo,


bei Word und Excel kann man's so machen. (Einfache Lösung)

Delphi-Quellcode:

procedure Office_OLE_Object_Clear(ClassName: string);

 var
    ole_obj: OleVariant;
  begin
    ole_obj := Unassigned;

    try
      ole_obj := GetActiveOleObject(ClassName);
      ole_obj.quit;
      ole_obj := Unassigned;

    except
      ole_obj := CreateOleObject(ClassName);

      ole_obj.quit;
      ole_obj := Unassigned;
    end;
  end;

Aufruf für EXCEL mit

Office_OLE_Object_Clear('Excel.Application');




https://stackoverflow.com/questions/...n-olecontainer

Gruß