Показать сообщение отдельно
  #1  
Старый 12.03.2012, 21:04
kiman.ru kiman.ru вне форума
Новичок
 
Регистрация: 11.02.2010
Сообщения: 63
Репутация: 10
Стрелка Почему поток (thread) подвисает при копировании

Пишу тест: при копировании большого файла (фильм 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);

Так вот при копирвании файла программа «подвисает» на время копирования и название кнопки не изменяется...

Подскажите как можно во время копирования файла, приведенным мной способом, менять название кнопки.
Ответить с цитированием