Passé un paramètre lors de l'exécution

Passé un paramètre lors de l'exécution - Delphi/Pascal - Programmation

Marsh Posté le 05-02-2003 à 15:20:39    

Est-ce possible de passé un paramètre lors de l'exécution d'un exe. Exemple en commande dos, je lance projet1 MonNom par exemple. Si oui, quel est la démarche?

Reply

Marsh Posté le 05-02-2003 à 15:20:39   

Reply

Marsh Posté le 05-02-2003 à 15:22:18    

Dans Delphi pour récupérer les paramètres c'est la fonction ParamStr :
ParamStr(0) te donne chemin+nom du exe, les suivants correspondent aux params
ParamStr(1), etc.
Y a ParamCount qui te dit combien il y a de paramètres (sans compter le 0)


Message édité par antp le 05-02-2003 à 15:22:40
Reply

Marsh Posté le 05-02-2003 à 17:30:09    

zion a écrit :


Erhm, n'est ce pas antp?  :sarcastic:  


 
bhen oui :heink:
 

zion a écrit :


(En plus y a moyen de l'avoir avec une API, je pige tjs pas pq ils ont utilisé ca mais bon)


 
ParamStr(0) fait justement un appel à cette API :p


Message édité par antp le 05-02-2003 à 17:30:18
Reply

Marsh Posté le 05-02-2003 à 17:37:09    

:heink: Tu parlais quand même de l'API GetModuleFileName ?
 

Code :
  1. function ParamStr(Index: Integer): string;
  2. {$IFDEF MSWINDOWS}
  3. var
  4.   P: PChar;
  5.   Buffer: array[0..260] of Char;
  6. begin
  7.   Result := '';
  8.   if Index = 0 then
  9.     SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)))
  10.   else
  11.   begin
  12.     P := GetCommandLine;
  13.     while True do
  14.     begin
  15.       P := GetParamStr(P, Result);
  16.       if (Index = 0) or (Result = '') then Break;
  17.       Dec(Index);
  18.     end;
  19.   end;
  20. {$ENDIF}


Message édité par antp le 05-02-2003 à 17:37:25
Reply

Marsh Posté le 05-02-2003 à 17:43:50    

:fuck:

Reply

Sujets relatifs:

Leave a Replay

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