Показать сообщение отдельно
  #16  
Старый 08.02.2012, 23:57
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Может лучше поделить процедуру? Часть кода вынести в таймер или "нить"?
А здесь:
Код:
if not FileExists(FlacName+'t.flac') then Exit; 
    while not RenameFile(FlacName+'t.flac',FlacName+'.flac') do Application.ProcessMessages
так не лучше будет?
Код:
  if FileExists(FlacName+'t.flac') then
    while not RenameFile(FlacName+'t.flac',FlacName+'.flac') do Application.ProcessMessages
но лучше всё же разделить код.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием