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]