用InstallShield实现ini文件的操作

/* 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;