BCB 및 Delphi에서 Windows 서비스에 대한 설명 텍스트 추가

754 단어
Delphi:
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    with reg do begin
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('SYSTEM\CurrentControlSet\Services\' + Name, false) then
        WriteString('Description', 'My Description');
      CloseKey;
    end;
  finally
    reg.Free;
  end;    
end;
C++ Builder:  
TRegistry *Reg = new TRegistry();
try {                                 
    Reg->RootKey = HKEY_LOCAL_MACHINE;
    if (Reg->OpenKey("SYSTEM\\CurrentControlSet\\Services\\" + Name, false)) {
        Reg->WriteString("Description", "My Description");
    }
} __finally {
    delete Reg;
}

좋은 웹페이지 즐겨찾기