UC知道delphi简单问题
来源：百度知道 编辑：UC知道 时间：2024/05/31 13:43:44
这句什么意思:稍微详细点
var
ini:tinifile;
begin
ini:=tinifile.create('d:\mydata.ini');
x:=ini.readinteger('data','X',0);
y:=ini.readinteger('data','Y',0);
ini.free
end;
我已经知道了 那问个怎么写注册表吧 把x,y的值写进注册表里
请解释一下你的程序好吗 谢谢啦~
var
ini:tinifile;
begin
ini:=tinifile.create('d:\mydata.ini');
x:=ini.readinteger('data','X',0);
y:=ini.readinteger('data','Y',0);
ini.free
end;
我已经知道了 那问个怎么写注册表吧 把x,y的值写进注册表里
请解释一下你的程序好吗 谢谢啦~
写注册表要用TRegistry类
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
begin
Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
Reg.CloseKey;
end;
Reg.Free;
end;
ini.writeinteger('data','X',1);