ActiveDelphi

[gambet]

Queria saber como criar um exe com parametro em delphi 7.
Tipo eu tenho um sistema em VB e quero ir modificando pouco a pouco o codigo fonte pra delphi 7.
Qual seria a ideia, no programa em VB apenas chamar o exe do delphi + parametro do cadastro,movimentacao,etc.
exemplo:

shell "C:\Programa.exe -cadastro de cliente",vbNormalFocus

Essa api funciona, a unica coisa e que nao sei criar o exe no delphi com parametros como acesso aos devidos cadastros.
Seria bom um exemplo com fonte.

Quem puder me ajudar ficaria grato

[gilsonnrodrigues]

procure por ParamStr

[gambet]

if ParamStr(1) <> 'MinhaSenha' then begin
{ Para usar ShowMessage, coloque Dialogs no uses }
ShowMessage('Programa não pode ser executado diretamente');
Halt; { Finaliza }
end;

Achei esse codigo e realmente funciona.
Mas queria saber como posso fazer assim, criar o projeto normal e colocar os parametros em cada form.por exemplo:

o form principal: -principal
o form cadastro de cliente: -cadcli

Para que eu possa abrir diretamente a tela necessaria.
Isso porque vou passar de pouco em pouco o codigo para delphi.
Dai por exemplo faco o cadastro de cliente e chamo pelo vb com o parametro -cadcli

Assim eu nao consegui localizar em nenhum forum

Aguardo resposta

[gilsonnrodrigues]

só vc testar se é o q vc quer e fazer o q deseja.

[gambet]

Poderia me dar um exemplo logico.
Pois o que quero e tipo setar assim:

parametro -principal abre DIRETAMENTE o form principal

parametro -cadcli abre DIRETAMENTE o form de cadastro de clientes

mais nao sei onde e nem como faze-lo no delphi
queria um exemplo em codigo

[joemil]

mais explicado q isso....

if ParamStr(1) = 'cadcli' then begin
Form1 := TForm1.Create(nil);
Form1.ShowModal;
Form1.Release;
Form1.Free;
end;
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[gambet]

Grato deu certo
muito obrigado