Programa receber parametro

Delphi

10/08/2007

Ola blz!?
Curiosidade:
Como fazer pra meu programa receber um parametro na inicializacao?

exemplo:
O Shutdown porde receber um parametro na sua inicializacao que pode ser -l , -s ....


Output

Output

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

10/08/2007

leia sobre ParamStr() e ParamCount.

como exemplo, imagine um programa bem simples, que verifica se um parametro foi passado, assume que esse parâmetro é um nome e diz um ´olá´ para esse nome. se um parâmetro não for passado, solicita o nome e diz ´olá´ para o nome informado. o exemplo abaixo é um aplicativo console (para ser executado a partir do prompt de comando) mas a mesma técnica pode ser aplicada num aplicativo windows.
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Dialogs;

var
  nome: string;
begin
  { TODO -oUser -cConsole Main : Insert code here }

  // exemplo:
  // project2 emerson
  // ParamStr(0) é o próprio programa -> c:\project2.exe
  // ParamStr(1) é emerson

  if ParamCount > 0 then
     nome := ParamStr(1)
  else
     nome := InputBox(´nome´,´informe o nome´,´sem nome´);

  showmessage(inttostr(ParamCount));
  showmessage(´olá ´+nome);

end.



GOSTEI 0
Output

Output

10/08/2007

show kra ...
isto msm , vlw kra


GOSTEI 0
POSTAR