ShellExecute problème d execution
Hello (bis)
J ai également un petit soucie lorsque je veux executé un .bat depuis delphi
j ai le code suivant :
Code:
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
