给你个例子function OnMoved()
STRING szMsg;
STRING svDBc;
STRING svDBs;
STRING szKeyc;
STRING szKeys;
STRING svResult;
NUMBER nType,nSize;
begin
szMsg ="正在进行系统配置,请等待...";
SdShowMsg (szMsg, TRUE);
svDBc = TARGETDIR + "\\Custfreq.mdb";
svDBs = TARGETDIR + "\\Stdfreq.mdb";
szKeyc = "Software\\ODBC\\ODBC.INI\\Custom Frequency";
szKeys = "Software\\ODBC\\ODBC.INI\\Standard Frequency";
nType = REGDB_STRING;
nSize=-1;
RegDBSetDefaultRoot (HKEY_CURRENT_USER); if (RegDBSetKeyValueEx (szKeyc, "DBQ", nType, svDBc,
nSize) < 0) then
MessageBox ("注册表操作失败,安装程序将终止!", SEVERE); abort;
endif; if (RegDBSetKeyValueEx (szKeys, "DBQ", nType, svDBs,
nSize) < 0) then
MessageBox ("注册表操作失败,安装程序将终止!", SEVERE); abort;
endif;
if ( FindFile(TARGETDIR , "Stdfreq.mdb", svResult) < 0 ) then
szKeyc = "Software\\ODBC\\ODBC.INI\\Custom Frequency";
if (RegDBDeleteKey (szKeyc) < 0) then
MessageBox ("删除注册表数据失败!", SEVERE);
endif;
szKeyc = "Software\\ODBC\\ODBC.INI\\Standard Frequency";
if (RegDBDeleteKey (szKeyc) < 0) then
MessageBox ("删除注册表数据失败!", SEVERE);
endif;
endif;end;
// --- include script file section ---
STRING szMsg;
STRING svDBc;
STRING svDBs;
STRING szKeyc;
STRING szKeys;
STRING svResult;
NUMBER nType,nSize;
begin
szMsg ="正在进行系统配置,请等待...";
SdShowMsg (szMsg, TRUE);
svDBc = TARGETDIR + "\\Custfreq.mdb";
svDBs = TARGETDIR + "\\Stdfreq.mdb";
szKeyc = "Software\\ODBC\\ODBC.INI\\Custom Frequency";
szKeys = "Software\\ODBC\\ODBC.INI\\Standard Frequency";
nType = REGDB_STRING;
nSize=-1;
RegDBSetDefaultRoot (HKEY_CURRENT_USER); if (RegDBSetKeyValueEx (szKeyc, "DBQ", nType, svDBc,
nSize) < 0) then
MessageBox ("注册表操作失败,安装程序将终止!", SEVERE); abort;
endif; if (RegDBSetKeyValueEx (szKeys, "DBQ", nType, svDBs,
nSize) < 0) then
MessageBox ("注册表操作失败,安装程序将终止!", SEVERE); abort;
endif;
if ( FindFile(TARGETDIR , "Stdfreq.mdb", svResult) < 0 ) then
szKeyc = "Software\\ODBC\\ODBC.INI\\Custom Frequency";
if (RegDBDeleteKey (szKeyc) < 0) then
MessageBox ("删除注册表数据失败!", SEVERE);
endif;
szKeyc = "Software\\ODBC\\ODBC.INI\\Standard Frequency";
if (RegDBDeleteKey (szKeyc) < 0) then
MessageBox ("删除注册表数据失败!", SEVERE);
endif;
endif;end;
// --- include script file section ---
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货