Fórum Parametros entre Aplicativos #254118
12/10/2004
0
Olá....
Eu estou precisando urgentemente fazer o seguinte.....
Preciso passar parametros entre dois aplicativos...pq??
Tipo assim....eu tenho aplicativo01 e aplicativo02...o 01 gerencia tudo...e o 02 é como se fosse um extensão....simples eu preciso inibir a incialização do 02 pelo usuario...ou seja se ele tentar abrir o 02 ele da uma mensgem de erro........ele so pode abrir o 01 e se ele puder abrir o 02 ele abre....
No caso eu teria que passar parametros netre estes aplicativos....
Por Favor se alguem souber fazer me ajude...
Eu estou precisando urgentemente fazer o seguinte.....
Preciso passar parametros entre dois aplicativos...pq??
Tipo assim....eu tenho aplicativo01 e aplicativo02...o 01 gerencia tudo...e o 02 é como se fosse um extensão....simples eu preciso inibir a incialização do 02 pelo usuario...ou seja se ele tentar abrir o 02 ele da uma mensgem de erro........ele so pode abrir o 01 e se ele puder abrir o 02 ele abre....
No caso eu teria que passar parametros netre estes aplicativos....
Por Favor se alguem souber fazer me ajude...
Eduardo.buffara
Curtir tópico
+ 0
Responder
Posts
12/10/2004
Bon Jovi
Use ParamStr/ParamCount. Ex.:
E na outra aplicação que faz a chamada:
ShellAPI.ShellExecute(Application.Handle, ´open´, ´c:\teste.exe´, ´/parametroteste´, ´´, Windows.SW_NORMAL);
program Project1;
uses
Dialogs,
Forms,
Unit1 in ´Unit1.pas´ ;
{$R *.res}
var
i: integer;
Abortar: boolean;
begin
Application.Initialize;
Abortar := True;
for i := 0 to System.ParamCount do
begin
if System.ParamStr(i) = ´/parametroteste´ then
Abortar := False;
end;
if Abortar then
begin
ShowMessage(´Saindo...´);
Exit;
end;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
E na outra aplicação que faz a chamada:
ShellAPI.ShellExecute(Application.Handle, ´open´, ´c:\teste.exe´, ´/parametroteste´, ´´, Windows.SW_NORMAL);
Responder
Gostei + 0
12/10/2004
Eduardo.buffara
Valeu Cara...
Deu certo a parada...
Flw
Deu certo a parada...
Flw
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)