Hello (bis)

J ai également un petit soucie lorsque je veux executé un .bat depuis delphi

j ai le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TSDIAppForm.ButtonRapidoClick(Sender: TObject);
var
  CurrentDirectory : String;
begin
  CurrentDirectory := GetCurrentDir;
  if CurrentLanguage = 'de' then
    CurrentDirectory := CurrentDirectory  + '\Deutsche Versionen'
  else
    CurrentDirectory := CurrentDirectory  + '\Ingware';
  ShowMessage(CurrentDirectory + '\RAPIDO\RMSTART.BAT');
  if ShellExecute(Handle, 'open', PChar(CurrentDirectory + '\RAPIDO\RMSTART.BAT'), nil, nil, SW_SHOW) <=32 then
    ShowMessage(SysErrorMessage(GetLastError));
end;
malheureusement lorsque je lance cette commande, l application ne se lance pas (je vois bien une fenetre dos qui s ouvre mais qui se referme aussitot)

Je vérifie si le path est juste en faisant un petit ShowMessage et le path semble correct ..

d avance merci de vos lumières