Programowanie w języku Delphi

ExtractShortPathName

  • 2012-12-05 19:03
  • 5 komentarzy
  • 1142 odsłony
  • Oceń ten tekst jako pierwszy
ExtractShortPathName
Moduł: SysUtils

function ExtractShortPathName(const FileName: string): string;

Funkcja na podstawie parametru FileName zwraca skróconą ścieżkę.

Przykładowy program zwracający informacje o ścieżce:

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.


Zobacz też:

5 komentarzy

bordeux 2012-12-12 22:08

Pewnie tylko studenci szukają teraz. Delphi R.I.P [*] ... ale co,  na studiach warto zapychać głowę archaicznym językiem.

Patryk27 2012-12-11 15:50

@ŁF: oj tam, oj tam. Po prostu jakby ktoś szukał i trafił na tę stronę, to ma od razu rozwiązanie :P

ŁF 2012-12-11 11:46

@Patryk27: nekrofil...

barszcz 2008-02-18 19:23

A czy jest jakaś odwrotna?
Tzn. z "C:\PROGRA~1\Borland\Delphi" na "C:\Program Files\Borland\Delphi".