Acceso directo a plantilla de Word

[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

[[egostar]]

Pues ya quedo redondito este asunto, quedo muy optimizado el código amigo roman.

Cabe mencionar que a mi también me ha servido porque tenia en mente hacer algo que esto que se ha hecho me ha aclarado la idea

Salud OS

[roman]

Pues vaya, ha resultado ser aún más fácil. Nos olvidamos del código y usamos las constantes {reg: } que para eso están

Name: "{group}\Modificar plantilla"; FileName: "{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe,}"; Parameters: """{app}\plantillas\plantilla.dot""";

// Saludos