Fórum Programa receber parametro #344344

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.