Verknüpfung von einem Ordner erstellen

[Ykcim]

Hallo Zusammen,

das Thema wurde zwar in der einen oder anderen Variante behandelt, aber ich habe trotzdem noch keine Lösung für mein Vorhaben gefunden.

Durch mein Programm wird für jede Kunden-Anfrage ein Ordner auf dem Server angelegt und in diesem Ordner auch sofort der Ordner "Angebot".
Für jede einzelne Position der Kunden-Anfrage wird in dem Anfrage-Ordner ein neuer Ordner angelegt. Bis hierhin klappt alles.

..\Anfrage\Angebot
..\Anfrage\Position1
..\Anfrage\Position2
usw.
Jetzt möchte ich aber, dass wenn die Ordner für die Positionen angelegt werden, dass dann dort drin eine Verknüpfung zum Angebotsordner erstellt wird. Und die bekomme ich nicht hin.
..\Anfrage\Angebot
..\Anfrage\Position1\Verknüpfung zu ..\Anfrage\Angebot
..\Anfrage\Position2\Verknüpfung zu ..\Anfrage\Angebot

Folgendes habe ich versucht:

Delphi-Quellcode:

function CreateLink(const AFilename, ALNKFilename, ADescription: AnsiString) : 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, PAnsiChar(ALNKFilename),
        -1, wsz, MAX_PATH);
        ppf.Save(wsz, true);
        result:=true;
      finally
        FreeMem(wsz, MAX_PATH*2);
      end;
    end;
  end;
end;

CreateLink('Pfad zum ..\Anfrage\Angebot', 'Pfad wo die Verknüpfung hinsoll ..\Anfrage\Position1', 'Name der Verknüpfung Angebot');
Hat jemand eine Idee für mich?

Vielen Dank
Patrick