Dateiinfo 2

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