1:
2:
3:
4:
5:
6:
7:
8:

function TForm1.progDir: String;
var pidl: PItemIDList; Path: array[0..MAX_PATH] of Char;
begin
 If SUCCEEDED(SHGetSpecialFolderLocation(0, $26, pidl)) Then begin
   SHGetPathFromIDList(pidl, Path);
   Result := Path;
 end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Function CSIDL_To_PATH( CSIDL : integer; var Path : array of Char ) : Integer;
var IID_List  : PItemIDList;
 begin
   if SHGetSpecialFolderLocation(0,CSIDL,IID_List) = S_OK 
      result := Integer(SHGetPathFromIDList(IID_List,Path)) - 1
   else result := GetLastError;
end;

Function CreateFileQuickLaunchLink( Const SourcePath, NameOfLink: string ): integer; overload;
var DestPath  : array [0..MAX_PATH] of Char;
 begin
  if CSIDL_To_PATH( CSIDL_APPDATA, DestPath ) = S_OK  then
   begin
    result := CreateFileLink(SourcePath, NameOfLink, String(DestPath)+'\Microsoft\Internet Explorer\Quick Launch');
  end
   else result := GetLastError;
end;