计算机二级Delphi写入注册表的方法计算机二级考试

文章作者 100test 发表时间 2009:05:23 23:03:36
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　介绍大家一种Delphi 写入注册表的方法；使用RegOpenKeyEx 写入，代码如下：
　　procedure TForm1.regSelf.
　　var
　　hdKey:hkey.
　　lpFileName:array[0..255] of char.
　　nSize:integer.
　　begin
　　nSize:=256.
　　GetModuleFileName(0,lpFileName,nSize).
　　if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,pchar(’SOFTWAREMicrosoftWindowsCurrentVersionRu n’),
　　0,KEY_ALL_ACCESS,hdKey)=ERROR_SUCCESS) then
　　begin
　　RegSetValueEx(hdkey,’IPserver’,0,REG_SZ,@lpFileName,nSize). //插入键值IPserver
　　regclosekey(hdkey).
　　end.
　　end.

　　特别推荐：

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总