Открыв файл, я вывожу его размер на форме. После нажатия на кнопку запускаеться внешняя программа, которая сжимает файл, открытый в моем приложении. Хотелось бы показать его размер после сжатия. Как это можно сделать на практике? Вот структура всего процесса:

1. Открытие файла в моем приложении
2. Отображения размера файла на форме до сжатия
3. Запуск внешней программы, которая сжимает файл, открытый в моем приложении
4. Отображение размера файла на форме после сжатия //Не реализовано

Конечно, можно положить на форму кнопку, по нажатию на которую будет определяться размер после сжатия, но это мне не очень подходит.

Вот функция, с помощью которой я определяю размер файла, может, кому-нибудь сгодиться.

Код

Function GetFileSize(namefile : string) : Integer; Var InfoFile : TSearchRec; AttrFile : Integer; ErrorReturn : Integer; Begin AttrFile := $0000003F; ErrorReturn := FindFirst(namefile,AttrFile,InfoFile);  if ErrorReturn <> 0 Then   Result := -1  else   Result := InfoFile.Size; {Размер файла в байтах} FindClose(InfoFile); End; //Вызов функции. (выводит размер файла в байтах в Label1): Label1.Caption:=inttostr(GetFileSize('c:\kuku.txt'))+ ' байт';

Есть функция такая, GetCompressedFileSize...на деле не пробовал, но может поможет