怎样写入注册表和从注册表中读出，太急了，谢谢，等待中...

Question

小弟正在写一个程序要从注册表中读出一个值，被卡住了，谢谢各位高手，我等着。

Answer 1

随便写了一个，应该很容易明白uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var MyReg:TRegistry;
begin
  MyReg:=TRegistry.Create;
  try
    MyReg.RootKey:=HKEY_LOCAL_MACHINE;
    MyReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\',False);
    if MyReg.ValueExists('MediaPath') then
      ShowMessage(MyReg.ReadString('MediaPath'));
  finally
    MyReg.Free;
  end;
end;

Answer 2

写入可以用 WriteInterger，WriteString，WriteBool等方法

Answer 3

uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
    pReg: TRegistry;
begin
    pReg := TRegistry.Create;
    pReg.RootKey := HKEY_LOCAL_MACHINE;
    pReg.OpenKey('Software\Borland\Delphi\7.0', false);
    if pReg.ValueExists('App') then
        ShowMessage(pReg.ReadString('App'));
    pReg.CloseKey;
    pReg.Free;
end;

Answer 4

uses Registry; 
function GetRegistryValue: string;
var
  Registry: TRegistry;
  S: string;
begin
  Registry:=TRegistry.Create;  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  {False because we do not want to create it if it doesn抰 exist}
  Registry.OpenKey('MYKEY',False); 
  Result :=Registry.ReadString('VALUE1');  Registry.Free;
end;