Executável com Parâmetros

Delphi

01/08/2003

Ola pessoal...

Gostaria de lhe perguntar como eu poderia colocar um ´parâmetro´ na frente da linha de comando do atalho. Por exemplo: No atalho de um determinado sistema, coloco: C:\Teste\Programa.exe /parametro

Na frente do Programa.exe gostaria de colocar alguma espécie de parâmetro para que eu possa tratar com o DCOM. Ou seja, se eu colocar parametro ´servidor´, irá conectar e executar la no computador do servidor. E se eu não colocar nada, irá executar no computador local.
Como que faço para que esse parâmetro, seja reconhecido dentro do Delphi.

Será q deu para entender???

Por mais...

Obrigado!!!


Manduruca

Manduruca

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

01/08/2003

Na unit do projeto (Project.pas), antes da linha ´Application.Initialize´, insira o seguinte código:

. Adicione na USES: Windows, Dialogs

if ParamStr(1) <> ´senha´ then
begin
ShowMessage(´blá blá blá´);
Halt; { Finaliza }
end;

Altere para o que você presisa ai, nesse exemplo se a senha estiver errada a aplicação exibe uma mensagem e finaliza, mude ´senha´ para ´conectar´ e o resto é com você


GOSTEI 0
POSTAR