Código
var i:integer;
for I := 1 to ParamCount do begin
if ParamStr(I) = '/sai' then
Application.Terminate;
end; // Outro exemplo
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=1 to paramcount do showmessage(ParamStr(i));
end;
end.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009