Verknüpfung von einem Ordner erstellen

[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;

[Ykcim]

Ich prüfe vorher ab, ob die Ordner existieren / lege sie an, wenn sie nicht existieren.
Es handelt sich tatsächlich um eine Verknüpfung zu einem Ordne und nicht zu einer Datei.

D:\Anfragen\9220\16248 ist ein Verzeichnis
D:\Anfragen\9220\Angebot ist auch ein Verzeichnis

D:\Anfragen\9220\Angebot soll in D:\Anfragen\9220\16248 als Verknüpfung erscheinen.

Vielen Dank
Patrick

[himitsu]

Nicht dein Ziel ist falsch, sondern die Verknüpfungsdatei.

Das Ziel darf eine Datei oder ein Verzeichnis sein,
aber die "Datei", in welcher die Verknüpfung gespeichert wird, muß natürlich eine Datei sein.
Siehe mein vorhin gezeigtes Beispiel.


Wenn wirklich ein "Verzeichnis" mit einem anderen Verzeichnis im Dateisystem "verlinkt" verwenden soll, dann wäre das ein HardLink, bzw. ein SoftLink aka Junction.

[Ykcim]

Ich ...

ich habe es *.ink statt mit *.lnk versucht.

Vielen Dank, ja, jetzt funktioniert es!!!

Gute N8
Patrick