Delphi 利用CreateService写与桌面交互的win32服务


本文整理自网络,侵删。

  

功能包括 注册服务 开启服务 停止??? 不停..... 删除服务 4个功能

好的 重点在于CreateService的第5个参数设置

schd:=CreateService(mgrhd,

'TRsvc',

'TRsvc',

SERVICE_ALL_ACCESS,

SERVICE_WIN32_OWN_PROCESS or SERVICE_INTERACTIVE_PROCESS, //interact with the desktop

SERVICE_AUTO_START,

SERVICE_ERROR_IGNORE,

szstr,

nil,

nil,

nil,

nil,

nil);

你可以去看MSDN 或者 找到Winsvc.pas即可

本来想用SYSTEM权限来结束杀毒进程...但是却为实现之 原因很多 其中就包括自己很懒 能力有限 谁愿意完成么?

或者告诉我下这个并不可行 在此谢过看客~

------------------------------------------------------------------------code-----------------------------------------------------------------------------------

uses winSVC;


var

schd:SC_HANDLE;

mgrhd:SC_HANDLE;

scs:TServiceStatus;

procedure TForm1.takeitdown1Click(Sender: TObject);

begin

ShowMessage('测试~');

end;

procedure TForm1.CS1Click(Sender: TObject);

var szstr:pchar;

begin

mgrhd:=OpenSCManager('',nil,SC_MANAGER_ALL_ACCESS);

szstr:=pchar(application.exename);

schd:=CreateService(mgrhd,

'TRsvc',

'TRsvc',

SERVICE_ALL_ACCESS,

SERVICE_WIN32_OWN_PROCESS or SERVICE_INTERACTIVE_PROCESS, //interact with the desktop

SERVICE_AUTO_START,

SERVICE_ERROR_IGNORE,

szstr,

nil,

nil,

nil,

nil,

nil);

end;

procedure TForm1.SS1Click(Sender: TObject);

var

fxxkingchar:pchar; // just like this name

begin

fxxkingchar:=nil;

StartService(schd,0,fxxkingchar);

Application.ProcessMessages;

end;

procedure TForm1.SS2Click(Sender: TObject);

begin

ControlService(schd, SERVICE_CONTROL_STOP,scs);

end;

procedure TForm1.DS1Click(Sender: TObject);

begin

if schd = 0 then

begin

schd:=OpenService(mgrhd,'TRsvc',SC_MANAGER_ALL_ACCESS);

end;

ControlService(schd, SERVICE_CONTROL_STOP,scs);

DeleteService(schd);

CloseServiceHandle(schd);

CloseServiceHandle(mgrhd);

end;

相关阅读 >>

Delphi meid校验码算法

Delphi speedbutton按钮动态加载图片(从image和imagelist)

Delphi xe6 利用fastmm4检测内存泄漏

Delphi中窗体的方法

Delphi中线程的释放

Delphi xe5 android openurl

Delphi try except语句 和 try finally语句用法以及区别

Delphi word文档内容批量替换

Delphi求解一元二次方程

Delphi 调用js脚本

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...