Как получить длинное имя файла или каталога, зная короткое в Delphi?

procedure TForm1.Button1Click(Sender: TObject); 
var
  SearchRec : TSearchRec; 
  Success : integer; 
begin
  Success:=SysUtils.FindFirst('C:\DownLoad\dial-u~1.htm',faAnyFile,SearchRec); 
  if Success = 0 then
    ShowMessage(SearchRec.FindData.CFileName); 
  SysUtils.FindClose(SearchRec); 
end; 
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (19 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий