PowerBuilder9.0自动检测注册ASA8.0

最新推荐文章于 2023-08-24 13:01:36 发布

原创

最新推荐文章于 2023-08-24 13:01:36 发布 · 748 阅读

标签

#odbc

收录于

定义全局外部函数：

//获取文件夹的外部API函数
Function ulong GetCurrentDirectoryA (ulong textlen, ref string dirtext) library "KERNEL32.DLL" alias for "GetCurrentDirectoryA;Ansi"

//处理注册表的外部API函数
FUNCTION ulong RegSetValueEx(ulong hKey,ref string lpValueName,ulong Reserved,ulong dwType,ref Any lpData,ulong cbData) LIBRARY "advapi32.dll" ALIAS FOR "RegSetValueExA"

//注册ODBC
//自定义函数af_autoreg_odbc(string as_database)
//string as_database
//return integer

Int reg_result
String ls_dir,ls_system,ls_sys,ls_install,ls_system_driver,ls_system_setup
String ls_date,ls_run

ls_dir = GetCurrentDirectory()
If Right(ls_dir,1) <> '\' Then ls_dir = ls_dir + "\"
ls_system = ls_dir + "dbodbc8.dll" //odbc接口文件
ls_date = ls_dir +"database\" + as_database //数据库文件
ls_run = ls_dir +"dbeng8.exe " //ASA运行文件

If Not FileExists( ls_system) Then
    MessageBox("","找不到文件dbodbc8.dll，请确定文件在程序文件夹 "+ ls_dir + "内！")
    Return -1
End