Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionCreateProcess(Pchar(OpenDialog1.FileName), nil, nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, Sinfo, PInfo); ... For I := 0 To NbcarMax - 1 do If (Chaine[I] <> chr(0)) Then SendKey(??????, Chaine[I]); ... TerminateProcess(Pinfo.hProcess, 0);