Delphi application using OpenOffice: please help

[DennisTCarlos]

procedure PleaseHelpMe;
var
doc : ToOoDoc;
begin
doc := ToOoDoc.create('C:/the_os.doc',true,true); // opens this file -- use '' for a new file
with doc do
try
addSub('NomeRazao' , 'Dennis Carlos');
addSub('Endereco' , 'Rua Teste, 70');
addSub('Atividade' , 'atividade teste');

merge;

saveAs('c:/myDocMerged.odt', true);
revert;
substitutions.clear;
open('c:/myDocMerged.odt', true);

finally
free;
end;
end;



I would like to open the document generated 'c:/myDocMerged.odt' with OpenOffice and show the editor preferring maximixed window, but in this case, Open function does not work. Nothing is happening. No error messages.



procedure ToOoDoc.open( fileName : string; hidden : boolean);
var
fileProp : variant;
begin
if not fileExists(fileName)then begin
raise exception.Create('oOoDoc.open: file not found.'+#13#13+filename);
end else begin
isHidden := hidden;
end;
docFileName := fileName;
openURL(convertToURL(docFileName));
isNew := false;
end;

procedure ToOoDoc.openURL(URL : string);
var
fileProp : variant;
begin
close;

if isHidden then begin
fileProp:= CreateProperties(['Hidden', True,'Password','dsfchave']);
end else begin
fileProp := dummyArray;
end;

docs[di].v := StarDesktop.LoadComponentFromURL(URL, '_blank', 0, fileProp);
docs[di].isOpen := true;
end;