Como Reiniciar Aplicação?

Delphi

18/03/2008

Ola Pessoal!
Bom gostaria de saber se alguem sabe como reiniciar a aplicação, por exemplo, eu coloco um botão no form onde eu clico e ele fecha o meu sistema e depois abra de novo na tela de login

Alguem sabe como faço isso?

Vlw :wink:


Alecsandro Moura

Alecsandro Moura

Curtidas 0

Respostas

Mazzi

Mazzi

18/03/2008

Eu criaria um serviço, que verificaria se a sua aplicação está rodando.
Particularmente, acho q deveria ser uma aplicação que verifica a outra. Tal qual um mutex, que verifica se a a sua aplicação já está rodando.

Pense nisso.

Abraços.


GOSTEI 0
Rodc

Rodc

18/03/2008

Assim não serve?
WinExec(PChar(Application.ExeName), WM_SHOW);
Application.Terminate();



GOSTEI 0
Paullsoftware

Paullsoftware

18/03/2008

Amigo, eu fiz assim uma certa vez...
em um botão fiz...

var
ExeReiniciaAplicacao:String;
begin
ExtractFilePath(ParamStr(0))+´ReiniciaApicacao.exe´;
ExecutaExeReinicia(ExeReiniciaAplicacao,´/locadora´);
Application.Terminate;
end;

Onde:
procedure ExecutaExeReinicia(Nome, Parametros: String);
Var
 Comando: Array[0..1024] of Char;
 Parms: Array[0..1024] of Char;
begin
  StrPCopy (Comando, Nome);
  StrPCopy (Parms, Parametros);
  ShellExecute (0, Nil, Comando, Parms, Nil, SW_SHOW);
end;(* ExecProg *)


Detalhe!!! dentro do Exe auxiliar tem um time que executa a mesma rotina para abrir novamente o exe depois de 10 segundos e um label com a frazer:
Reiniciando Aplicação
espero ter ajudado :wink:


GOSTEI 0
Danilo Emanuel

Danilo Emanuel

18/03/2008

use:

ShellExecute(Handle,'open', PChar(Application.ExeName), nil, nil, SW_SHOWNORMAL);
Application.Terminate;
GOSTEI 0
Jiraya San

Jiraya San

18/03/2008

Olá no meu caso estou fazendo assim:

procedure TfrmPrincipal.LogoffExecute(Sender: TObject);
begin { Botão Logoff de usuário }
  qryLogin.Close;
  qryLogin.SQL.Clear;
  Application.CreateForm(TfrmLogin,frmLogin);
  frmLogin.ShowModal;
  frmLogin.Destroy;
end;
GOSTEI 0
POSTAR