Fórum Startar Firebird pela aplicação Delphi #339269

Caro sergiowilson.sp.

Basta executar o seguinte comando:Espero ter ajudado!

At+vr...

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;

Valeu Pessoal, vou testar as duas soluções.
Obrigado pela força.