Чтение выходного файла ShellExecute() в Delphi 2010?

Question

Я использую команду ShellExecute для запуска exe-файла, который получает входной текстовый файл и возвращает выходной текстовый файл. Я написал это вот так:

ShellExecute(mainFormHandle, 'open', 'Test.exe', 
    'input.txt output.txt', nil, sw_shownormal); 

//Read the output file... 
S_List.LoadFromFile('output.txt'); 
Writeln(S_List[0]) 

Предоставляю файл input.txt перед запуском этой команды. В каждом запуске моей программы входной файл изменяется, а также выходной файл.

Проблема заключается в следующем: я не вижу изменений в выходном файле! Строка, написанная на консоли, относится к предыдущему файлу, а не к новой. Я имею в виду, что файл в проводнике изменен, но файл, который я прочитал, по-прежнему является старым файлом.

Кажется немного странным, но мне было интересно, есть ли способ обновить выходной файл перед его чтением? Или я чего-то не хватает?

Заранее спасибо.

Answer 1

ShellExecute не ждет, когда ваша программа завершит работу. Это то, что происходит:

• Test.exe начинает
• вы читали в output.txt
• TEST.exe пишет новый output.txt

Попробуйте что-то вроде этого:

var 
    StartUpInfo : TStartUpInfo; 
    ProcessInfo : TProcessInformation; 
    CreationFlags : Cardinal; 
begin 
    FillChar(StartUpInfo, SizeOf(TStartupInfo),0); 
    StartupInfo.cb := SizeOf(TStartupInfo); 
    CreationFlags := Normal_Priority_Class; 

    if CreateProcess(nil, 'test.exe input.txt output.txt', 
       nil, nil, False, CreationFlags, 
       nil, 0, StartupInfo, ProcessInfo) then 
    begin 
    WaitforSingleObject(ProcessInfo.HProcess, INFINITE); 
    CloseHandle(ProcessInfo.HProcess); 

    //Read the output file... 
    S_List.LoadFromFile('output.txt'); 
    end; 

С WaitForSingleObject вы можете подождать, пока процесс не завершит работу.