Passer des paramètres

Question

Bonjour à tous,

débutant sous delphi (et en programmation de manière générale), je souhaiterai savoir comment passer des paramètres à une application.
exemple : 
application.exe truc
lance l'application "application.exe" avec le paramètre truc utile pour le déroulement de l'application. je ne sais pas si je suis clair...

Merci pour votre aide.

DelphiCool · Answer

Dans uses il te faut ShellApi

ShellExecute(0, nil, 'application', 'truc', nil, sw_normal);

----------------------------------
         DelphiCool
   http://progzed.free.fr
     http://u.p.s.free.fr

http://progzed.free.fr/forum

ogizmo · Answer

Je me suis mal exprimé : je souhaite passer des paramètres à mon application delphi lors de son exécution. Si je créé par ex une appli qui édite les fichiers texte, comment puis-je passer en paramètre le nom du fichier texte pour que lorsque je lance mon appli delphi, ce fichier s'ouvre directement ?
Merci en tout cas pour cette première réponse.

DelphiCool · Answer

tu aurras le nom du fichier dans paramstr(1)

var s:string;
s := paramstr(1);

----------------------------------
         DelphiCool
   http://progzed.free.fr
     http://u.p.s.free.fr

http://progzed.free.fr/forum

cs_Delphiprog · Answer

Le nombre de paramètres reçus par l'application est contenu dans ParamCount.

Si tu souhaites utiliser des commutateurs sur la ligne de commande, utilises plutôt la fonction FindCommandLineSwitch.

May Delphi be with you.
Delphi advanced

ogizmo · Answer

Merci à tous pour votre aide ! 

ogizmo

DeZNiUS · Answer

J'ai le même problème mais moi c plus complexe. En fait, le problème c'est avec les noms de fichiers longs. exemple :

E:\Documents and Settings\DeZNiUS\Bureau\file.txt

dans ce nom de fichier, il y a des espaces, donc problème.
En effet, ParamStr(1) va renvoyer = "E:\Documents".
de la même manière, ParamStr(2) = "and", etc.

Comment faire si je veux ouvrir le fichier file.txt ?
j'ai pensé à :

var
  Filename : string;
  i : integer;

  i := 0;
  Filename := '';

repeat
  FileName := Filename + ParamStr(i)
  Inc(i)
until i = ParamCount;

mais problème ! dans cet exemple ca fait :
E:\DocumentsandSettings\DeZNiUS\Bureau\file.txt

autrement dit impossible !

j'ai pensé à GetCurrentDir, mais ca se limite à ca :

E:\Documents and Settings\DeZNiUS\Bureau\

Comment faire pour avoir le nom de fichier ?

en fesant ParamStr(3); ?
oui, mais le problem, c'est que ca renvoi :

"Settings\DeZNiUS\Bureau\file.txt".

Donc that's the problem.

please help me; surtout que ca est un probleme con  :)

pianila · Answer

Try this thing: 

var s:string;
....
begin
....
 s := StrPas(CmdLine);
{$IFDEF WIN32}
 Delete(s, 1, Pos('" ', s) + 1);
{$ENDIF}
...{s will be :  E:\Documents and Settings\DeZNiUS\Bureau\file.txt }
end;

Passer des paramètres

7 réponses

Votre réponse

Discussions similaires