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;