Fórum Executar programa ao finalizar o sistema. #184207
25/09/2003
0
Olá, pessoal. Estou com um probleminha. Acredito ser de fácil solução. Mas não estou conseguindo solucionar.
Preciso que ao finalizar o sistema, após desconectar do banco de dados, seja emitida uma mensagem para o Usuário para executar o gerenciador de backup automático, que é um executavel separado do executavel do sistema principal. Pois deve ser executado somente quando o sistema estiver fora do ar.
Sem mais, agradeço desde já.
Fiquem com Deus e que Jesus ilumine seus passos sempre por onde andares.
Ovidio Jr.
Preciso que ao finalizar o sistema, após desconectar do banco de dados, seja emitida uma mensagem para o Usuário para executar o gerenciador de backup automático, que é um executavel separado do executavel do sistema principal. Pois deve ser executado somente quando o sistema estiver fora do ar.
Sem mais, agradeço desde já.
Fiquem com Deus e que Jesus ilumine seus passos sempre por onde andares.
Ovidio Jr.
Ovidio
Curtir tópico
+ 0
Responder
Posts
25/09/2003
Barcelos
Caro amigo,
Tente o seguinte no evento OncloseQuery do Form Principal:
procedure TFPrincipal.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
var Mensagem : String;
S : String;
begin
S := {Caminho do Aplicativo};
Mensagem := ´Deseja efetuar uma cópia dos dados ´+#1310+
´atuais antes de sair ?´;
case MessageDLG(Mensagem,mtConfirmation,[mbYes,mbNo,mbCancel],0) of
mrYes :
begin
Winexec(PChar(S),SW_SHOWNORMAL);
Application.Terminate;
end;
mrCancel:
begin
CanClose := False;
end;
mrNo:
begin
CanClose := True;
end;
end;
end;
---------------------
Você pode opcionalmente usar ShellExecute ao invés de Winexec. Dê uma olhada na ajuda do Delphi para os parâmetros.
Espero ter ajudado
Barcelos
osbarcelos@hotmail.com
Tente o seguinte no evento OncloseQuery do Form Principal:
procedure TFPrincipal.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
var Mensagem : String;
S : String;
begin
S := {Caminho do Aplicativo};
Mensagem := ´Deseja efetuar uma cópia dos dados ´+#1310+
´atuais antes de sair ?´;
case MessageDLG(Mensagem,mtConfirmation,[mbYes,mbNo,mbCancel],0) of
mrYes :
begin
Winexec(PChar(S),SW_SHOWNORMAL);
Application.Terminate;
end;
mrCancel:
begin
CanClose := False;
end;
mrNo:
begin
CanClose := True;
end;
end;
end;
---------------------
Você pode opcionalmente usar ShellExecute ao invés de Winexec. Dê uma olhada na ajuda do Delphi para os parâmetros.
Espero ter ajudado
Barcelos
osbarcelos@hotmail.com
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)