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:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

function GetSpecialFolder(hWindow: HWND; Folder: Integer): String;
var                     // Code from d3g ---> http://www.delphipraxis.net/viewtopic.php?t=502
  pMalloc: IMalloc;
  pidl: PItemIDList;
  Path: PChar;
begin
  // get IMalloc interface pointer
  if (SHGetMalloc(pMalloc) <> S_OK) then
  begin
    MessageBox(hWindow, 'Couldn''t get pointer to IMalloc interface.',
               'SHGetMalloc(pMalloc)', 16);
    Exit;
  end;

  // retrieve path
  SHGetSpecialFolderLocation(hWindow, Folder, pidl);
  GetMem(Path, MAX_PATH);
  SHGetPathFromIDList(pidl, Path);
  Result := Path;
  FreeMem(Path);

  // free memory allocated by SHGetSpecialFolderLocation
  pMalloc.Free(pidl);
end;

function CreateLink(const AFilename, ALNKFilename, ADescription: string) : Boolean;
var                // code from delphi-treff ---> http://www.delphi-treff.de/tipps/dateienverzeichnisse/wiki/Verkn%C3%BCpfung%20(*.lnk)%20zu%20einer%20Datei%20erstellen/
  psl : IShellLink;
  ppf : IPersistFile;
  wsz : PWideChar;
begin
  result:=false;
  if SUCCEEDED(CoCreateInstance(CLSID_ShellLink, nil,
  CLSCTX_inPROC_SERVER, IID_IShellLinkA, psl)) then
  begin
    psl.SetPath(PChar(AFilename));
    psl.SetDescription(PChar(ADescription));
    psl.SetWorkingDirectory(PChar(ExtractFilePath(AFilename)) );
    if SUCCEEDED(psl.QueryInterface(IPersistFile, ppf)) then
    begin
      GetMem(wsz, MAX_PATH*2);
      try
        MultiByteToWideChar(CP_ACP, 0, PChar(ALNKFilename), -1, wsz, MAX_PATH);
        ppf.Save(wsz, true);
        result:=true;
      finally
        FreeMem(wsz, MAX_PATH*2);
      end;
    end;
  end;
end;


procedure THauptfenster.mCreatShortcutClick(Sender: TObject);
var tmpPath: String;
begin
  tmpPath := GetSpecialFolder(Handle, CSIDL_DESKTOPDIRECTORY); // gives desktop path
 // showmessage(tmpPath);
  if CreateLink(ParamStr(0),                                   // Ziel
                tmpPath + '\Alarm Clock.lnk',                  // Speicherort der verknüpfung
                'Shortcut to Alarm Clock by Tarry91') then     // Verknüpfungs Beschreibung
  MsgBox(msgShortcutSuc);
end;					

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:

Procedure CreateLink(Description, Parameter: String; IconIndex: Integer);
// Verfasser unbekannt
var 
  IObject  : IUnknown;
  ISLink   : IShellLink;
  IPFile   : IPersistFile;
  PIDL     : PItemIDList;
  FilePath : array[0..MAX_PATH] of Char;
  DescName : WideString;
begin
  CoInitialize(Nil);
  IObject:= CreateComObject(CLSID_ShellLink);
  ISLink := IObject as IShellLink;
  IPFile := IObject as IPersistFile;

  with ISLink do begin
    SetPath(pChar(ParamStr(0)));
    SetWorkingDirectory(pChar(ExtractFilePath(ParamStr(0))));
    SetArguments(PChar(Parameter));
    SetIconLocation(PChar(ParamStr(0)), IconIndex);
  end;

  SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL);
  SHGetPathFromIDList(PIDL, FilePath);

  DescName := StrPas(FilePath) + '\'+ Description +'.lnk';
  IPFile.Save(PWChar(DescName), false);
end;					

1:

CoInitialize(NIL);					

1:
2:

---Thread1---   ---Thread3---
         ---Thread2---