HanDs
管理员

[Delphi文章] 从注册表读取服务状态 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

function ReadFromRegistry(ServiceName: string; KeyName: string; IsInt: Integer = 0): string;
var { 读取注册表中的服务信息 }
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('SYSTEM\CurrentControlSet\Services\' + ServiceName, False);
    if IsInt <> 0 then
    begin
      case reg.ReadInteger(KeyName) of
        2: Result := '自动';
        3: Result := '手动';
        4: Result := '已禁用';
      end;
    end
    else
      Result := reg.ReadString(KeyName);
  finally
    reg.CloseKey;
    reg.Free;
  end;
end;

procedure WriteIntegerToRegistry(ServiceName: string; KeyName: string; KeyValue: Integer);
var { 写入一个服务整型值到注册表 }
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('SYSTEM\CurrentControlSet\Services\' + ServiceName, False);
    reg.WriteInteger(KeyName, KeyValue);
  finally
    reg.CloseKey;
    reg.Free;
  end;
end;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
注册表 读取 服务 状态
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复