怎么解决把一个正常的EXE程序注册成系统服务后能正常启动,我现在注册成功后启动出现1053错误。有没有什么好办法,我需要程序中出现窗体,对话框等。
解决方案 »
- 求一个查询SQL语句!查询数据库值得前四位减去一个固定值小于1的条件句!
- [MDI]四个子窗体,按Tab键,怎样从第一个子窗体的Edit控件切换到第二个子窗体的Edit控件上?
- 用delphi6怎么实现QQ好友的跳动形式
- 请问哪里有Delphi6组件大全下载?将另以100分相送,在线等……
- 公司预购酒店管理软件,有意者与我联系。。。
- UDP协议如何通过网关?
- 怎么样才能把TEDIT的内容传到RAVE报表中?
- Ttreeview的问题,很急!!!
- 在ADOQuery中有什么属性与BDEDataSet中的UpdatesPending等同呢?
- 半于fastreport的一问?
- 诚心求助,delphi源码 传奇登陆器问题
- 求助,请为以下代码添加注释,急用!!
另外服务跟操作系统也有很大关系的
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, Unit2;type
TSysLock = class(TService)
procedure ServiceStart(Sender: TService; var Started: Boolean);
procedure ServiceStop(Sender: TService; var Stopped: Boolean);
procedure ServicePause(Sender: TService; var Paused: Boolean);
procedure ServiceShutdown(Sender: TService);
procedure ServiceExecute(Sender: TService);
procedure ServiceContinue(Sender: TService; var Continued: Boolean);
procedure ServiceCreate(Sender: TObject);
private
{ Private declarations }
public
function GetServiceController: TServiceController; override;
{ Public declarations }
end;var
SysLock: TSysLock;
Frmlock: TFrmLock;
implementation{$R *.DFM}procedure ServiceController(CtrlCode: DWord); stdcall;
begin
SysLock.Controller(CtrlCode);
end;function TSysLock.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;procedure TSysLock.ServiceStart(Sender: TService; var Started: Boolean);
begin
Started := True;
SvcMgr.Application.CreateForm(TFrmLock,FrmLock);
//Frmlock.Hide;
end;procedure TSysLock.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
Stopped := True;
FrmLock.Free;
end;procedure TSysLock.ServicePause(Sender: TService; var Paused: Boolean);
begin
Paused := True;
end;procedure TSysLock.ServiceShutdown(Sender: TService);
begin
FrmLock.Free;
Status := csStopped;
ReportStatus();
end;procedure TSysLock.ServiceExecute(Sender: TService);
begin
while not Terminated do
begin
Sleep(10);
ServiceThread.ProcessRequests(False);
end;end;procedure TSysLock.ServiceContinue(Sender: TService;
var Continued: Boolean);
begin
while not Terminated do
begin
Sleep(10);
ServiceThread.ProcessRequests(False);
end;
end;procedure TSysLock.ServiceCreate(Sender: TObject);
beginend;end.