给你个例子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 ---