分类: C/C++
2008-04-02 18:27:59






SetTitle( @TITLE_MAIN, 24, WHITE );//设置背景显示文字 SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION );//安装开始提示软件名 Enable( FULLWINDOWMODE );?//背景全屏 Enable( BACKGROUND );//显示背景 SetColor(BACKGROUND,BK_BLUE|BK_SMOOTH);//背景色为蓝色渐变
有了背景,还得要给自己的程序加把锁——添加序列号,首先我们在Onfirstuibefore函数的变量声明中添加一个整型number nCount;用来纪录输入序列号的次数,然后在Onfirstuibefore函数中Dlg_SdRegisterUserEx后面添加代码:
.......
Dlg_SdRegisterUserEx:
szMsg = "";
szTitle = "";?
nResult = SdRegisterUserEx( szTitle, szMsg, szName, szCompany, szSerial );
if (nResult = BACK) goto Dlg_SdShowInfoList;
//输入序列号!
if (szSerial!="123123")&&(nCount<3) then
nCount=nCount+1;
MessageBox("输入序列号不正确,请重新输入!",INFORMATION);
goto Dlg_SdRegisterUserEx;
endif;
if nCount=3 then
MessageBox("输入已超过三次,请申请序列号后再安装!",INFORMATION);
abort;
endif;
//序列号验证
......
最后我们要进行数据库注册,为了弄清楚建立数据库后注册表的变化,先在控制面板的管理工具得数据源中建立一个以Drive do Microsoft Access(*.mdb)为驱动的Access数据源,然后我们看一下注册表中的变化,在开始的运行中输入regedit进入注册表,在HKEY_USERS中的S-1-5-21-796845957-606747145-839522115-500的子键SOFTWARE目录下的ODBC目录下ODBC.ini发现我们了我们刚才建立的数据源,选择该项,在注册表的右边出现如图七所示几项键值: 
图七 注册表项
其中第一项无需设置,我们从第二项开始DBQ,他是数据库(*.mdb)的位置;第三个键值是Access的组建驱动,一般系统都包含这个动态连接库;第四个是驱动标志为十六进制的19;第五个说明了ODBC数据源的类型为微软的Access;第六个是安全标志一般都为0;第七个是用户ID莫认为空。好了,我们现在清除了注册表机制,那么我们就可以删掉我们手工建的数据源,因为我们的将要用程序来实现数据库的注册,在Onfirstuibefore函数的return 0前面加入代码如下:
......//注册表注册
RegDBSetDefaultRoot ( HKEY_CURRENT_USER );
if(RegDBKeyExist("Software\\ODBC\\ODBC.INI\\oil")<0) then
if(RegDBKeyExist("Software\\ODBC\\ODBC.INI")<0) then
if(RegDBKeyExist("Software\\ODBC")<0) then
RegDBCreateKeyEx ("Software\\ODBC","");
endif;
RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI","");
endif;
RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\oil","");
else
RegDBDeleteKey ("Software\\ODBC\\ODBC.INI\\oil");
RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\oil","");
endif;
if(RegDBKeyExist("Software\\ODBC\\ODBC.INI\\ODBC Data Sources")<0) then
RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\ODBC Data Sources","");
endif;
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "DBQ" , REGDB_STRING ,
TARGETDIR+"\\data\\se.mdb" , -1);
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "Driver" ,
REGDB_STRING , WINSYSDIR+"\\odbcjt32.DLL" , -1);
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "FIL" , REGDB_STRING , "MS Access;" , -1);
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "UID" , REGDB_STRING ,"" , -1);
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "DriverID" , REGDB_NUMBER ,"25" , -1);
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "SafeTransactions" , REGDB_NUMBER ,"0" , -1);
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\ODBC Data Sources", "oil" ,
REGDB_STRING ,"Driver do Microsoft Access (*.mdb) " , -1);
...... 呵呵,剩下的就是在桌面上创建一个快捷方式了我们在Onfirstuibefore函数里面加入: //创建快捷方式 if(SprintfBox(OK|CANCEL,"请选择","%S","您想在桌面上创建快捷方式?")) then AddFolderIcon(FOLDER_DESKTOP,"**软件",TARGETDIR+"OIL.exe", TARGETDIR,TARGETDIR+"\\media\\GREEN.ICO",0,"",REPLACE); endif; AddFolderIcon(FOLDER_PROGRAMS,"**软件",TARGETDIR+"oil.exe", TARGETDIR,TARGETDIR+"\\media\\Applications HotSync.ico",0,"",REPLACE); return 0;结束语: