procedure TForm1.Button1Click(Sender: TObject);var
s:Tregistry;
begin
s:=tregistry.create();
s.rootkey:=HKEY_LOCAL_MACHINE;
s.openkey('SOFTWARE\TENCENT\DNF',true);
s.readstring('Path');
MessageBox(Handle,pchar(s),'提示',0);
s.freeend;为什么显示出来的跟注册表里的不一样呢?
s:Tregistry;
begin
s:=tregistry.create();
s.rootkey:=HKEY_LOCAL_MACHINE;
s.openkey('SOFTWARE\TENCENT\DNF',true);
s.readstring('Path');
MessageBox(Handle,pchar(s),'提示',0);
s.freeend;为什么显示出来的跟注册表里的不一样呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货