Passar parametro para form.

Question

Amigos estou desenvolvendo um sistema com v�rios m�dulos.Tenho uma tela principal que chama os demais m�dulos.Cada m�dulo, inclusive a tela principal � um exe.Para abrir a tela principal � solicitado ...

Leandro Ribas · Answer

dentro do programa que vc quer chamar cvc faz assim:

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
for I := 1 to ParamCount do begin
if ParamStr(I) = �/sai� then
Application.Terminate;
end;

e no programa principal vc faz assim:

procedure TPrincipal.Button1Click(Sender: TObject);
var
Erro: Word;
begin
Erro := WinExec(�arquivo.exe /sai�, SW_SHOW);
if Erro <= 31 then { Se ocorreu erro... }
ShowMessage(�Erro ao executar o programa.�);
end;

Falou.

Gedai · Answer

O �/sai� � o parametro que quero passar? Poderia ser um pouco mais detalhado, pois n�o entendi muito bem....

Gedai · Answer

O �/sai� � o parametro que quero passar? Poderia ser um pouco mais detalhado, pois n�o entendi muito bem. Por exemplo como posso passar uma vari�vel, pois n�o saberei qual � o usu�rio conectado naquela esta��o.

Leandro Ribas · Answer

vc primeiro faz um login para entrar na tela principal correto, vamos se dizer que depois que o usuario logou no form principal vc guarda o nome do usuario em um a variavel publica chamada de UsuarioLogin, neste caso vc pode fazer assim:

public
UsuarioLogin : String;
end;
var
FRM_Prin: TFRM_Prin;

procedure TPrincipal.Button1Click(Sender: TObject);
var
Erro: Word;
begin
Erro := WinExec(�arquivo.exe /�+UsuarioLogin, SW_SHOW);
if Erro <= 31 then { Se ocorreu erro... }
ShowMessage(�Erro ao executar o programa.�);
end;

ae no programa que vc esta chamando vc pode fazer assim:
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
for I := 1 to ParamCount do begin
if ParamStr(I) <> �� then
UsuarioLogado := ParamStr(I);
end;

Falou.

Nildo · Answer

Eh assim:No programa q vc quer chamar coloca na programacao do Projeto:if paramStr(1) <> �/NomeDoUsuario� then   application.terminate;E no programa q chama esse outro programa coloca assim:   WinExec(�Seuprograma.exe /NomeDoUsuario�, sw_show);...

Gedai · Answer

Estou fazendo como voc�s explicaram, mas seu eu passar o parametro dentro da string do winexec funciona perfeitamente, mas quando tento passar como vari�vel da o seguinte erro:
[b:fe126de198]Inconpatyble types:�String� e �PAnsiChar�[/b:fe126de198].
Eis o c�digo:
[b:fe126de198]procedure TFormPrincipal.spbAcademicoClick(Sender: TObject);
var
vErro : Word;
vUsr : String;
begin
vUsr:= �Carlos Caramujo�;
vErro:= WinExec(�C:\Programa\Base\Vendas.exe� + vUsr, SW_SHOW);
if vErro <= 31 then
ShowMessage(�Erro ao executar o M�dulo Vendas.�);
end;[/b:fe126de198]

Nildo · Answer

Faz assim:procedure TFormPrincipal.spbAcademicoClick(Sender: TObject); var vErro : Word; vUsr : String; begin vUsr:= �Carlos Caramujo�; vErro:= WinExec(PChar(�C:ProgramaBaseVendas.exe /� + vUsr), SW_SHOW); if vErro <= 31 then ShowMessage(�Erro ao executar o M�dulo Vendas.�); end;...

Nildo · Answer

Mais uma coisa: Use o nome do usuario sem espa�os, senaum ele entende como parametro diferente...

Gedai · Answer

Muito obrigado a ambos, consegui, muito boa dica a de voc�s dois. Valeu mesmo. Se precisarem de ajuda tamb�m � s� pedir.
S� uma observa��o, posso passar o nome do usu�rio com espa�os. � s� coloc�-lo entre aspas duplas:
vUsr := ��Carlos Caramujo��;
funciona muito bem.
Mais uma vez obrigado.

F�rum Passar parametro para form. #164045