Verknüpfung erstellen ....

[delphinia]

Ich habe nun nach lange suchem nen Code gefunden, mit dem ich wunderbar Links zu Dateien erstellen kann!
Nur fehlt mir eine möglichkeit auch für Verzeichnisse das anzuwenden!
Wie erstelle ich ShortCuts zu Verzeichnissen?


Mein Code für Dateien

Code:

function CreateLink(const AFilename, ALNKFilename, ADescription: string): Boolean;
var
  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;