function GetLongFileName(s:string):string;
var t:TSearchRec;
    r:integer;
begin
   r:=findfirst(s,faAnyFile,t);
   Result:=t.FindData.cFileName;
   SysUtils.FindClose(t)
end;

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。　したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。