Author: Jonas Bilinkevicius 

How to delete a shortcut link

Answer:
1   
2   procedure DeleteShortcut(const
3     User {See scUserKey... codes},
4     Where {See scWhereKey... codes},
5     Name {Name for the shortcut link, w/o ".lnk"}: string);
6   var
7     s: string;
8   begin
9     s := GetEnvVar(scWinDirKey);
10    if User <> '' then
11      s := s + '\Profiles\' + User
12    else if OprSysPlatform = osWinNT then
13      raise Exception.CreateFmt('Must have user name to delete shortcut (%s) for NT',
14        [Name]);
15    if Where = '' then
16      raise Exception.CreateFmt('Where must be specified to delete shortcut (%s)',
17        [Name]);
18    if not DirectoryExists(s) then
19      raise Exception.Create('User profile does not exist for ' + User);
20    s := s + '\' + Where;
21    DeleteFile(s + '\' + Name + '.lnk');
22  end;