Советы по Delphi


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


Своим опытом делится Олег Кулабухов:

Используйте Win32_Find_Data от TsearchRec:



    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 begin
ShowMessage(SearchRec.FindData.CFileName);
end;
SysUtils.FindClose(SearchRec);
end;

[001869]



Содержание раздела