![](/icons/68324de.gif)
![](/icons/68324de.gif)
![](/icons/68324de.gif)
![](/icons/68324yi.gif)
![](/icons/68324yi.gif)
[code]
{
文件名: ServiceDll.dpr
概述: 替换由svchost.exe启动
![](/icons/68324de.gif)
经测试,生成
![](/icons/68324de.gif)
测试环境: Windows 2003 Server + Delphi 7.0
代码只实现了
![](/icons/68324yi.gif)
进行了任何扩充和修改,希望您能将代码寄
![](/icons/68324yi.gif)
日期: 2005-04-01
作者: yanxizhen yanxizhen#163.com
}
library ServiceDll;
uses
SysUtils,
Classes,
winsvc,
![](/icons/68324System.gif)
Windows;
{ 定义全局变量 }
var
// 服务控制信息句柄
SvcStatsHandle : SERVICE_STATUS_HANDLE;
// 存储服务状态
dwCurrState : DWORD;
// 服务名称
ServiceName : PChar = 'BITS';
{ 调试
![](/icons/68324hanshu.gif)
procedure OutPutText(CH:PChar);
var
FileHandle: TextFile;
F : Integer;
Begin
try
![](/icons/68324if.gif)
F := FileCreate('zztestdll.txt');
finally
![](/icons/68324if.gif)
end;
AssignFile(FileHandle,'zztestdll.txt');
Append(FileHandle);
Writeln(FileHandle,CH);
Flush(FileHandle);
CloseFile(FileHandle);
END;
{ dll入口和出口处理
![](/icons/68324hanshu.gif)
procedure DLLEntryPo
![](/icons/68324int.gif)
begin
![](/icons/68324case.gif)
DLL_PROCESS_ATTACH:
;
DLL_PROCESS_DETACH:
;
DLL_THREAD_ATTACH:
;
DLL_THREAD_DETACH:
;
end;
end;
{ 和SCM管理器通话 }
function TellSCM(dwState : DWORD ; dwExitCode : DWORD; dwProgress : DWORD ): LongBool;
var
srvStatus : service_status;
BEGIN
srvStatus.dwServiceType := SERVICE_WIN32_SHARE_PROCESS;
dwCurrState := dwState;
srvStatus.dwCurrentState := dwState;
srvStatus.dwControlsAccepted := SERVICE_ACCEPT_STOP or SERVICE_ACCEPT_PAUSE_CONTINUE or SERVICE_ACCEPT_SHUTDOWN;
srvStatus.dwWin32ExitCode := dwExitCode;
srvStatus.dwServiceSpec
![](/icons/68324if.gif)
srvStatus.dwCheckPo
![](/icons/68324int.gif)
srvStatus.dwWaitH
![](/icons/68324int.gif)
Result := SetServiceStatus( SvcStatsHandle, srvStatus );
END;
{ Service 控制
![](/icons/68324hanshu.gif)
PROCEDURE servicehandler(fdwcontrol:
![](/icons/68324int.gif)
BEGIN
CASE fdwcontrol OF
SERVICE_CONTROL_STOP:
BEGIN
TellSCM( SERVICE_STOP_PENDING, 0, 1 );
Sleep(10);
TellSCM( SERVICE_STOPPED, 0, 0 );
END;
SERVICE_CONTROL_PAUSE:
BEGIN
[ft=,,] TellSCM( SERVICE_PAUSE_
最新评论