[firebase-br] Saber se Serviço Firebird está Ativo + Linha de Comando

Silvio Clécio silvioprog em gmail.com
Sex Jan 23 21:50:52 -03 2009


Olá pessoal,
---------------------------------
uses
  TLHelp32;
....................
function scGetProcess(ExeName: string): Boolean;
var
  ProcEntry: TProcessEntry32;
  Hnd: THandle;
  Fnd: Boolean;
begin
// Verify an executable was already open

  Result := False;
  Hnd := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  {$WARNINGS OFF}
  if Hnd <> - 1 then
  {$WARNINGS ON}
    begin
      ProcEntry.dwSize := SizeOf(TProcessEntry32);
      Fnd := Process32First(Hnd, ProcEntry);
      while Fnd do
        begin
          if (LowerCase(ProcEntry.szExeFile) =
            LowerCase(ExeName)) then
            begin
              Result := True;
              Break;
            end;
          Fnd := Process32Next(Hnd, ProcEntry);
        end;
      CloseHandle(Hnd);
    end;
end;
---------------------------------
2009/1/23 Timóteo M. Rico <timoteomr em gmail.com>

> Olá pessoal.
>
> Gostaria de saber se tem alguma linha de comando que retorne se o servidor
> firebird está ativo ou desativado.
>
> Precisaria fazer uma rotina dessa em meu software para alertar o usuário
> com
> uma mensagem....
>
> Utilizo Delphi, se alguém souber de algum componente que auxilie nisso ou
> algum próprio comando do firebird que retorne se ativo ou inativo o
> serviço...
>
> Desde já, agradeço
> --
> Timóteo Matthies Rico
>
-- 
[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silvioprog em yahoo.com.br
Gmail, GTalk: silvioprog em gmail.com
Hotmail, MSN: silvioprog em hotmail.com
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°



Mais detalhes sobre a lista de discussão lista