1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure ReadLink(const ShortCutName:string;var Target,Args,WorkDir,
 Description,Icon:string;var IconNo,ShowCmd:integer;var HotKey:Word);
var IObj:IUnknown;
    Link:IShellLink;
    IPFile:IPersistFile;
    ShortCutNameW:WideString;
    FindData:_Win32_Find_DataA;
    Buffer:array[0..MAX_PATH-1] of Char;
begin
 IObj := CreateComObject (CLSID_ShellLink);
 Link := IObj as IShellLink;
 IPFile := IObj as IPersistFile;

 ShortCutNameW:=ShortCutName;
 IPFile.Load(PWChar(ShortCutNameW),0);

 with Link do begin
  GetPath(Buffer,SizeOf(Buffer),FindData,0);
  Target:=StrPas(Buffer);
  GetWorkingDirectory(Buffer,SizeOf(Buffer));
  WorkDir:=StrPas(Buffer);
  GetArguments(Buffer,SizeOf(Buffer));
  Args:=StrPas(Buffer);
  GetDescription(Buffer,SizeOf(Buffer));
  Description:=StrPas(Buffer);
  GetHotkey(HotKey);
  GetShowCmd(ShowCmd);
  GetIconLocation(Buffer,SizeOf(Buffer),IconNo);
  Icon:=StrPas(Buffer);
 end;
end;