Discussion :

[RC10GT_MGT]

Je veux faire fonctionner un programme DOS (16 bit j'imagine) à l'aide de Delphi.

Quand j'execute la commande suivante, le programmedos.exe démarre pas...

ShellExecute(F_Main.Handle,'open','programmedos.exe', nil, nil, SW_HIDE);

Quand j'execute la commande suivante, le programmedos.exe démarre bien...

WinExec('programmedos.exe', SW_HIDE);

Est-ce qu'un programme DOS doit absolument démarrer avec WinExec pour fonctionner ??? Comment faire pour le faire démarrer avec ShellExecute ???

[Reisubar]

Essaie dans les deux cas de fournir un chemin d'accès complet au programme...

[RC10GT_MGT]

Meme avec un chemain complet...Avec WinExec ca fonctionne et ShellExecute c ane fonctionne pas

[rbh]

Salut
Les programmes Win16, quand il sont exécuté le sont via un processus WowExec.exe (wow = Win16OverWin32 <> World of Warcraft ).
A mon avis il faut "ShellExecuter" wowexec et passer ton prog en paramêtre.

[sillycoder]

T'as de la chance Sillycoder arrive !

Reisubar n'a pas du tout tord.
La réponse à ta question est des plus simples : c'est le chemin. Essaye donc une instruction du type

Code :

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

ShellExecute(Handle,'open', 'C:\...\programmedos.exe'), nil, nil, SW_HIDE);

où "C:\...\" est le chemin bien évidemment. Si tu souhaite exécuter un prog présent dans le même répertoire que ton dossier ou dans le répertoire des commandes dos, tu peux utiliser

Code :

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

ShellExecute(Handle,'open', extractfilePath(application.exename)+'programmedos.exe'), nil, nil, SW_SHOWNORMAL);

Sinon je te conseille de plutôt utiliser la commande suivante pour vérifier que le programme dos s'exécute réellement

Code :

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

ShellExecute(Handle,'open', extractfilePath(application.exename)+'programmedos.exe'), nil, nil, SW_SHOWNORMAL);

Ciao !

Si la vie était faite de lignes de code, on n'en serait encore au begin

[SubZero2]

Si la vie était faite de lignes de code, on n'en serait encore au begin

pas pour tout le monde ...

[cpdump]

Si cela marche avec WinExec pourquoi utiliser Shellexecute ?
Il y a aussi create process pour lancer des applications

[Noel Sybille]

Bonjour,

Je viens de tester avec un exe en Clipper; j'ai mis le code suivant dans un bouton.onclick pour lancer cet exécutable DOS :

Code :

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

1
2
 
ShellExecute(Application.Handle,PChar('open'),PChar('PathEtFilename.exe'),nil,nil,SW_NORMAL);

Et ça marche !

[RC10GT_MGT]

C'est peut-être mon programmedos.exe qui est trop tordu ou vieux pour l'exécuter à l'intérieur de Delphi....

[maciej.bednarski]

Bonjour,

Essai avec ça, je l'ai retrouvé dans mes vieux sources:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
function WinExecAndWait32(FileName: string; Visibility: Integer): Integer;
var
  zAppName: array[0..512] of Char;
  zCurDir: array[0..255] of Char;
  WorkDir: string;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
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 := Visibility;
  if not CreateProcess(nil,
    zAppName, { pointer to command line string }
    nil, { pointer to process security attributes }
    nil, { pointer to thread security attributes }
    False, { handle inheritance flag }
    CREATE_NEW_CONSOLE or { creation flags }
    NORMAL_PRIORITY_CLASS,
    nil, { pointer to new environment block }
    zCurDir, { pointer to current directory name }
    StartupInfo, { pointer to STARTUPINFO }
    ProcessInfo) then { pointer to PROCESS_INF }
    Result := -1
  else
  begin
    WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, Cardinal(Result));
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end;
end;

_____________________
Modération : Merci de ne pas oublier les balises Code, NoisetteProd