ole

cqhq2008

免费乐捐，感谢支持

我做了一个OLE的日历控件，怎么发布安装后那个窗口没有日历了呢

cqhq2008

我所安装的那台机器没有注册啊，如何注册呢？

阿辉

ＰＢ中动态注册ocx控件 
本程序实现以下功能：1、自动注册WndShow.ocx，Mschrt20.ocx，mscomctl.ocx控件注意：

请在程序运行前将WndShow.ocx，Mschrt20.ocx，mscomctl.ocx控件拷贝到运行目录下的source文件夹下string ls_winpath //windows路径

string ls_wndshow //wndshow.ocx文件路径

string ls_Mschar20 //MsChrt20.ocx文件路径

string ls_MscomCtl //MsconCtl.ocx文件路径 
//获取系统路径

RegistryGet("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion",&"SystemRoot", RegString!,ls_winpath)

//设置系统中ocx文件路径

ls_wndshow = ls_winpath + "\system\WndShow.ocx"

ls_Mschar20 = ls_winpath + "\system\Mschrt20.ocx"

ls_MscomCtl = ls_winpath + "\system\mscomctl.ocx"

//如果文件Wndshow.ocx不存在

if NOT FileExists(ls_wndshow) 
then　　

//拷贝文件到系统中　　

CopyFileA("source\WndShow.ocx",ls_wndshow,true)

end if

//注册ocx文件

run("regsvr32.exe /s WndShow.ocx")

//如果文件Mschrt20.ocx不存在

if NOT FileExists(ls_Mschar20) then　　

//拷贝文件到系统中　　

CopyFileA("source\Mschrt20.ocx",ls_wndshow,true)

end if

//注册ocx文件run("regsvr32.exe /s Mschrt20.ocx")

//如果文件mscomctl.ocx不存在if NOT FileExists(ls_MscomCtl) then　　

//拷贝文件到系统中　　

CopyFileA("source\mscomctl.ocx",ls_wndshow,true)

end if

//注册ocx文件run("regsvr32.exe /s mscomctl.ocx") 

6、CopyFileA()
功能：复制文件。源文件和目标文件的名称参数都采用引用方式。如果flag参数设置为true,那么复制文件时不

覆盖已有的文件；如果flag参数设置为False，那么复制文件时覆盖已有的文件。
声明格式：Function boolean CopyFileA(ref string cfrom,ref string cto,boolean flag) Library 

"Kernel32.dll"

示例

    string l_from,l_to
    boolean l_flag,rtn
    l_flag =false
    l_from = c:\windown\aaa.bmp   //指定源文件
    l_to = d:\bbb.bmp             //指定目标文件
    rtn = CopyFileA(l_from,l_to,l_flag)  //指定
    messagebox("提示",string(rtn))

7、CreatDirectoryA()
功能：创建目录。第一个参数指明要创建的目录，第二个参数在Windows NT中使用，在Windows 95、Windows 

98 中忽略该参数。
声明格式:Function boolean CreateDirectoryA(ref string pathname,int sa)Library "Kernel32.dll"

示例
    boolean rtm
    string l_dir
    l_dir = "c:\aaa"      //指定目录路径和名称
    rtn = CreateDirectoryA(l_dir,0)   //创建
    if rtn then
       messagebox("成功创建新的目录","目录为 c:\aaa")
    else
       messagebox("创建","失败")
    end if

8、DeleteFileA()
功能：删除文件。
声明格式：Function boolean DeleteFileA(ref string filename)Library "Kernel32.dll"

示例
    string l_file
    boolean rtn
    l_file = "c:\aaa.bmp"    //要删除的文件名
    rtn = DeleteFileA(l_file)

string ls_winpath
string ls_wndshow //wndshow.ocx文件路径

//获取系统路径
RegistryGet("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion","SystemRoot", RegString!,ls_winpath)
//设置系统中ocx文件路径
ls_wndshow = ls_winpath + "\system\WndShow.ocx"

//如果文件Wndshow.ocx不存在
if NOT FileExists(ls_wndshow) then　　
//拷贝文件到系统中　　
CopyFileA("source\WndShow.ocx",ls_wndshow,true)
end if
//注册ocx文件
run("regsvr32.exe /s WndShow.ocx")

阿辉

你发布的那台机里没有注册这个控件

EngleW

謝謝 阿輝.