Discussion :

[*alexandre*]

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

[*alexandre*]

finalement trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  ShellExecute(Application.Handle,'open',PChar(GetEnvironmentVariable('ComSpec')),'/C RMSTART.BAT',
  PChar(CurrentDirectory),SW_SHOW);