在未使用界面之前，服务的4个功能都可以良好的实现，未出现异常。
但是
在嵌入到界面中后，服务停止时，在任务管理器中显示的服务进程并没有马上销毁。
而是在10几秒后 ，产生一个错误报告才销毁。在服务管理器中 启动和停止服务，结果一样。
疑问：是否是因为界面的问题？ 还是创建的服务本身有问题？（可是在未用界面时可以正常实现。。）
求高手指点~~
-
等级
本版专家分：1593结帖率 97.78% -
界面控制系统服务的安装、启动、停止和卸载，其中全部函数均为winAPI函数。
在未使用界面之前，服务的4个功能都可以良好的实现，未出现异常。
但是
在嵌入到界面中后，服务停止时，在任务管理器中显示的服务进程并没有马上销毁。
而是在10几秒后 ，产生一个错误报告才销毁。在服务管理器中 启动和停止服务，结果一样。
疑问：是否是因为界面的问题？ 还是创建的服务本身有问题？（可是在未用界面时可以正常实现。。）
求高手指点~~展开阅读全文
-
等级
本版专家分：1593
-
program AServiceTest;
uses
windows, Messages, ShellApi, WinSvc,SvcMgr, SysUtils,Dialogs;
{$R *.res}
const
id_Button1 = 100;
id_Button2 = 200;
id_Button3 = 300;
id_Button4 = 400;
id_Button5 = 500;
id_Button6 = 600;
Qidong = 7 ;
Tingzhi = 8 ;
Xiezai = 9 ;
ServiceName = 'AServiceTest';
ServiceDisplayName='AService';
var
ServiceStatusHandle:SERVICE_STATUS_HANDLE;
ssStatus:TServiceStatus;
dwErr:DWORD;
ServiceTableEntry:array [0..1] of TServiceTableEntry;
hServerStopEvent:THandle;
// Get error message
function GetLastErrorText:string;
var
dwSize:DWORD;
lpszTemp:LPSTR;
begin
dwSize:=512;
lpszTemp:=nil;
try
GetMem(lpszTemp,dwSize);
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_ARGUMENT_ARRAY,
nil,GetLastError,LANG_NEUTRAL,lpszTemp,dwSize,nil);
finally
Result:=StrPas(lpszTemp);
FreeMem(lpszTemp);
end;
end;
// Write error message to Windows NT Event Log
procedure AddToMessageLog(sMsg:string);
var
sString:array [0..1] of string;
hEventSource:THandle;
begin
hEventSource:=RegisterEventSource(nil,ServiceName);
if hEventSource>0 then
begin
sString[0]:=ServiceName+' error: '+IntToStr(dwErr);
sString[1]:=sMsg;
ReportEvent(hEventSource,EVENTLOG_ERROR_TYPE,0,0,nil,2,0,@sString,nil);
DeregisterEventSource(hEventSource);
end;
end;
function ReportStatusToSCMgr(dwState,dwExitCode,dwWait:DWORD):BOOL;
begin
Result:=True;
with ssStatus do
begin
if (dwState=SERVICE_START_PENDING) then
dwControlsAccepted:=0
else
dwControlsAccepted:=SERVICE_ACCEPT_STOP;
dwCurrentState:=dwState;
dwWin32ExitCode:=dwExitCode;
dwWaitHint:=dwWait;
if (dwState=SERVICE_RUNNING) or (dwState=SERVICE_STOPPED) then
dwCheckPoint:=0
else
inc(dwCheckPoint);
end;
Result:=SetServiceStatus(ServiceStatusHandle,ssStatus);
if not Result then AddToMessageLog('SetServiceStauts');
end;
procedure ServiceStop;
begin
if (hServerStopEvent>0) then
begin
SetEvent(hServerStopEvent);
end;
end;
procedure ServiceStart;
var
dwWait:DWORD;
begin
// Report Status
if not ReportStatusToSCMgr(SERVICE_START_PENDING,NO_ERROR,3000) then exit;
hServerStopEvent:=CreateEvent(nil,TRUE,False,nil);
if hServerStopEvent=0 then
begin
AddToMessageLog('CreateEvent');
exit;
end;
if not ReportStatusToSCMgr(SERVICE_RUNNING,NO_ERROR,0) then
begin
CloseHandle(hServerStopEvent);
exit;
end;
// Service now running , perform work until shutdown
while True do
begin
// Wait for Terminate
MessageBeep(1);
dwWait:=WaitforSingleObject(hServerStopEvent,1);
if dwWait=WAIT_OBJECT_0 then
begin
CloseHandle(hServerStopEvent);
exit;
end;
Sleep(1000*30); //23 秒 临界 销毁时不发生错误 ？？
end;
end;
procedure Handler(dwCtrlCode:DWORD);stdcall;
begin
// Handle the requested control code.
case dwCtrlCode of
SERVICE_CONTROL_STOP:
begin
ReportStatusToSCMgr(SERVICE_STOP_PENDING, NO_ERROR, 0);
ServiceStop;
ReportStatusToSCMgr(SERVICE_STOPPED,GetLastError,0);
exit;
end;
SERVICE_CONTROL_INTERROGATE:
begin
end;
SERVICE_CONTROL_PAUSE:
begin
end;
SERVICE_CONTROL_CONTINUE:
begin
end;
SERVICE_CONTROL_SHUTDOWN:
begin
end;
// invalid control code
else
end;
// Update the service status.
ReportStatusToSCMgr(ssStatus.dwCurrentState, NO_ERROR, 0);
end;
procedure ServiceMain;
begin
// Register the handler function with dispatcher;
ServiceStatusHandle:=RegisterServiceCtrlHandler(ServiceName,ThandlerFunction(@Handler));
if ServiceStatusHandle=0 then
begin
ReportStatusToSCMgr(SERVICE_STOPPED,GetLastError,0);
exit;
end;
ssStatus.dwServiceType:=SERVICE_WIN32_OWN_PROCESS;
ssStatus.dwServiceSpecificExitCode:=0;
ssStatus.dwCheckPoint:=1;
// Report current status to SCM (Service Control Manager)
if not ReportStatusToSCMgr(SERVICE_START_PENDING,NO_ERROR,3000) then
begin
ReportStatusToSCMgr(SERVICE_STOPPED,GetLastError,0);
exit;
end;
// Start Service
ServiceStart;
end;
procedure InstallService;
var
schService:SC_HANDLE;
schSCManager:SC_HANDLE;
lpszPath:LPSTR;
dwSize:DWORD;
begin
dwSize:=512;
GetMem(lpszPath,dwSize);
if GetModuleFileName(0,lpszPath,dwSize)=0 then
begin
FreeMem(lpszPath);
MessageDlg('Unable to install.',mtError,[mbOk],0);
exit;
end;
FreeMem(lpszPath);
schSCManager:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
if (schSCManager>0) then
begin
schService:=CreateService(schSCManager,ServiceName,ServiceDisplayName,
SERVICE_ALL_ACCESS,SERVICE_WIN32_OWN_PROCESS,SERVICE_AUTO_START,
SERVICE_ERROR_IGNORE,lpszPath,nil,nil,nil,nil,nil);
if (schService>0) then
begin
MessageDlg('Install OK.',mtInformation,[mbOk],0);
CloseServiceHandle(schService);
end
else
MessageDlg('Install Fail.',mtError,[mbOk],0);
end
else
MessageDlg('Unable to install.',mtError,[mbOk],0);
end;
procedure UnInstallService;
var
schService:SC_HANDLE;
schSCManager:SC_HANDLE;
begin
schSCManager:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
if (schSCManager>0) then
begin
schService:=OpenService(schSCManager,ServiceName,SERVICE_ALL_ACCESS);
if (schService>0) then
begin
// Try to stop service at first
if ControlService(schService,SERVICE_CONTROL_STOP,ssStatus) then
begin
//returns the most recent service status information reported
while (QueryServiceStatus(schService,ssStatus)) do
begin
if ssStatus.dwCurrentState=SERVICE_STOP_PENDING then
begin
Write('.');
Sleep(1000);
end
else
break;
end;
if ssStatus.dwCurrentState<>SERVICE_STOPPED then
begin
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
MessageDlg('Service Stop Fail.',mtError,[mbOk],0);
exit;
end;
end;
// Remove the service
if (DeleteService(schService)) then
MessageDlg('Service Uninstall Ok.',mtInformation,[mbOk],0)
else
MessageDlg('DeleteService fail .',mtError,[mbOk],0);
CloseServiceHandle(schService);
end
else
MessageDlg('OpenService fail .',mtError,[mbOk],0);
CloseServiceHandle(schSCManager);
end
else
MessageDlg('Open Service fail .',mtError,[mbOk],0);
end;
-
等级
本版专家分：1593
-
function PlainWinProc(hWnd:THandle; nMsg:UINT;
wParam,lParam:Cardinal):Cardinal;export;stdcall;
var
Rect:TRect;
begin
result:=0;
case nMsg of
wm_Create:
begin
CreateWindowEx(0,'Button','&HELLO',ws_Child or ws_Visible or
ws_Border or bs_PushButton,
0,0,80,30,hWnd,id_Button1,hInstance,nil);
CreateWindowEx(0,'Button','&退出',ws_Child or ws_Visible or
ws_Border or bs_PushButton,
0,0,80,30,hWnd,id_Button2,hInstance,nil);
CreateWindowEx(0,'Button','&安装服务',ws_Child or ws_Visible or
ws_Border or bs_PushButton,
0,0,80,30,hWnd,id_Button3,hInstance,nil);
CreateWindowEx(0,'Button','&启动服务',ws_Child or ws_Visible or
ws_Border or bs_PushButton,
0,0,80,30,hWnd,id_Button4,hInstance,nil);
CreateWindowEx(0,'Button','&停止服务',ws_Child or ws_Visible or
ws_Border or bs_PushButton,
0,0,80,30,hWnd,id_Button5,hInstance,nil);
CreateWindowEx(0,'Button','&卸载服务',ws_Child or ws_Visible or
ws_Border or bs_PushButton,
0,0,80,30,hWnd,id_Button6,hInstance,nil);
end;
wm_Size:
begin
GetClientRect(hWnd,Rect);
SetWindowPos(GetDlgItem(hWnd,id_Button1),0,Rect.Right div 2-215,
Rect.Bottom div 2-50,0,0,swp_NoZOrder or swp_NoSize);
SetWindowPos(GetDlgItem(hWnd,id_Button2),0,Rect.Right div 2-65,
Rect.Bottom div 2-50,0,0,swp_NoZOrder or swp_NoSize);
SetWindowPos(GetDlgItem(hWnd,id_Button3),0,Rect.Right div 2-300,
Rect.Bottom div 2-10,0,0,swp_NoZOrder or swp_NoSize);
SetWindowPos(GetDlgItem(hWnd,id_Button4),0,Rect.Right div 2-200,
Rect.Bottom div 2-10,0,0,swp_NoZOrder or swp_NoSize);
SetWindowPos(GetDlgItem(hWnd,id_Button5),0,Rect.Right div 2-100,
Rect.Bottom div 2-10,0,0,swp_NoZOrder or swp_NoSize);
SetWindowPos(GetDlgItem(hWnd,id_Button6),0,Rect.Right div 2,
Rect.Bottom div 2-10,0,0,swp_NoZOrder or swp_NoSize);
end;
wm_Command: //按键触发
begin
case LoWord(wParam) of
id_Button1:
begin
if HiWord(wParam)=bn_Clicked then
MessageBox(hWnd,'OK','Demo',MB_OK);
end;
id_Button2:
begin
if HiWord(wParam)=bn_Clicked then
Halt;
end;
id_Button3: //安装
begin
if HiWord(wParam)=bn_Clicked then
InstallService;
end;
id_Button4: //启动
begin
if HiWord(wParam)=bn_Clicked then
StartClick;
end;
id_Button5: //停止
begin
if HiWord(wParam)=bn_Clicked then
StopClick;
end;
id_Button6: //卸载
begin
if HiWord(wParam)=bn_Clicked then
UnInstallService;
end;
end;
end;
wm_DropFiles:
begin
MessageBox(hWnd,'Drop File','Plain API',MB_OK);
DragFinish(wParam);
end;
wm_Destroy:
PostQuitMessage(0);
else
result:=DefWindowProc(hWnd,nMsg,wParam,lParam);
end;
end;
procedure WinMain;
var
hWnd,hWnd2:THandle;
Msg:TMsg;
Rect:TRect;
WndClassEx:TWndClassEx;
wParam:Cardinal;
begin
WndClassEx.cbSize:=SizeOf(TWndClassEx);
WndClassEx.lpszClassName:='PlainWindow';
WndClassEx.style:=CS_HREDRAW or CS_VREDRAW;
WndClassEx.hInstance:=Hinstance;
WndClassEx.lpfnWndProc:=@PlainWinProc;
WndClassEx.cbClsExtra:=0;
WndClassEx.cbWndExtra:=0;
WndClassEx.hIcon:=LoadIcon(Hinstance,Pchar('MAINICON'));
WndClassEx.hIconSm:=LoadIcon(Hinstance,Pchar('MAINICON'));
WndClassEx.hCursor:=LoadCursor(0,idc_Arrow);
WndClassEx.hbrBackground:=GetStockObject(black_Brush);
WndClassEx.lpszMenuName:=nil;
if RegisterClassEx(WndClassEx)=0 then
begin
MessageBox(0,'Invaild Class registration','Plain API',MB_OK);
exit;
end
else begin
hWnd:=CreateWindowEx( WS_EX_ACCEPTFILES,
WndClassEx.lpszClassName,
'Demo',ws_OverlappedWindow,
cw_UseDefault,0,cw_UseDefault,0,0,0,
Hinstance,nil);
if hWnd=0 then
MessageBox(0,'Window not Created','Demo',MB_OK)
else begin
ShowWindow(hwnd,SW_ShowNormal);
while GetMessage(Msg,0,0,0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
ServiceTableEntry[0].lpServiceName:=ServiceName;
ServiceTableEntry[0].lpServiceProc:=TServiceMainFunction(@ServiceMain);
ServiceTableEntry[1].lpServiceName:=nil;
ServiceTableEntry[1].lpServiceProc:=nil;
if not StartServiceCtrlDispatcher(ServiceTableEntry[0]) then
begin
AddToMessageLog('StartServiceCtrlDispatcher Error!');
end;
end;
end;
end;
end;
begin
WinMain;
end.
以上 是程序全部代码
-
等级
本版专家分：1220 -
贴出错误信息
-
等级
本版专家分：1593
-
已经解决了，是服务分派机的问题。。。
-
等级
本版专家分：1593
-
已经解决了，是服务分派机的问题。。。
- 服务状态停止或启动，无法启动也无法停止问题
服务无法启动也无法停止
- 将C#程序做成服务后服务自动停止的问题
查了好几天，没法调试实在是很难找错误，今天想了半天到事件查看器，提示如下： 说明: 由于未经处理的异常，进程终止。 异常信息: System.NullReferenceException ...想了半天，应该是没用try catch捕获错误，...
- tomcat服务莫名其妙停止
1. 服务停止 最初以为是jvm导致的，但是在/var/log并没有找到jvm致命错误日志（hs_err_pid.log） 又排除了GC情况，使用 jstat -gc pid 5000查看也没发现问题 最后还是从日志入手 原因：日志中存在不明进程销毁...
- win2003 sp1 server服务自动停止故障解决
事件日志如下： svchost.exe [5576] 中发生未处理的 win32 异常。 对此异常的实时调试失败，错误为: 未能启动调试器，因为没有用户登录。 有关更多信息，请查看文档索引中的“实时调试，错误”。...
- node服务器关闭终端服务器停止问题
使用pm2
- 【错误解决】本地计算机上的mysql服务启动停止后,某些服务在未由其他服务或程序使用时将自动停止
本地计算机上的mysql服务启动停止后,某些服务在未由其他服务或程序使用时将自动停止。mysql 版本 5.7.14 系统 win 7后来经过一系列的百度，谷歌，总算是解决了。首先，你需要把原来的服务删除：mysqld --remove ...
- android 运行服务停止的问题
android 中的一个程序使用 requestLocationUpdates 服务，每两分钟就能获取用户的当前位置。我现在想实现，当程序运行到25分钟时，运行服务就停止，如何实现呢？
- 关于SQL服务管理器自动停止的问题
google_ad_client = "pub-6924533005275861";google_ad_slot = "4211741364";google_ad_width = 336;google_ad_height = 280;<script type="text/javascript"src="http://pagead2.googlesyndication.com
- 关于mongodb服务自动停止问题
昨天发现系统宕机了，查了下原因是mongodb服务停了，看了下日志： 2017-10-18T18:09:59.181+0800 I CONTROL [signalProcessingThread] got signal 1 (Hangup), will terminate after current cmd ends ...
- 本地计算机上的 MSSQLSERVER 服务启动后又停止了 问题分析
本地计算机上的 MSSQLSERVER 服务启动后又停止了 问题分析 本地计算机上的 MSSQLSERVER 服务启动后又停止了 问题分析 本地计算机上的MSSQLSERVER服务启动后又停止了。一些服务自动停止，忽然想起，...
- Eclipse中Tomcat服务器停止时的问题
 停止时就是这样。。不知道怎么解决。可以运行但是不能停止。
- Oracle TNSListener服务启动后自动停止问题
一直都连公司的数据库，今天突然要用本机的数据库，可是却发现我的TNSListener 启动后自动停止，又试了两次还是不行，上网搜索了一下，发现和我遇到一样问题人还真是挺多的。 网上一般有这么几种说法 方法1.直接...
- 线上服务器tomcat老是莫名其妙自动停止问题
今天又碰到了，因为没有做监控，服务挂了也不知道，刚开始还以为是服务器被谁攻击了，三天两头挂掉，今天查了一下，发现是系统内存太满，自动把tomcat进程给杀死的！ 执行vim /var/log/messages即可看到如下信息...
- ORACLE各种服务启动与停止，以及常见问题解决
1，启动数据库 第一种，以sys用户连接 c:/>sqlplus sys/change_on_install as sysdba; 进入sql*plus环境；（注意，ORACLE9I在安装的时候需要你自己设定sys和system的口令，并且不能才用...
- windows环境安装RabbitMQ服务启动自动停止问题解决
最近项目用到了消息队列，选择了比较常用的RabbitMQ，在安装时遇到了RabbitMQ服务启动自动停止问题，在百度之后，逐步排查问题： 1、RabbitMQ的开发环境Erlang安装，配置Erlang的环境变量没问题 2、RabbitMQ的安装...
- Windows中系统服务出现卡在 停止挂起、stopping、starting等状态的问题解决
我们经常会把apache,tomcat,mysql等程序注册为系统服务，在服务器管理器中重启或关闭服务时，经常会卡在“停止服务”状态，有时候等一下会关闭成功，但有时会卡住，等很久都不能关闭。有的人遇到的情况类似，有的...
- nfs服务器停止服务导致客户端卡死问题
今天遇到的问题，公司文件服务器上所提供的nfs服务停止服务，导致elk的存在nfs挂载盘中的数据库es不能访问，排查过程中怀疑是磁盘满了，所以使用df -Th查看磁盘使用情况，发现df命令卡死，因此想到挂载盘，查看挂载...
- Mysql服务启动遇到“某些服务启动后自动停止”的问题的解决方案
命令行切换到mysql的bin目录：执行命令 mysqld --initialize，搞定
- 自己写的系统服务程序停止问题
创建系统服务程序时，dwControlsAccepted设置如下： ServiceStatus.dwControlsAccepted = SERVICE_ACCEPT_SHUTDOWN; 不接受SERVICE_ACCEPT_STOP命令... (LPSERVICE_STATUS) &ssp )不起作用的情况下程序如何停止服务。
- MYSQL8.0.17中出现MySQL服务启动时显示本地计算机上的MySQL服务启动后停止。某些服务在未由其它服务或。。...
MYSQL8.0.17中出现MySQL服务启动时显示本地计算机上的MySQL服务启动后停止。某些服务在未由其它服务或… 以前使用的 mysql 5 版本的 , 后来更新为 mysql 8 , 因为被时区问题困扰 ,查找博客后 对 my.ini 文件进行了...
- oracle监听服务启动不了 启动后又停止问题解决
C:\Documents and Settings\All Users\「开始」菜单\程序\Oracle - OraHome81\Network ...产生这个问题的原因是listener服务不正常，因此需要重建这个服务。 解决方法如下： 1、进入dos窗口，手工启动li
- 解决“arcsde服务启动又停止的问题”
该问题产生的原因可查看文件：F:\Program Files\ArcGIS\ArcSDE\ora11gexe\etc\sde_esri_sde.log 文件中提示密码失效：ORA-28002: the password will expire within 7 days 2）更改SDE用户密码 可以用SQL...
- informatica服务启动即停止问题解决方案
问题： 在window10下安装好informatica8.6.1之后，发现console无法访问，安装的最后一步一直提示ping不同域的错。 解决过程： 1、查看informatica服务是否已启动 打开windows服务，发现informatica服务...
- 解决MySQL的Windows服务无法停止和删除的问题
我在 Windows 操作系统上，使用解压压缩包的方式安装 MySQL。...在执行如下命令：mysqld --install MySQL --defaults-file=[ini配置文件绝对路径]1在执行上面那个命令的时候，输入了错误的配置文件路径。...
- PostgreSQL 服务启动后停止
亲测，可用 操作步骤：菜单——Windows PowerShell——右键Windows PowerShell——以管理员身份运行——netsh winsoc reset 运行成功后会提示重置成功，重启计算机才能生效 ...
- 批处理启动和停止服务
使用批处理设置、启动和停止服务 当电脑安装了数据库服务（如，Oracle、SQLServer）或一些...所以我们就通过“管理工具”中的“服务”将所有不必要的服务停止。但是每次用到的时候或不用的时候手工去启动和停止比...
- MySQL80服务启动后停止的解决办法
##解决办法 ... 尝试重启MySQL80 如果还是不能启动 返回设置my.ini文件，你的secure-file-priv 那里应该没设置对，secure-file-priv=‘’，中间不要加空格！ 我就是这里卡了，所有教程都没用，小细节害死人！...
- tomcat服务器莫名停止服务的原因
我们初学者朋友会不会遇到这么一个场景，就是在费了好大功夫配置好的tomcat服务器，也链接上了mysql，但是一段时间后再连上的时候却发现tomcat不在服务状态，什么没做但是却在tomcat的运行日志里面发现了报错信息，...
- 巧用WINDOWS计划任务解决SERV-U服务自动停止问题（windows7 2008 xp）
由与破解版的SERV-U普遍存在运行6小时或12小时自动停止问题。笔者巧妙使用WINDOWS的计划任务解决了此问题，实现了使SERV-U在停止时通过计划任务自动启动的效果。 具体操作步骤如下（只在WINDOWS2008下测试）： ...