1 2 3 4 5 6 7 8 9 10 11 12 13
|
if Win32PlatForm = VER_PLATFORM_WIN32_WINDOWS Then
Begin // Windows 98 SE
WinExec(PChar(ApplicPath+'bin\FBGuard -a'),SW_SHOW);
Result := True;
exit;
end;
If RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SOFTWARE\Firebird Project\Firebird Server\Instances', 0, KEY_READ, Key)
<> ERROR_SUCCESS Then //Le moteur Firebird n'est pas installé
WinExec(PChar(ApplicPath+'bin\InstReg Install -z'),SW_HIDE);
Try
if Boolean(FindWindow('FB_Server','FireBird Server')) = False then // FbGuardian n'est pas actif
WinExec(PChar(ApplicPath+'bin\InstSvc install -superserver -guardian'),SW_HIDE); |
Partager