use ...,registry,... procedure TForm1.Button1Click(Sender: TObject); var r:Tregistry; begin r := Tregistry.Create; r.RootKey := HKEY_LOCAL_MACHINE; r.OpenKey('SOFTWARE\youkey',true); r.Writestring('youval','11111'); showmessage(r.Readstring('youval')); r.Free; end;
use ...,registry,... procedure TForm1.Button1Click(Sender: TObject); var r:Tregistry; begin r := Tregistry.Create; r.RootKey := HKEY_LOCAL_MACHINE; r.OpenKey('SOFTWARE\youkey',true); r.Writestring('youval','11111'); showmessage(r.Readstring('youval')); r.Free; end;挺经典的。 ------------------------------------------------------------------ 该问题已经结贴 ,得分记录: XuDunYu (19)、 kuki84 (1)、
在use里写 registry 在某个触发事件里写下如下代码: var m;Tregistry; begin m:=tregistry.create; m.rootkey:=hkey_local_machine; m.openkey('softwave\youkey',false); m.writestring('youval','renyushu'); m.free; end;
procedure TForm1.Button1Click(Sender: TObject);
var
r:Tregistry;
begin
r := Tregistry.Create;
r.RootKey := HKEY_LOCAL_MACHINE;
r.OpenKey('SOFTWARE\youkey',true);
r.Writestring('youval','11111');
showmessage(r.Readstring('youval'));
r.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
r:Tregistry;
begin
r := Tregistry.Create;
r.RootKey := HKEY_LOCAL_MACHINE;
r.OpenKey('SOFTWARE\youkey',true);
r.Writestring('youval','11111');
showmessage(r.Readstring('youval'));
r.Free;
end;挺经典的。
------------------------------------------------------------------
该问题已经结贴 ,得分记录: XuDunYu (19)、 kuki84 (1)、
在某个触发事件里写下如下代码:
var
m;Tregistry;
begin
m:=tregistry.create;
m.rootkey:=hkey_local_machine;
m.openkey('softwave\youkey',false);
m.writestring('youval','renyushu');
m.free;
end;