Fórum Executar uma executavel só se o programa autorizar #279918

if ParamStr(1) <> ´MinhaSenha´ then begin
  { Para usar ShowMessage, coloque Dialogs no uses }
  ShowMessage(´Execute este programa através de Prog2.EXE´);
  Halt; { Finaliza }
end;

 
procedure TForm1.Button1Click(Sender: TObject);
var
  Erro: Word;
begin
  Erro := WinExec(´Pro2.exe MinhaSenha´, SW_SHOW);
  if Erro <= 31 then { Se ocorreu erro... }
  ShowMessage(´Erro ao executar o programa.´);
end;

program ProjetoX;

(...)
const
  MutexName = ´Nome que vai ser compartilhado pelas duas aplicações´;
var
  Mutex : THandle;
begin
  Mutex := CreateMutex(nil, True, PChar(MutexName));
  if (Mutex = 0) and (GetLastError = ERROR_ALREADY_EXISTS) then
    //a aplicação chamadora está aberta
  else
    // a aplicação chamadora não está aberta
  
  (...)
end;

const
  MutexName = ´Nome que vai ser compartilhado pelas duas aplicações´;
  //O nome precisa ser igual ao registrado no outro programa
var
  Mutex : THandle;
begin
  Mutex := CreateMutex(nil, True, PChar(MutexName));
  //Aqui chama a outra aplicação
  CloseHandle(Mutex); 
end;