Dateiinfo 2

[f.r.e.s.h.d]

Hi!

Ich würde gerne wissen wie man unter Delphi6, von einer Verknüpfung, die Zielinformationen herraus bekommt.


Also "Ziel" und vielleicht, aber eher Sekundär, Zielort und Zieltyp.

[Christian Seehase]

Moin f.r.e.s.h.d.,

such doch mal hier im Forum nach IShellLink.
Dazu müsste was zu finden sein.

[f.r.e.s.h.d]

Kann mir vielleicht jemand ein Beispiel geben, wie ich an die Infos ran komme...habe schon was gefunden, aber ich komme damit nicht zurecht.

Delphi-Quellcode:

var
  LinkFile    : String; 
  wLinkFile   : WideString;
  PersistFile : IPersistFile;
  Link        : IShellLink;
  buffer      : array [0..MAX_PATH] of Char;

  SetLastError(0);
  LinkFile := Liste.Strings[2];
  wLinkFile := LinkFile;
  if CoCreateInstance(CLSID_SHellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, Link) = S_OK then
  begin
    PersistFile := Link as IPersistFile;
    if PersistFile.Load(PWideChar(wLinkFile), STGM_READ) = S_OK then
    begin
      if Link.GetDescription(buffer, sizeof(buffer)) = S_OK then
        ShowMessage(String(buffer));
    end;
  end;
  initialization
  CoInitialize(nil);

  finalization
  CoUninitialize();

[Luckie]

Alles weiter hier: IShellLing - MSDN

[f.r.e.s.h.d]

Hat da keiner irgendwie ein Beispiel ?!

[Luckie]

Zitat von f.r.e.s.h.d:

Hat da keiner irgendwie ein Beispiel ?!

Beispiel? Was willst du denn noch?
Setz doch hier für GetDescription, das ein, was dich interessiert.