en cours d'exécution programmes cmd besoins chemin

Question

J'utilise Laarus pour écrire un programme simple J'ai la réponse de mon code de type ci-dessous. Comment démarrer un programme externe dans un répertoire spécifique?

procedure TForm1.Button2Click(Sender: TObject); 
var 
F: File; 
i, filehandle: Integer; 
runprogram:TProcess; 
begin 
    runprogram :=Tprocess.create(nil); 
    runProgram.CommandLine:='C:\Users\stran\Downloads\123\dcars.exe'; 
    runProgram.Execute; 
    Runprogram.free; 
    //This works but I need to navigate their first for the program 
    //to pick up its cmd line preferances.ini file 
    //I need to or have the program startin C:\...\...\.. 
    //in cmd(prompt)cd C:\Users\stran\Downloads\123\ 
    //then dcars.exe and it picks up its ini file and runs 
end; 

Answer 1

Définissez la propriété currentdirectory avant de faire .Execute. Par exemple.

runprogram.currentdirectory:='C:\Users\stran\Downloads\123\';