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