[[egostar]]

Hola

Tal vez esto sea mejor.

Código Delphi [-]
[code]
function Ejecuta(Param:String): String;
var
  ErrorCode: Integer;
begin
  if not ShellExec('', ExpandConstant('C:\Documents and Settings\ctoomer\Application Data\Microsoft\Word\Qué queremos evaluar.doc'),
     '', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode) then
  begin
    Result := inttostr(ErrorCode);
  end;
end;

[Run]
FileName: "{code:Ejecuta|''}"

Tiene un pequeño detalle al final que es cosa de ver con calma, pero de que abre el archivo, lo abre

Salud OS

PD, Ah que mi amigo Caral