🚀 go-pugleaf

> ==> Totty_Yu(һ�쵽����Ӿ����)               ˵��: 
> ��д�����´���,���ȡע��������, 
> var 
> Reg :  TRegisty ; 
> begin 
> 	Reg := TRegistry.Create ; 
>         Reg.OpenKey ( 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Extension', True ) ; 
>         sst := Reg.ReadString (  '.txt' ) ; 
>         ... 
> end ; 
> ����ʱ,sst���Ϊ��,why ?  OpenKey �ɹ�����True ; 
>         
 
Hi, Try these codes....

var
   Reg :  TRegistry;
   sst :  string;
begin
 Reg := TRegistry.Create;
 With Reg do begin
  RootKey:= HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',False);
  // or u can write
  // Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion');
  sst := Reg.ReadString (  'Version' ) ;
 end;
 Reg.Free;
end;

TIPS: HKEY_LOCAL_MACHINE is not a string but a constant number.

Good luck! 

--
�� ��Դ: �й�ƴ�BBSվ [bbs.ustc.edu.cn]