delphi 如何取出注册表的值

[yangjinhui]

delphi 如何取出注册表的值

[阿三]

TRegistry = class(TObject)
看这个对像

[火龙岛主]

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;

[bdmh]

会写就不会读呀
http://blog.csdn.net/bdmh/archive/2009/05/05/4151632.aspx