Anwendungsordner löschen

[Jelly]

Zitat von Nils_13:

Du musst die Pfade mit ~ aufteilen. Weiß aber auch nicht, wie man das genau macht

Ist zwar nicht notwendig, aber so gehts:

Delphi-Quellcode:

function GetDOS83(Filename : string) : string;
var
 DirEntry : TSearchRec ;
begin
     result := '' ;
     if FindFirst (FFileName,faAnyFile,DirEntry) = 0
     then begin
               result := DirEntry.FindData.cAlternateFileName ;
               if result = ''
               then result := uppercase(extractfilename (FFilename)) ;
          end
     else Result := '' ;
     FindClose (DirEntry) ;
end;