OLE ohne Form

[adecke]

Hallo,

folgender Code führt zu einer Exception: ..Exception der Klasse EOLESysError Meldung:CoInitialize worde nicht aufgerufen.

Delphi-Quellcode:

Program CrossWord;

Uses 
   ComObj,
   SysUtils;

{$R *.res}

procedure SetWordSettings (sVersion:string);
Var
   WordApp:OLEVariant;
begin
   try
      WordApp := CreateOLEObject('Word.Application')
   except
      on E: Exception do begin
         E.Message := 'Word is not available';
   raise
   end;
end;

   try
      WordApp.Visible := True
      WordApp.Documents.Add;
   finally
      WordApp.Quit
   end;
end;

begin
   SetWordSettings('10');
end.

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]