procedure TForm1.Button1Click(Sender: TObject);
var reg:TRegistry;
var i:integer;
var s:string;
begin
i:=3;
s:='WallpaperStyle';
reg:=tregistry.create;
reg.rootkey:=HKEY_CURRENT_USER;
if reg.OpenKey('Control Panel\Desktop',true) then
reg.WriteString(s,i);出错信息:[Error] Unit1.pas(36): Incompatible types: 'String' and 'Integer'
var reg:TRegistry;
var i:integer;
var s:string;
begin
i:=3;
s:='WallpaperStyle';
reg:=tregistry.create;
reg.rootkey:=HKEY_CURRENT_USER;
if reg.OpenKey('Control Panel\Desktop',true) then
reg.WriteString(s,i);出错信息:[Error] Unit1.pas(36): Incompatible types: 'String' and 'Integer'
解决方案 »
- dev 控件 cxVerticalGr的用法
- 有用过graphics32控件的吗?
- 集成歌词的MP3音乐技术
- 请教了解C语言的朋友一些关于Delphi的简单的问题
- soaptoolkit的问题,请帮忙,在线等待
- 如何捕获动态创建的控件?
- 关于delphi的调试时程序出错了,任务拦的程序用蓝色在闪,怎样停止它使delphi 进入设计状态的问题?
- idftp 怎么取文件名?
- 100分请教!●☆●☆●☆●☆●请详细讲讲,怎样给程序加上共享软件那样的注册机制?
- 请教高手,MDI子窗体的问题
- 问一下,城市规划学科 哪个大学的这个专业好啊?
- 问一个超级菜的问题,在DELPHI中如何在类窗口中添加function函数?
1.reg.WriteString(s,IntToStr(i));2.reg.WriteInteger(s,i);
谢谢WENGJ!