怎样在程序开始之前启动Interbase服务，在程序关闭时也关闭Interbase服务？

TourAn 2003-05-12 03:20:53

怎样在程序开始之前启动Interbase服务，在程序关闭时也关闭Interbase服务？

客户这样要求，真tmd没有办法：（

...全文

242 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxy6080 2003-06-17

打赏
举报

Acquarius 2003-05-20

打赏
举报

承蒙楼上夸奖。

chngoing 2003-05-20

打赏
举报

你想法是不错，不过最好还能在系统托盘中隐藏ib server的图标，而且在进程管理器中隐藏ib server 的进程。

Acquarius 2003-05-20

打赏
举报

启动代码如上。

Acquarius 2003-05-20

打赏
举报

String __fastcall TMainForm::GetIBRootDir()
{
String Res;
TRegistry *R=new TRegistry();

R->RootKey=HKEY_LOCAL_MACHINE;
if(R->OpenKey("\Software\Borland\Interbase\CurrentVersion", false))
Res=R->ReadString("RootDirectory");
else
Res="";

delete R;
return Res;
}

Acquarius 2003-05-20

打赏
举报

呵呵。其实我也不是想要分，不过这个问题确实太难了。我先把启动服务的代码给你：

void __fastcall TMainForm::StartIB()
{
String PathToGuardian;
HINSTANCE Res;
SC_HANDLE ServiceHandle;

if(Win32Platform==VER_PLATFORM_WIN32_NT) //NT/XP Platform
{
ServiceHandle=GetIBHandle();
if(ServiceHandle==NULL) //fatal error, cannot get service handle
Application->Terminate();

if(!StartService (ServiceHandle, 0, NULL))
{
ShowMessage("Service start error: "+GetErrorMsg());
//error: cannot start service, maybe already running?
}
}
else // Win9X platform
{
PathToGuardian=GetIBDir()+"ibguard.exe";
Res=ShellExecute(this->Handle,NULL, PathToGuardian.c_str(), "", GetIBRootDir().c_str(), SW_NORMAL);
if((int)Res<=32)
ShowMessage("Unable to start IB server!");
}
}
//---------------------------------------------------------------------------

SC_HANDLE __fastcall TMainForm::GetIBHandle()
{
SC_HANDLE SCMHandle;
SC_HANDLE Res=NULL;

SCMHandle=OpenSCManager(NULL, NULL, GENERIC_EXECUTE);
if(SCMHandle==NULL)
{
ShowMessage("SCM Error: "+GetErrorMsg());
}
else
{
Res=OpenService(SCMHandle, "InterBaseGuardian", SERVICE_ALL_ACCESS);
if(Res==NULL)
{
ShowMessage("Service open error: "+GetErrorMsg());
}
}

return Res;
}

String __fastcall TMainForm::GetIBDir()
{
TRegistry *R=new TRegistry();
String Res;

R->RootKey=HKEY_LOCAL_MACHINE;
if(R->OpenKey("\Software\Borland\Interbase\CurrentVersion", false))
Res=R->ReadString("ServerDirectory");
else
Res="";

delete R;
return Res;
}

erickleung 2003-05-19