2 replies to this topic

[JoAnCa]

Buscando en Google encontré este ejemplo: https://stackoverflo...etwork-shortcut

delphi

ShellLink := CreateComObject(CLSID_ShellLink) as IShellLink;  
ShellLink.QueryInterface(IPersistFile, FicheroP);  
PersistFile.Load('C:\Test.lnk', STGM_READ);  
ShellLink.Resolve(WindowHandle, 0);  
Filename[0] := #0;  
ShellLink.GetPath(PChar(@Filename[0]), Length(Filename), pfd, 0);

Pero al no estar completo, no se que tipo de variables declarar ni las unit que van en los uses

Mi objetivo final es obtener la ruta a la que apunta el acceso directo

[escafandra]

Mira este código.
 

delphi

uses ShlObj, ActiveX, ComObj;
 ...
 
function GetPathFromLnk(LinkFile: WideString): String;
var
  IObject: IUnknown;
  ISLink:  IShellLink;
  IPFile:  IPersistFile;
  Path:    array [0..MAX_PATH] of char;
  Pfd:     WIN32_FIND_DATA;
begin
  IObject := CreateComObject(CLSID_ShellLink) ;
  ISLink := IObject as IShellLink;
  IPFile := IObject as IPersistFile;
 
  IPFile.Load(PWideChar(LinkFile), STGM_READ);
  Path[0] := #0;
  ISLink.GetPath(PChar(@Path[0]), Length(Path), Pfd, 0);
  Result:= Path;
end;

Saludos.

[JoAnCa]

Muchas gracias, funciona perfecto