Salut,
 
J'ai un petit problème en Delphi6.
 
J'ai besoin d'ouvrir un fichier, par exemple je clique sur un bouton et il me lance mon fichier (dans mon cas un ".exe" ).
Voilà, ça doit-être simple mais j'ai pas trouvé, si vous pouviez me filer un coup de main.
 
Merci encore.

pour executer un fichier c'est ShellExecute(0, nil, 'fichier a ouvrir.exe', 'parametres', 'repertoire de base', SW_SHOWNORMAL);
 
à la place de 'parametres' et 'repertoire de base' on peut mettre nil.

Merci, je vais essayer !

ha oui faut aussi rajouter "ShellAPI" dans les uses...

Je ne comprenais pas le message d'erreur qu'il me mettait, maintenant ça devrait mieux fonctionner :-)
Merci encore

J'ai écris ça et j'ai beau cliquer il n'y a rien qui se passe, tu vois ou peut-être mon erreur ?
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, nil, 'D:\Toto\Logi.exe', nil, nil, SW_SHOWNORMAL);
end;

le fichier existe-t-il bien ?
ShellExecute renvoie un nombre.
si il est plus petit ou egal à 32 c'est qu'il y a eu une erreur (code d'erreur)

Oui, le fichier existe et non il n'y a aucun nombre de renvoyé, enfin de compte c'est comme si le bouton n'avais aucun code.
Quand je clique sur le bouton rien ne se passe.

si. Il y a un nombre renvoyé, que ce soit le handle du programme executé ou le code d'erreur
 
met:
 
ShowMessage(intToStr(ShellExecute(0, nil, 'D:\Toto\Logi.exe', nil, nil, SW_SHOWNORMAL)));
 
il affichera le code renvoyé.

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

Ok je te remercie, je viens de trouver l'erreur !
 
Chose étrange, lorsque je mets mon programme dans mon répertoire "Yop", je n'arrive pas à le lancer par contre dans n'importe quel autre répertoire il n'y a aucun problème !
 
Le numéro d'erreur lorsque c'est le répertoire "yop" est 2 (là ça ne marche pas), sinon il est de 42 (et là ça fonctionne).
 
D'où vient le problème je n'en sait rien.
 
Sinon je te remercie pour m'avoir aidé.