var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Try
Reg.RootKey := HKEY_LOCAL_MACHINE;
If Reg.OpenKeyReadOnly('\SOFTWARE\Realtek\Network\') Then
begin
Memo1.Clear;
Memo1.Lines.Add('Install: ' +Reg.ReadString('install'));
Memo1.Lines.Add('Reboot: ' +Reg.ReadString('reboot'));
Memo1.Lines.Add('Version: '+Reg.ReadString('version'));
end;
reg.CloseKey;
Finally
Reg.Free;
end;
end;uses
Registry;
procedure EnumNames(RootKey: HKEY; const Key: string; var Names: TStrings);
var
Registry: TRegistry;
begin
Registry := TRegistry.Create;
try
Registry.RootKey := RootKey;
Registry.OpenKeyReadOnly(Key);
Registry.GetValueNames(Names);
finally
Registry.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Names: TStrings;
begin
Names := TStringList.Create;
try
EnumNames(HKEY_LOCAL_MACHINE, 'SOFTWARE\Realtek\Network', Names);
Memo1.Lines := Names;
finally
Names.Free;
end;
end;
(03-05-2017, 08:38 PM)Agmcz كتب : [ -> ]لم انتبه للردود الاخيرة
عموما بالتوفيق.