[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