var
vSearchRec: TSearchRec;
begin
FindFirst('<文件名>', faAnyFile, vSearchRec);
Caption := IntToStr(vSearchRec.Size);
FindClose(vSearchRec);
end;
vSearchRec: TSearchRec;
begin
FindFirst('<文件名>', faAnyFile, vSearchRec);
Caption := IntToStr(vSearchRec.Size);
FindClose(vSearchRec);
end;