枚举NT系统服务

原创 2004年08月06日 18:28:00

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Winsvc, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

function ServiceGetList(sMachine: string; dwServiceType,
  dwServiceState: DWord; slServicesList: TStrings): boolean;
var
  j : integer;
  schm: SC_Handle;
  nBytesNeeded,
  nServices,
  nResumeHandle: DWord;
  ServiceStatusRecs: array[0..511] of TEnumServiceStatus;
begin
  Result := false;
  schm := OpenSCManager(PChar(sMachine), Nil, SC_MANAGER_ALL_ACCESS);
  try
    if (schm = 0) then Exit;
    nResumeHandle := 0;
    while True do begin
      EnumServicesStatus(schm, dwServiceType, dwServiceState, ServiceStatusRecs[0], sizeof(ServiceStatusRecs), nBytesNeeded, nServices, nResumeHandle);
      for j := 0 to nServices-1 do begin
        slServicesList.Add(ServiceStatusRecs[j].lpDisplayName);
      end;
      if nBytesNeeded = 0 then Break;
    end;
    Result := true;
  finally
    if schm > 0 then
      CloseServiceHandle(schm);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ServiceGetList('MachineName',SERVICE_WIN32,SERVICE_STATE_ALL,memo1.Lines );
end;

end.

Win64 驱动内核编程-30.枚举与删除线程回调

枚举与删除线程回调     进程回调可以监视进程的创建和退出,这个在前面的章节已经总结过了。某些游戏保护的驱动喜欢用这个函数来监视有没有黑名单中的程序运行,如果运行则阻止运行或者把游戏退出。而线程回...
  • u013761036
  • u013761036
  • 2017年04月04日 12:12
  • 1178

枚举Windows系统服务,通过进程ID取服务名

枚举Windows系统服务,通过进程ID取服务名,判断进程是否是服务
  • dgyanyong
  • dgyanyong
  • 2014年10月18日 10:38
  • 3916

OPC客户端开发之OPC服务器的枚举和连接------OPC(第五篇)

OPC客户端的开发相对来说,只要掌握了OPC基类的几个接口,并知道它们是如何运作的,那么开发起来还是相对容易的。好了,废话不多说了,我们开始吧。     首先是对头文件的引用: [cp...
  • liqiansheng
  • liqiansheng
  • 2016年09月07日 15:31
  • 1699

设置系统服务状态,禁用服务,启动服务,枚举服务的例子

  • 2011年04月02日 14:25
  • 413KB
  • 下载

C++枚举系统服务

突然想仿照XueTr中的服务管理写个小程序。 hSCM = OpenSCManager(NULL, NULL, SC_MANAGER_ALL_ACCESS); 打开服务管理器,SC_MANAGER...
  • Sidyhe
  • Sidyhe
  • 2011年12月31日 21:10
  • 4005

易语言源码NT系统服务源码

  • 2010年11月03日 21:40
  • 2KB
  • 下载

NT内核函数枚举系统所有进程.

//头文件部分.h #define NT_SUCCESS(status)          ((NTSTATUS)(status)>=0) #define STATUS_INFO_LENGTH...
  • tangjian001
  • tangjian001
  • 2012年02月22日 18:22
  • 832

Nt操作系统用户:枚举、添加、删除

  • 2006年02月23日 09:05
  • 178KB
  • 下载

枚举Android系统的进程、任务和服务的信息

http://www.cnblogs.com/crazypebble/archive/2011/03/29/1999151.html 一、简介   在Android Market上,不...
  • shlpyy
  • shlpyy
  • 2011年09月14日 22:31
  • 433

枚举Android系统的进程,任务和服务的信息

一、简介   在Android Market上,不乏各种各样的手机管理软件,360手机安全软件,QQ手机安全助手,开机自启动管理软件,等等之类的~这些软件给我的一个感觉是,做手机管理软件的都很NX,...
  • svrsimon
  • svrsimon
  • 2011年10月28日 15:53
  • 1034
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:枚举NT系统服务
举报原因:
原因补充:

(最多只允许输入30个字)