2008年(909)
分类:
2008-05-06 22:21:50
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;结束语: