Olá pessoal,
Omar, eu uso uma função para saber se o "fbserver.exe" está na lista de
processos do Windows, eu mesmo a criei, você pode modificá-la.
uses
TLHelp32;
function scFBIsActive: Boolean;
var
ProcEntry: TProcessEntry32;
Hnd: THandle;
Fnd: Boolean;
begin
// Firebird is active?
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 (ProcEntry.szExeFile = FBSer) then
begin
Result := True;
Break;
end;
Fnd := Process32Next(Hnd, ProcEntry);
end;
CloseHandle(Hnd);
end;
end;
________________________________
[]'s, Silvio Clécio
Contatos/Blog
Skype: silvioprog
E-mail, Yahoo! Messenger: [EMAIL PROTECTED]
Gmail, Google Talk: [EMAIL PROTECTED]
Hotmail, MSN: [EMAIL PROTECTED]
BlogSpot: http://silvioclecio.blogspot.com/
________________________________
De: Omar Marques <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 3 de Dezembro de 2008 7:11:26
Assunto: [delphi-br] Ref. Servidor Firebird
Salve,
Algúem sabe como poder identificar, antes da aplicação rodar, se o servidor
Firebird está no ar ?
Obrigado
Abraço
Omar M. Haddad
Analista de Sistemas
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
