海阔天空

var  MutexHandle: Integer;begin  if OpenMutex(MUTEX_ALL_ACCESS, FALSE, RunOnceMutex)   begin     ShowMessage(This application is already open!);     Exit;  end;  MutexHandle := CreateMutex(nil,

 // 更多关于 S.M.A.R.T. ioctl 的信息可查看: // http://www.microsoft.com/hwdev/download/respec/iocltapi.rtf // MSDN库中也有一些简单的例子 // Windows Development -> Win32 Device Driver Kit -> // SAMPLE: SmartA

delphi7下运行程序即可注册服务器delphi2007只有手工注册或在模块窗口中加入initialization  TComponentFactory.Create(ComServer, TMoneyMgr,    Class_MoneyMgr, ciMultiInstance, tmApartment);  ComServer.UpdateRegistry(True); {加上此