Aplicativo delphi chamar Aplicativo Delphi e um Form junto
Galera,
Existe um meio de um aplicativo feito em Delphi (6.0) chamar outro aplicativo Delphi (6.0)
e executar um determinado form (como um cadastro de produtos) do 2º aplicativo ?
Intenção: Fazer uma ToolBar iniciando automaticamente e ela chamaria a aplicação carregando o form a medida que o usuário selecionar o ícone apropriado!!!! Ex.
Um Usuario quer fazer um cadastro de um produto, clica em cadastro, chama o aplicativo que ´dispara´ o form cadastro no segundo aplicativo....
Se não for pedir muito, alguém tiver uma dica, idéia, iniciativa, pensamento, sobre esta
dúvida fico grato. RAPHAEL (microbios@indinet.com.br)
[i:030425820b]favor postar o título da mensagem em minúsculas - leia as regras de conduta[/i:030425820b]
Existe um meio de um aplicativo feito em Delphi (6.0) chamar outro aplicativo Delphi (6.0)
e executar um determinado form (como um cadastro de produtos) do 2º aplicativo ?
Intenção: Fazer uma ToolBar iniciando automaticamente e ela chamaria a aplicação carregando o form a medida que o usuário selecionar o ícone apropriado!!!! Ex.
Um Usuario quer fazer um cadastro de um produto, clica em cadastro, chama o aplicativo que ´dispara´ o form cadastro no segundo aplicativo....
Se não for pedir muito, alguém tiver uma dica, idéia, iniciativa, pensamento, sobre esta
dúvida fico grato. RAPHAEL (microbios@indinet.com.br)
[i:030425820b]favor postar o título da mensagem em minúsculas - leia as regras de conduta[/i:030425820b]
Raphael Vital
Curtidas 0
Respostas
Cebikyn
20/10/2003
Vc pode fazer o segundo programa, que será chamado, aceitar parâmetros que especificariam o form que será aberto, depois para chamá-lo, basta usar o WinExec ou ShellExecute.
GOSTEI 0
Cebikyn
20/10/2003
[b:fac1c91441]Exemplo:[/b:fac1c91441]
No aplicativo que vc vai chamar (OnShow do form principal):
No programa que vai chamar:
No aplicativo que vc vai chamar (OnShow do form principal):
if UpperCase(ParamStr(1)) = ´CADASTRO´ then frmCadastro.Show;
No programa que vai chamar:
WinExec(´programa.exe cadastro´, SW_NORMAL);
GOSTEI 0