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