Обновлено: 01 декабря, 2018

Как получить длинное имя файла или каталога, зная короткое в 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;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439