Fórum Passar parâmetro de executável para executável #354040

var
PathAtualizador:String;
begin
PathAtualizador := ExtractFilePath(ParamStr(0)) + ´atualizador.exe /SisLoc´;
if MessageBox(Handle,´Deseja executar atualização do sistema agora?´,´Atualizar Sistema´,MB_ICONQUESTION+MB_YESNO)=IDYES then
 begin
  WinExec(pChar(PathAtualizador),SW_NORMAL);
  Application.Terminate;
  Halt(0);
 end;
end;

var
i:integer;
abre:Boolean;
Aberto:HWND;
begin
 abre := False;
 for i := 0 to ParamCount do
  if ParamStr(i) = ´/SisLoc´ then
   abre := True;
  if abre then
   begin
    Aberto := FindWindow(nil,pChar(´Atualizador de Aplicativos´));
    if Aberto = 0 then
     begin
      Application.Initialize;
      Application.Title := ´Atualizador de Aplicativos´;
      Application.CreateForm(TFrmAtualizador, FrmAtualizador);
      Application.Run;
     end
    else
     begin
       MessageDlg(´Por favor aguarde, o sistema já está processo de inicialização!´,mtInformation,[mbOK],0);
     end;
   end
  else
   begin
    MessageDlg(´Parametro de iniciação necessário para execução do Aplicativo!´+13+
               ´Em caso de dúvida entre em contato com o desenvolvedor do Sistema.´,
                 mtInformation,[mbOK],0);
   end;