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;
}