[DELPHI] ouverture d'un fichier -débutant-

ouverture d'un fichier -débutant- [DELPHI] - Programmation

Marsh Posté le 04-12-2001 à 09:46:52    

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.

Reply

Marsh Posté le 04-12-2001 à 09:46:52   

Reply

Marsh Posté le 04-12-2001 à 09:57:47    

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.


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

Marsh Posté le 04-12-2001 à 10:11:21    

Merci, je vais essayer !

Reply

Marsh Posté le 04-12-2001 à 10:54:19    

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


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

Marsh Posté le 04-12-2001 à 12:12:40    

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

Reply

Marsh Posté le 04-12-2001 à 12:20:04    

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;

Reply

Marsh Posté le 04-12-2001 à 12:34:12    

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)


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

Marsh Posté le 04-12-2001 à 12:57:35    

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.

Reply

Marsh Posté le 04-12-2001 à 14:36:38    

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]


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

Marsh Posté le 05-12-2001 à 09:59:51    

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é.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed