RTFM IShellLink

это interface
shell API
держи пример

procedure TForm1.Button1Click(Sender: TObject);
var LinkFile: IPersistFile;
ShellObject: IUnknown;
ShellLink: IShellLink;
LinkPath: PWideChar;
LnkFileName: array [0..MAX_PATH-1] of Char;
res: Integer;
wfd: TWin32FindData;
begin
if OpenDialog1.Execute then
begin
try
CoInitialize(nil);
ShellObject:=CreateComObject(CLSID_ShellLink);
LinkFile:=ShellObject as IPersistFile;
LinkPath:=PWChar(WideString(OpenDialog1.FileName));
res:=LinkFile.Load(LinkPath, STGM_READ);
if res=S_OK then
begin
ShellLink:=ShellObject as IShellLink;
ShellLink.GetPath(@LnkFileName, MAX_PATH-1,wfd,SLGP_UNCPRIORITY);
ShowMessage(LnkFileName);
end;
finally
ShellObject:=Unassigned;
CoUninitialize;
end
end;
end;

можно :)
help читай