Размер файла он-лайн

[Primkray]

У меня программа пишет данные в файл. Я хочу определять изменение размера этого файла и выводить постоянно обновляемым списком. Делаю так, по таймеру каждые 5 сек определяю размер файла посредством FindFirstFile, вывожу результат в listbox. Данные в listbox выводятся, но не меняются, т.е. такое чувство, что программа один раз получила размер файла и выводит не обновляя. Но стоит мне обновить информацию в каталоге, в котором лежит файл, программа получает обновленную информацию о файле и снова выводит один и тот-же размер. Подскажите, в чем проблема и что можно сделать?

Код программы

function GetFileSize(FileName:string): Int64;
var
  InfoFile: _WIN32_FIND_DATAA;

begin
  Result :=0;
    if  FileExists(FileName) then
    begin
            FindFirstFile(PChar(FileName),InfoFile);
            Result :=InfoFile.nFileSizeHigh shl 32 + InfoFile.nFileSizeLow;
    end
end;



procedure TForm1.tmr1Timer(Sender: TObject);
  var
  Fss1: Real;
begin

  Fss1:=0;
  Fss1:=GetFileSize('C:\11.mp3');
  Form1.mmo1.Lines.Add(FloatToStr(Fss1);

end;

[Filka]

function GetFileSize(const FileName: TFileName): Integer;
var
  SearchRec: TSearchRec;
begin
  Result := 0;
  if FindFirst(Filename, faAnyFile and not faDirectory, SearchRec) = 0 then
  begin
    Result := SearchRec.Size;
    FindClose(SearchRec);
  end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
  var
  Fss1: Integer;
begin

  Fss1:=GetFileSize('C:\11.mp3');
  Form1.mmo1.Lines.Add(IntToStr(Fss1);

end;

[Primkray]

Спасибо за быстрый ответ, но все равно информация о размере файла не меняется пока не обновлю каталог с файлом.

[Iron Monk]

А если сделать выбор дирректории?

ChDir('C:\');

[Primkray]

Не помог выбор дирректории

[Iron Monk]

Не могу воспроизвести ошибку - у меня размер файлов изменяется.

[Primkray]

Без ChDir изменяется? У меня на 2 компах такое, пока не обновлю каталог или просто не кликну по файлу изменения не проходят.

[Iron Monk]

Только код с поста №2.

[Filka]

function GetFileSize(const FileName: TFileName): Int64;
var
  FindHandle: THandle;
  FindData: TWin32FindData;
begin
  Result := -1;
  FindHandle:= FindFirstFile(PChar(FileName), FindData);
  if FindHandle <> INVALID_HANDLE_VALUE then
  begin
    Int64Rec(Result).Lo := FindData.nFileSizeLow;
    Int64Rec(Result).Hi := FindData.nFileSizeHigh;
    Windows.FindClose(FindHandle);
  end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
var
  Fss1: Int64;
begin
  Fss1 := GetFileSize('C:\11.mp3');
  if Fss1 <> -1 then
    Form1.mmo1.Lines.Add(IntToStr(Fss1);
end;

?

[Primkray]

Filka, попробовал, ситуация не изменилась.