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) |