Probleme de ShellExecute tordu !Résolu

Question

Hello World :)

Petit probl&#232;me avec le lancement d'une appli externe (mais un peu + tordu, quand meme )

J'ai donc un bout de code sous Delphi7 qui me lance une appli externe :

ShellExecute(Application.Handle,nil,'D:\Program Files\Mapsonic\mapstore.exe',nil,nil,SW_SHOWDEFAULT);

qui marche tres bien. L&#224; ou le bat blesse, c'est que l'executable l&#224; a la facheuse manie de mettre la balance audio  tout &#224; gauche, et c'est pas solutionnable.

Or donc, dans le petit monde du carmedia, qqun a fait un minitruc en VB qui lance mapstore, attend, n milliseconde, et remet la balance au centre. Ce prog, balance.exe n'a aucune interface, aucune fenetre.

Je peux ex&#233;cuter balance.exe depuis zindoz en doublecliquant dessus, depuis une fenetre dos aussi. Mais si dans mon prog Delphi je mets

ShellExecute(Application.Handle,nil,'D:\Program Files\Mapsonic\balance.exe',nil,nil,SW_SHOWDEFAULT);

Pouf, je recoit en retour une jolie fenetre Erreur53, fichier introuvable, alors que le nom et le chemin du dit fichier sont corrects.

Et l&#224;, &#224; force de ramer, j'attaque la falaise....

gnhelp :)

cs_ManChesTer · Accepted Answer

Essaye avec :

Uses SysUtils;
var F:String;

F:='D:\Program Files\Mapsonic\balance.exe';

ShellExecute(Application.Handle,'open',Pchar(F),nil,Pchar(ExtractFilePath(s)),
SW_SHOWDEFAULT);

Bon Coding ....

ManChesTer.

cs_ManChesTer · Answer

oupps...

ExtractFilePath(F) et pas s, lol

Bon Coding ....

ManChesTer.

DeltaFX · Answer

Cool. Il fallait donc lui pr&#233;ciser le repertoire de travail,  bizarre... m'enfin ca roole :)

Merci b&#244;coo :D

gnh !

DeltaFX · Answer

Autre probl&#232;me, a la fermeture maintenant, grmblblblblbbl

je ferme mapstore avec :

Hndl:=FindWindow(nil,'ViaMichelin Mapstore 2.32');
SendMessage(Hndl,WM_CLOSE,0,0);        // 0,0 ou 1,1, pareil

Et l&#224; syst&#233;matiquement j'ai droit a la pitie fenetre du programme qui a plant&#233; :
"Ce programme va &#234;tre arret&#233; car il a effectu&#233; une op&#233;ration non conforme, gnagnaganag, Fermer, Debuguer, D&#233;tails>>"

Y aurait il un moyen de fermer un prog de mani&#232;re propre ?

cs_Delphiprog · Answer

Une petite pr&#233;caution s'impose avant de femer une fen&#234;tre qui n'aurait pas &#233;t&#233; trouv&#233;e :

  Hndl:=FindWindow(nil,'ViaMichelin Mapstore 2.32');
  if Hndl <> 0 then
    SendMessage(Hndl,WM_CLOSE,0,0);


Es-tu sur &#224; 100% que 'ViaMichelin Mapstore 2.32' est bien le titre qui apparait en haut de la fen&#234;tre de l'application &#224; fermer ?

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

DeltaFX · Answer

Vivi, sur a 100% je viens de checker. D'ailleurs mapstore se ferme bien, mais j'ai ce warning....

gnh !

JulioDelphi · Answer

attention de ne pas poster 2 questions differentes dans le meme post !
mieux vaut faire 2 questions surtout si il y a une "reponse accept&#233;e" :/

deltafx : ton probleme viens d'ailleurs je pense.

Probleme de ShellExecute tordu !

7 réponses

Votre réponse