последовательное выполнение delphi7

[-Jack-]

Всем доброго времени суток. Столкнулся с такой задачкой. Если последовательность команд

CreateMyFile('file.exe');
ShellExecute(Handle, nil,PAnsiChar('file.exe'), nil, nil, SW_SHOW);

Но за счёт того, что CreateMyFile достаточно долго выполняется и не успевает создать file.exe в тот момент, когда ShellExecute уже пытается его запустить, и в итоге выдаёт ошибку.

Как можно реализовать так скажем последовательное выполнение задач ( сначала создаем файл, потом его запускаем ) ?

[Пепел Феникса]

вообще то выполнение строго последовательное, если сами не создаете левых потоков.
так что показывайте весь код.

[QunneD]

WaitForSingleObject , не?

Еще цикл как вариант, или же создание отдельного потока.

Можно способом возврата, если функция возвращает какой-либо результат, к примеру:

if (CreateMyFile('file.exe') = true) then
begin
// Следующий этап.
end;

Вообщем возможностей много.

[-Jack-]

procedure TFrame2.CreateMyFile(const ASource, ADest: TFileName);
var
  Source, Dest: TStream;
begin
  Source := TFileStream.Create(ASource, fmOpenRead + fmShareDenyWrite);
  try
    Dest := TFileStream.Create(ADest, fmCreate);
    try
      CreateMyFileStream(Source, Dest);
    finally
      Dest.Free;
    end;
  finally
    Source.Free;
    DeleteFile(ASource);
  end;
end;

[Serge_Bliznykov]

procedure TFrame2.CreateMyFile(const ASource, ADest: TFileName);

у метода ДВА параметра. А Вы нам показываете в примере ОДИН.
что-то тут не сходится.
Это раз.

во-вторых, Вы используете CreateMyFileStream - что там делается - не видно.

в-третьих, try вы написали, а вот Except - не используете.
строчка DeleteFile(ASource) удалит файл в любом случае, даже если возникнут ошибки при создании Dest.

в-чётвёртых, полностью согласен с предыдущими ораторами. Команды в Delphi выполняются СТРОГО последовательно!
Думаю, что у Вас ОС держит файл долго. В этом случае крутите перед ShellExecute дополнительный цикл, в котором проверяйте, что файл есть, он нужного размера и/или свободен для чтения...

[evg_m]

разные пути
CreateFile - текущая директория
shellExecute - стандартный контекст (\system32)

Использовать полный путь.

f:=ExtractFilePath(application.exename) +'file.xxx';
CreateFile( f );
shellExecute(..., PAnsichar(f),....);

[-Jack-]

Кажется понял в чём загвоздка, народ, можете подсказать

for I:=1 to A1 do 
begin
...
end;

Как по середине цикла осуществить остановку выполнения цикла и вернуться к началу цикла и приступить к следующему I ?

[Аватар]

Continue ;

[-Jack-]

Спасибо, а то пробовал break, но он вообще выходит из цикла