Вот что нагородил):
PHP код:
procedure TForm1.Timer1Timer(Sender: TObject);
function GetFileSize(const strFileName: String): LongInt;
var
WFD: TWin32FindData;
hFile: THandle;
begin
hFile := FindFirstFileA(PChar(strFileName), WFD);
Result := WFD.nFileSizeLow;
//FindClose(hFile);
end;
var
s,fa:string;
begin
s:='C:\Program Files\Borland\Delphi7\Projects\sizeee';
fa:='Текстовый файл.txt';
s:=s+'\'+fa;
memo1.lines.add('File size = '+inttostr(GetFileSize(s))+ ';' );
end;
Проверку не ставил, это дело техники.
Может правда есть и более рациональные способы решения такой задачи.
Нужно смотреть уже по обстоятельствам.