Lecture du fichier de sortie de ShellExecute() dans Delphi 2010?

Question

J'utilise la commande ShellExecute pour exécuter un fichier exe qui obtient un fichier texte d'entrée et retourne un fichier texte en sortie. Je l'ai écrit comme ceci:

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]) 

Je fournis le fichier input.txt avant d'exécuter cette commande. Dans chaque exécution de mon programme, le fichier d'entrée change, tout comme le fichier de sortie.

Le problème est le suivant: Je ne vois pas les changements dans le fichier de sortie! La ligne écrite dans la console provient du fichier précédent, pas celle qui vient d'être modifiée. Je veux dire, le fichier dans l'explorateur est changé mais le fichier que j'ai lu est toujours l'ancien fichier.

Cela semble un peu bizarre, mais je me demandais s'il y avait un moyen d'actualiser le fichier de sortie avant de le lire? Ou il me manque quelque chose ici?

Merci d'avance.

Answer 1

ShellExecute n'attend pas que votre programme pour terminer le travail. Voilà ce qui arrive:

• Test.exe commence
• vous lisez dans sortie.txt
• Test.exe écrit nouvelle sortie.txt

Essayez quelque chose comme ceci:

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; 

Avec WaitForSingleObject, vous pouvez attendre la fin d'un processus.