Startar Firebird pela aplicação Delphi
Boa Noite, gostaria de saber como posso fazer para verificar se o Firebird está no ar através da Aplicação Delphi, e caso não esteja, startá-lo.
Se alguém poder responder, agradeço antecipadamente.
Se alguém poder responder, agradeço antecipadamente.
Sergiowilson.sp
Curtidas 0
Respostas
Marcelo
24/03/2007
Caro sergiowilson.sp.
Basta executar o seguinte comando:Espero ter ajudado!
At+vr...
Basta executar o seguinte comando:
WinExec( pChar(´<CAMINHO DO FIREBIRD>bin\instsvc.exe start´), 0 );
At+vr...
GOSTEI 0
Essistemas
24/03/2007
Eu faço asssim no source do meu programa
if FindWindow(´Fb_Guard´, nil) > 0 then
begin
end
else
begin
MensagemTela(´Aviso ao Usuário´,´ UM PROGRAMA NESCESSÁRIO,´
+Chr(13)+´PARA O FUNCIONAMENTO DESTA APLICAÇÃO ´
+Chr(13)+´NÃO ESTÁ ATIVO, O SISTEMA TENTARÁ´
+Chr(13)+´ ATIVA-LO AUTOMATICAMENTE !.´,´´,Mb_OK + Mb_IconError);
WinExec(´C:\Arquivos de Programas\Firebird\FireBird_1_5\Bin\FbGuard.Exe -a´ ,1);
if FindWindow(´Fb_Guard´, nil) > 0 then
begin
end
else
begin
MensagemTela(´Aviso de Erro´, ´O SISTEMA NÃO CONSEGUIU ATIVAR,O PROGRAMA´
+Chr(13)+ ´CHAMADO FIREBIRD. TENTE REINICIAR O COMPUTADOR,´
+chr(13)+ ´SE NÃO RESOLVER TENTE REINSTALAR ESTE PROGRAMA,´
+chr(13)+´QUE ECONTRA-SE NO CD DE INSTALAÇÃO.´
+Chr(13)+´ O PROGRAMA SERÁ FINALIZADO !.´,´´,Mb_OK + Mb_IconError);
Halt
end;
end;
end;
if FindWindow(´Fb_Guard´, nil) > 0 then
begin
end
else
begin
MensagemTela(´Aviso ao Usuário´,´ UM PROGRAMA NESCESSÁRIO,´
+Chr(13)+´PARA O FUNCIONAMENTO DESTA APLICAÇÃO ´
+Chr(13)+´NÃO ESTÁ ATIVO, O SISTEMA TENTARÁ´
+Chr(13)+´ ATIVA-LO AUTOMATICAMENTE !.´,´´,Mb_OK + Mb_IconError);
WinExec(´C:\Arquivos de Programas\Firebird\FireBird_1_5\Bin\FbGuard.Exe -a´ ,1);
if FindWindow(´Fb_Guard´, nil) > 0 then
begin
end
else
begin
MensagemTela(´Aviso de Erro´, ´O SISTEMA NÃO CONSEGUIU ATIVAR,O PROGRAMA´
+Chr(13)+ ´CHAMADO FIREBIRD. TENTE REINICIAR O COMPUTADOR,´
+chr(13)+ ´SE NÃO RESOLVER TENTE REINSTALAR ESTE PROGRAMA,´
+chr(13)+´QUE ECONTRA-SE NO CD DE INSTALAÇÃO.´
+Chr(13)+´ O PROGRAMA SERÁ FINALIZADO !.´,´´,Mb_OK + Mb_IconError);
Halt
end;
end;
end;
GOSTEI 0
Sergiowilson.sp
24/03/2007
Valeu Pessoal, vou testar as duas soluções.
Obrigado pela força.
Obrigado pela força.
GOSTEI 0