Parametros entre Aplicativos

Delphi

12/10/2004

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...


Eduardo.buffara

Eduardo.buffara

Curtidas 0

Respostas

Bon Jovi

Bon Jovi

12/10/2004

Use ParamStr/ParamCount. Ex.:

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);


GOSTEI 0
Eduardo.buffara

Eduardo.buffara

12/10/2004

Valeu Cara...
Deu certo a parada...

Flw


GOSTEI 0
POSTAR