ExtractFileDir

Adam Boduch
ExtractFileDir
Moduł: SysUtils
```delphi function ExtractFileDir(const FileName: string): string; ``` Na podstawie pełnej ścieżki do pliku (parametr FileName), funkcja zwróci jedynie nazwę dysku oraz katalog. Jeżeli parametr nie zawiera litery dysku oraz katalogu - funkcja zwróci wartość pustą.
program Foo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Dir : String;
begin
  Dir := ParamStr(0);
  { "C:\Users\Użytkownik\Desktop\mojprogram\Project1.exe" }
  
  Writeln('Dysk: ', ExtractFileDrive(Dir));               
  {  "C:"  }

  Writeln('Katalog: ', ExtractFileDir(Dir));   
  {  "C:\Users\Użytkownik\Desktop\mojprogram"  }

  Writeln('Nazwa pliku: ', ExtractFileName(Dir));           
  {  "Project1.exe"  }
  
  Writeln('Rozszerzenie: ', ExtractFileExt(Dir));              
  {  ".exe"  }

  Writeln('Ścieżka: ', ExtractFilePath(Dir));     
  {  "C:\Users\Użytkownik\Desktop\mojprogram\"  }    
     
  Writeln('Ścieżka skrócona: ', ExtractShortPathName(Dir)); 
  {  "C:\Users\Użytkownik\Desktop\MOJPRO~1\Project1.exe"  }

  Readln;
end.

Funkcja ExtractFileDir zwraca łańcuch nie będący zakończony znakiem \ (zobacz ExtractFilePath).

Zobacz też:

0 komentarzy