[Siropchik]

В этой процедуре программа зацикливается, реагирует на все кроме кнопки завершения . Есть подозрение что в цикле while not RenameFile(FlacName+'.wav',FlacName+'t.wav') do Application.ProcessMessages;
возможно по какой то причине фаил не создан
Подскажите пожалуйста как лучше решить и обойти эту проблему?
программа может проработать 1минуту , а может и 10 мин.

PHP код:

procedure SaveFlac(FlacName:string);
var
fw:file of byte;
i:integer;
hf: hwnd;
begin
    iniWav;  //инициализировать структуру Wave
    assignFile(fw,FlacName+'.wav'); 
    rewrite(fw);   
    blockWrite(fw,waveHdr,sizeOf(waveHdr)); //записать заголовок  wave
    blockWrite(fw,proc_buf[0],qz); 
    closeFile(fw);        
    while not RenameFile(FlacName+'.wav',FlacName+'t.wav') do Application.ProcessMessages;  

    ShellExecute(hf, 'open', 'flac.exe', PChar(' -F '+FlacName+'t.wav'), nil, SW_HIDE);
    while not RenameFile(FlacName+'t.flac',FlacName+'.flac') do Application.ProcessMessages;  

    DeleteFile(FlacName+'t.wav');
 end;
End; 


[Bargest]

Скорее всего в while. Например, если файл не найден. Или если он открыт другим процессом. Хотя в код особо не вчитывался.

[Siropchik]

Я перед циклом фаил создаю и записываю в него данные
А сам цикл нужен для того что бы подождать когда фаил освободится от других процессов, что бы потом можно было запустить преобразования файла в другой формат

[angvelem]

Посмотри использование ключа {$I+/-}

[Siropchik]

Честно говоря я не знаю что это за зверь, я не профессионал
я так понял это деректива , но где ее прописывать?

{$I+/-} - проверка результата ввода-вывода Если используется ключ {$1+}, при возникновении ошибки ввода-вывода программа прекращает работу. В случае ключа {$1-} при возникновении ошибки ввода-вывода программа не выбрасывается, а код ошибки можно получить с помощью функции IOResult. Ключ является локальным. По умолчанию используется ключ {$1+}. Эквивалент меню - Options|Compiler| I/O checking.

[angvelem]

Код:

{$I-}  
  assignFile(fw,FlacName+'.wav');  
  rewrite(fw);    
  if IOResult = 0 then
  begin
    blockWrite(fw,waveHdr,sizeOf(waveHdr)); //записать заголовок  wave 
    blockWrite(fw,proc_buf[0],qz);  
    closeFile(fw);
  end;
{$I+}  

А перед while, используй FileExists.