[Delphi] lancer un programme DOS ? [résolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] lancer un programme DOS ? [résolu]

Aiua

PSN : Aiua / GT : Aiua42

Je veux juste lancer automatiquement :
232_read import.txt,1,1,1,1,1,1,0 (232_read.exe étant le programme dos)
ce programme crée un fichier texte et ce ferme, donc je voudrai récuperer la main que qd il a fini de créer son fichier si possible, mais bon déjà le lancer serait pas mal

merci de votre aide :jap:

[jfdsdjhfuetppo]--Message édité par Aiua--[/jfdsdjhfuetppo]

---------------
"The pen is mightier than the sword if the sword is very short, and the pen is very sharp." TP. Mes Jeux. Mes Ventes. Groupe HFR sur PlayFire.

Publicité

antp

Super Administrateur
Champion des excuses bidons

ShellExecute(0, nil, '232_read.exe', 'import.txt,1,1,1,1,1,1,0', Folder, SW_SHOWNORMAL);

Où Folder contient le dossier par défaut.
Il vaut mieux spéficier le dossier du programme :
À la place de '232_read.exe' mettre PChar(ExtractFilePath(Application.ExeName) + '232_read.exe') si jamais le propramme 232_read est dans le même dossier, par exemple.

Pour voir quand le programme se ferme, je crois qu'il faut faire ça avec CreateProcess. Peut-être qu'il y a moyen avec ShellExecuteEx.

PS: il faudra sans doute ajouter ShellAPI dans les "uses" de la unit.

[jfdsdjhfuetppo]--Message édité par antp--[/jfdsdjhfuetppo]

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Aiua

PSN : Aiua / GT : Aiua42

merci, au moins là j'arrive à lire le fichier, le pb c'est qu'il n'attend pas pour continuer mon prog

sur CreateProcess j'ai essayé :

Code :

var
L_StartupInfo: TStartupInfo;
L_ProcessInfo: TProcessInformation;
begin
FillChar(L_StartupInfo, SizeOf(L_StartupInfo), #0);
L_StartupInfo.cb := SizeOf(L_StartupInfo);
L_StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
L_StartupInfo.wShowWindow := SW_SHOWNORMAL;
if CreateProcess(nil, '232_read import.txt,1,1,1,1,1,1,0', nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, L_StartupInfo,L_ProcessInfo)
then
begin
WaitforSingleObject(L_ProcessInfo.hProcess, INFINITE);
CloseHandle(L_ProcessInfo.hProcess);
CloseHandle(L_ProcessInfo.hThread);
end;
end;

mais ça ne marche pas
mon programme a pas l'air d'être lancé et ça ne me rend jamais la main

[jfdsdjhfuetppo]--Message édité par Aiua--[/jfdsdjhfuetppo]

---------------
"The pen is mightier than the sword if the sword is very short, and the pen is very sharp." TP. Mes Jeux. Mes Ventes. Groupe HFR sur PlayFire.

Aiua

PSN : Aiua / GT : Aiua42

c'est bon, j'ai trouvé
j'utilise :

Code :

function TDLG_inventaire.WinExecAndWait32(FileName:String):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
code : cardinal;
begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINdow;
StartupInfo.wShowWindow := 0 ;
if not CreateProcess( nil , zAppName, nil , nil , false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil , nil ,StartupInfo,ProcessInfo) then Result := -1
else begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,code);
Result := Integer(code);
end ;
end ;

et je lui passe en parametre '232_read import.txt,1,1,1,1,1,1,0'

et ça marche :hot:

---------------
"The pen is mightier than the sword if the sword is very short, and the pen is very sharp." TP. Mes Jeux. Mes Ventes. Groupe HFR sur PlayFire.

antp

Super Administrateur
Champion des excuses bidons

plutôt que d'utiliser les array of char, tu peux faire simplement un PChar(FileName) dans les paramètres, c'est plus pratique (pas besoin de StrPCopy etc...)

Je vais garder ta fonction sous la main, c'est bon à savoir pour si jamais j'en ai besoin

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Aiua

PSN : Aiua / GT : Aiua42

ah ! si tu le dis, j'sais pas moi j'ai repompé la fonction
disons que ça marche comme ça meme si je comprends pas tout

---------------
"The pen is mightier than the sword if the sword is very short, and the pen is very sharp." TP. Mes Jeux. Mes Ventes. Groupe HFR sur PlayFire.

antp

Super Administrateur
Champion des excuses bidons

Version allégée:

Code :

function WinExecAndWait32(const FileName: string): Integer;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
code: Cardinal;
begin
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
with StartupInfo do
begin
cb := Sizeof(StartupInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := 0;
end;
if not CreateProcess(nil , PChar(FileName), nil, nil, False,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
Result := -1
else
begin
WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess, code);
Result := Integer(code);
end;
end;

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Aiua

PSN : Aiua / GT : Aiua42

testé et approuvé
merci :jap:

---------------
"The pen is mightier than the sword if the sword is very short, and the pen is very sharp." TP. Mes Jeux. Mes Ventes. Groupe HFR sur PlayFire.

Aiua

PSN : Aiua / GT : Aiua42

en fait il faut rajouter les CloseHandle à la fin par ce que sinon le prog il continue à tourner en fond, et à 20% du proc en plus le salop
bizarrement à trois en meme temps je m'en suis vite rendu compte que ça ramais
donc la fin c'est en fait :

[code]
begin
WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess, code);
Result := Integer(code);
end;
CloseHandle(L_ProcessInfo.hProcess);
CloseHandle(L_ProcessInfo.hThread);
end;

[jfdsdjhfuetppo]--Message édité par Aiua--[/jfdsdjhfuetppo]

---------------
"The pen is mightier than the sword if the sword is very short, and the pen is very sharp." TP. Mes Jeux. Mes Ventes. Groupe HFR sur PlayFire.

FORUM HardWare.fr

Programmation

Delphi/Pascal

[Delphi] lancer un programme DOS ? [résolu]

Sujets relatifs
[PERL] execution de programme externe	[delphi]ca vous dit quelque chose ce message d'erreur?
un bon site pour s'initier à delphi 5	Créer un.bat pour lancer une session FTP ?
[Réponse] Lancer une procédure PL/SQL à partir d'un shell Unix	URGENT RECHERCHE PRO DU DOS
[Delphi] Convertion d'un string en numérique	lancer une procedure en pl/sql avec un cron...
collaboration site web delphi, c++ builder et jbuilder	Recherche spécialistes DirectX et VC++ ou Delphi
Plus de sujets relatifs à : [Delphi] lancer un programme DOS ? [résolu]

Page générée en 0.049 secondes