Acceso directo a plantilla de Word

[[Caral]]

Hola
Pregunto>
Este hilo no se podría poner con alguna etiqueta?.
Es que ver que Roman tenga una duda o que incluso pregunte es de verse.
Hay que enmarcar este hilo.
Saludos Maestros.

[[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

[roman]

Ha quedado así

Código Delphi [-]
function GetWordVersion(): String;
var
  PrevVersion: String;

begin
 PrevVersion := '';

 if not RegQueryStringValue(HKCR, 'Word.Application\CurVer', '', PrevVersion) then
  begin
    Result := '';
  end
  else
    Result := Copy(ExtractFileExt(PrevVersion), 2, MaxInt) + '.0';
end;

function GetWordPath(Param: string): String;
var
  PrevPath: String;
   
begin
 PrevPath := '';
   
 if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Office\' + GetWordVersion() + '\Common\InstallRoot', 'Path', PrevPath) then
  begin
    Result := '';
  end
  else
    Result := PrevPath;
end;

Muchas gracias.

Eliseo, lo último que pones no lo entiendo. Serviría para abrir el archivo desde el instalador, pero lo que necesito es crear un acceso directo, ¿o entiendo mal?

// Saludos

[[egostar]]

Empezado por roman

Eliseo, lo último que pones no lo entiendo. Serviría para abrir el archivo desde el instalador, pero lo que necesito es crear un acceso directo, ¿o entiendo mal?

El que ha entendido mal soy yo, estaba metido con que querias abrir un documento

Lo importante que ya funcionó como lo requerias.

Salud OS

[[maeyanes]]

Hola...

roman, ¿checaste la clave: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe?

Esa clave, en su valor predeterminado, guarda la ruta completa de WinWord.exe, sea la versión que sea la que tengas instalada. Esa es la clave que usa el comando Ejecutar... (Menu Inicio - Ejecutar...) cuando escribes algo como: Winword o Regedit...

También puedes encontrar en el valor Path la ruta en la que se encuentra instalado.


Saludos...

[roman]

Marcos, muchas gracias, así queda todavía más fácil

// Saludos

[roman]

Con la sugerencia de maeyanes ha quedado así:

Código Delphi [-]
function WinWordPath(Param: String): String;
begin
  if not RegQueryStringValue(
    HKLM,
    'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe',
    '',
    Result)
  then
    Result := '';
end;

Y la creación del icono así:

Name: "{group}\Modificar plantilla"; FileName: "{code:WinWordPath}"; Parameters: """{app}\plantillas\plantilla.dot""";

Por si hiciera falta, nótense las dobles dobles comillas en Parameters.

De nuevo, muchas gracias a todos.

// Saludos