Arquivo

Posts Tagged ‘Firebird’

Verifique se o serviço FireBird está sendo executado

Função verificando se o serviço do banco de dados Firebird esta em execução


uses Tlhelp32

function IsFireBirdRunning: boolean;
const
PROCESS_TERMINATE = $0001;
var
Co: BOOL;
FS: THandle;
FP: TProcessEntry32;
s:  string;
begin
FS := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FP.dwSize := Sizeof(FP);
Co := Process32First(FS, FP);
while integer(Co) <> 0 do
begin
s := s + FP.szExeFile + #13;
Co := Process32Next(FS, FP);
end;
CloseHandle(FS);
if pos('fbserver', s) > 0 then result := true
else result := false;
end;
Categorias:Artigos, Delphi Tags:,
%d blogueiros gostam disto: