|
EL proceso word lo creé de dos formas, obteniendo el mismo reusltado:
1.
word := TWordApplication.Create(self);
word.AutoConnect := False; //más adelante realizo la conexion
word.AutoQuit := False; //al final salimos con la instruccion QUIT
word.ConnectKind := ckRunningOrNew;
word.Connect;
word.WindowState := wdWindowStateNormal;
word.Visible := true;
....
....
2.
try
try
G_objWord := GetActiveOleObject('Word.Application');
except
on e:exception do begin
Log_GrabarLog('WARNING: No existe un proceso Word abierto :' + e.Message);
G_objWord := CreateOleObject('Word.Application');
Log_GrabarLog('INFO: Se ha creado un proceso Word');
end;
end;
//lo muestra
G_objWord.Visible := True;
//lo minimiza.
G_objWord.WindowState := 2;
comprobé los permisos con opendesktop y sigue igual.
Seguiré probando.
|