织梦CMS - 轻松建站从此开始!

罗索实验室

当前位置: 主页>杂项技术>PC常识>

用InstallShield实现ini文件的操作

罗索客 发布于 2004-02-16 15:05 点击:次 
/* written by schevon ,2003-05-13 */ /* 原出处:B/S WEB技术中文网 http://www.jaron.cn ;*/ /* 转载请注明出处和保留此版权信息 */ /* 欢迎使用SiteManager网站管理系统 http://sitemanager.cnzone.net ; */ 使用函数: WriteProfString (C:\\\\Test.ini, Windows,
TAG:

/* written by schevon ,2003-05-13 */
/* 原出处:B/S WEB技术中文网 http://www.jaron.cn ;*/
/* 转载请注明出处和保留此版权信息 */
/* 欢迎使用SiteManager网站管理系统 http://sitemanager.cnzone.net ; */

使用函数: WriteProfString ("C:\\\\Test.ini", "Windows", "KeyboardDelay", "100");

//
//写入ini文件并copy到目标目录
//
function Writeini()  
    string svText,iniFile;
begin
  
  iniFile =SUPPORTDIR+"\\\\dbconn.ini";

if (WriteProfString(iniFile,"dbconnection","server", "locahost") <0) then
  MessageBox("dbconn.inc错误,系统将无法运行!", SEVERE);
  endif;  
  
   if (WriteProfString(iniFile,"dbconnection","ip", "192.168.0.1") <0) then
  MessageBox("dbconn.inc错误,系统将无法运行!", SEVERE);
  endif;    
  
   if (WriteProfString(iniFile,"dbconnection","db_user", "sa") <0) then
  MessageBox("dbconn.inc错误,系统将无法运行!", SEVERE);
  endif;

if (WriteProfString(iniFile,"dbconnection","db_pass", "sa") <0) then
  MessageBox("dbconn.inc错误,系统将无法运行!", SEVERE);
  endif;

      CopyFile(SUPPORTDIR+"\\\\dbconn.ini",INSTALLDIR+"\\\\dbconn.ini");

end; (schevon)
本站文章除注明转载外,均为本站原创或编译欢迎任何形式的转载,但请务必注明出处,尊重他人劳动,同学习共成长。转载请注明:文章转载自:罗索实验室 [http://www.rosoo.net/a/200402/2394.html]
本文出处: 作者:schevon
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片
栏目列表
将本文分享到微信
织梦二维码生成器
推荐内容