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