Пишу тест: при копировании большого файла (фильм 400 мб) программа должна менять названия кнопки.
Изменение названия кнопки написал в потоке так:
Код:
procedure Progress.Execute;
var
i: Integer;
begin
for i := 0 to 100 do
begin
Form1.Button1.Caption := IntToStr(Random(1000));
Sleep(100);
end;
end;
Файл копирую так:
Код:
CopyFile(PChar('c:\film.avi'),PChar('c:\film_copy.avi'),true);
Так вот при копирвании файла программа «подвисает» на время копирования и название кнопки не изменяется...
Подскажите как можно во время копирования файла, приведенным мной способом, менять название кнопки.