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

[bra]

Es scheint zwar über irgendwelche Hacks möglich zu sein, aber prinzipiell unterstützen Windows-Links keine relativen Pfadangaben.

[himitsu]

Und wo ist nun dein Problem?
Passiert nichts, Fehlermeldung oder sonstwas....



Mal schnell den Code kopiert, der hier so rumgammelt.

Delphi-Quellcode:

procedure CreateLinkFile(LinkFilename, Filename, Args, Description: string);
var
  ErrorCode:    HResult;
  ShellLink:   IShellLink;
  PersistFile: IPersistFile;
begin
  ErrorCode := CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IID_IShellLink, ShellLink);
  if not Succeeded(ErrorCode) then
    RaiseLastOSError(ErrorCode);
  ShellLink.SetPath(PChar(Filename));
  ShellLink.SetArguments(PChar(Args));
  ShellLink.SetDescription(PChar(Description));
  ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(Filename)));

  ErrorCode := ShellLink.QueryInterface(IPersistFile, PersistFile);
  if not Succeeded(ErrorCode) then
    RaiseLastOSError(ErrorCode);
  PersistFile.Save(PChar(LinkFilename), True);
end;

[Ykcim]

Hallo Zusammen,

stimmt, ich habe nicht geschrieben, was mein Problem ist. Es passiert einfach nichts. Die Verknüpfung wird "kommentarlos" NICHT erstellt.

@by bra: Ich verwende auch keine relativen Pfad-Angaben, sondern hatte es nur hier zur Erklärung gemacht, damit man sieht, dass ich nicht den vollständigen Pfad kopiert hatte...
@himitsu: Ich teste Deinen Code, wenn ich nachher wieder am Platz bin...


Vielen Dank
Patrick

[himitsu]

Wenn z.B. CoCreateInstance oder QueryInterface nö sagen, dann geht es nunmal kommentarlos raus und sagt auch nur "ging nicht" (False)

[Ykcim]

Tja, leider bekomme ich es nicht hin.
Ich habe jetzt ein kleines Projekt erstellt, um das ganze zu testen. Ich hänge es hier an - vielleicht ist der Fehler dann nachvollziehbar...

Vielen Dank
Patrick

[himitsu]

Der Code ist seit Jahren bei uns erfolgreich im Einsatz, allerdings füllen wir die Parameter zufällig auch richtig.
Als LinkFilename wird da das Ergebnis eines SaveDialogs reingegeben, welcher nur korrekte Dateinamen in existierenden Pfaden mit Schreibrechten raus gibt. :stipid:

CreateLinkFile('D:\Anfragen\9220\16248\Angebot.lnk', 'D:\Anfragen\9220\Angebot', '', '');

D:\Anfragen\9220\16248 ist ein Verzeichnis und keinen Dateiname?

Wenn ja, dann knallt es im PersistFile.Save mit Zugriff verweigert, was leider nicht ausgewertet wurde.

Delphi-Quellcode:

procedure CreateLinkFile(LinkFilename, Filename, Args, Description: string);
procedure Check(H: HResult);
  begin
    if not Succeeded(H) then
      RaiseLastOSError(H);
  end;
var
  ShellLink: IShellLink;
  PersistFile: IPersistFile;
begin
  Check(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IID_IShellLink, ShellLink));
  Check(ShellLink.SetPath(PChar(Filename)));
  Check(ShellLink.SetArguments(PChar(Args)));
  Check(ShellLink.SetDescription(PChar(Description)));
  Check(ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(Filename))));
  Check(ShellLink.QueryInterface(IPersistFile, PersistFile));
  Check(PersistFile.Save(PChar(LinkFilename), True));
end;