Executar programa ao finalizar o sistema.
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
Curtidas 0
Respostas
Barcelos
25/09/2003
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
GOSTEI 0