Discussion :

[Yearning]

bonjour à tous, j'uilise souvent la commande ShellExecute afin de lancer un excutable directement à partir de Delphi

Code :

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

shellexecute(handle,nil,'C:\Chemin.exe',nil,nil,sw_show);

cette fois je veux lancer un logiciel mais il est sous dos, si je le lance manuellement vec selectdirectory et tout, il s'ouvre normalement, mais si j'utilise la commande shellexecute afin que ce soit automatique il m'affiche un message "file banner.text not found" dans une console noire qui se ferme juste arpès, sachant que ce fichier banner existe dans le répertoire du logiciel, et que ce logiciel n'est pas installable (il suffit d'un double clique pour l'ouvrir et l'utiliser normalement)
que faire?
merci

[Jipété]

Salut !

sachant que ce fichier banner existe dans le répertoire du logiciel

Moi je dirais de se mettre dans le répertoire du logiciel avant d'appeler ShellExecute, avec "ChDir" (jette un oeil à l'aide).
Mes 2 cts,
--
jp

[paulfr]

Bonjour,
On trouve dans Delphi 3 une unit FmxUtils qui fournit entre autre une
procédure ExecuteFile qui permet d'éxécuter des exe Dos ou autres.
Ci-dessous la fonction en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function ExecuteFile(const FileName, Params, DefaultDir: string;
  ShowCmd: Integer): THandle;
var
  zFileName, zParams, zDir: array[0..79] of Char;
begin
  Result := ShellExecute(Application.MainForm.Handle, nil,
    StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
    StrPCopy(zDir, DefaultDir), ShowCmd);
end;

Elle fait appel à ShellExecute, mais est directement utilisable sous Delphi.

PL