.lnk dateien auf dem Desktop werden nicht erkannt.

[stiftII]

Zitat von Luckie:

Was ist das für ein Pfad: GetDesktopPath?
Es gibt auch noch andere Ordner, wo die Dateien auf dem Desktop liegen, AllUsers zum Beispiel.

hallo,

Danke der Tipp könnte schon meine Problemlösung sein .

Werds gleich mal testen.

Zu deiner Frage:

Delphi-Quellcode:

function GetDesktopPath : string;
var
  shellMalloc: IMalloc;
  ppidl: PItemIdList;
  PerDir: string;
begin
  ppidl := nil;
  try
    if SHGetMalloc(shellMalloc) = NOERROR then
    begin
      SHGetSpecialFolderLocation(Form1.Handle, CSIDL_DESKTOP, ppidl);
      SetLength(Result, MAX_PATH);
      if not SHGetPathFromIDList(ppidl, PChar(Result)) then
        raise exception.create('SHGetPathFromIDList failed : invalid pidl');
      SetLength(Result, lStrLen(PChar(Result)));
    end;
  finally
   if ppidl <> nil then
         shellMalloc.free(ppidl);
  end;
end;