用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;