Acceso directo a plantilla de Word

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

[[egostar]]

Empezado por 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

No pues cuando se trata de optimizar código, lo mejor es eliminarlo

Muy bien

Salud OS