É bastante simples, basta colocar no FormCreate do primeiro Form de seu
projeto, as seguintes linhas conforme exemplo abaixo.
for iContador := 1 to ParamCount do
begin
if AnsiUpperCase(ParamStr(iContador)) = '/ADM' then
sAtivaAdministrador := AnsiUpperCase(ParamStr(iContador));
lUtilizaOutLook := AnsiUpperCase(ParamStr(iContador)) =
'/MAIL';
lUtilizaSefazMS := AnsiUpperCase(ParamStr(iContador)) =
'/SEFAZ_MS';
lUtilizaIExplorer := AnsiUpperCase(ParamStr(iContador)) = '/IE';
lUtilizaMultiView := AnsiUpperCase(ParamStr(iContador)) =
'/MULTIVIEW';
end;
Fernando de Laurentiis escreveu:
Bom dia, povo.
Vcs sabem como fica a contrução de um pgm delphi q será executado com
parâmetros?
Grato!!!
__ Information from ESET NOD32 Antivirus, version of virus
signature database 4051 (20090504) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__ Information from ESET NOD32 Antivirus, version of virus signature
database 4051 (20090504) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]