Mega Code Archive
Get Shortcut Target File
<![CDATA[
Title: Get Shortcut Target File
Question: i want to know where a specific surtcut guides ??
Answer:
Try This Great Function
function GetShortcutTarget(ShortcutFilename:string):string;
var
Psl:IShellLink;
Ppf:IPersistFile;
WideName:Array [0..MAX_PATH] of WideChar;
pResult:Array [0..MAX_PATH-1] Of Char;
Data:TWin32FindData;
const
IID_IPersistFile: TGUID = (
D1:$0000010B; D2:$0000; D3:$0000; D4:($C0,$00,$00,$00,$00,$00,$00,$46));
begin
CoCreateInstance(CLSID_ShellLink,nil,CLSCTX_INPROC_SERVER, IID_IShellLinkA ,psl);
psl.QueryInterface(IID_IPersistFile,ppf);
MultiByteToWideChar(CP_ACP, 0, pChar(ShortcutFilename), -1, WideName, Max_Path);
ppf.Load(WideName,STGM_READ);
psl.Resolve(0,SLR_ANY_MATCH);
psl.GetPath( @pResult,MAX_PATH,Data,SLGP_UNCPRIORITY);
Result:=StrPas(@pResult);
end;
/// USAGE \\\
on a button click just pass the shortcut name
form1.caption:=GetShortcutTarget('c:\windows\profiles\user1\desktop\visitme.pif');
Have Fun !!
]]>