VFP 愛用者社區

[kib48660]

1.在win98,me 只要copy \windows\system 即可

2.在nt,2000,xp copy 到 \windows\system32 還是必須用regsvr32 註冊

3. 可否由程式自動去判斷要不要註冊

[Ruey]

regsvr32一般都是這樣註冊.請找一下相關文章

[violetlkk]

If shellex(0,"open","regsvr32.exe","/s msinet.ocx","",1) <= 32
_Screen.Visible=.T.
? "msinet.ocx register fail !!"
Wait ""
Quit
Endif

PROCEDURE ShellEx
PARAMETERS lnhndwin,lcaction,lcfilename,lcparams,lcdir,lnshowwin
DECLARE integer ShellExecute IN shell32.dll integer,string,string,string,string,integer
RETURN ShellExecute(lnhndwin,lcaction,lcfilename,lcparams,lcdir,lnshowwin)

[hongyu]

* -----------------------------
* 动态注册(dll、ocx)控件
* 红雨
* -----------------------------

Function DllRegister ( lpLibFileName, isReg )
isReg = IIF(TYPE([isReg])=[U], .T., isReg)
lpProcName = IIF(isReg, "DllRegisterServer", "DllUnregisterServer" )
Declare integer GetLastError in kernel32
Declare integer LoadLibrary in kernel32 string lpLibFileName
Declare integer FreeLibrary in kernel32 integer hLibModule
Declare integer GetProcAddress in kernel32 integer hModule, string lpProcName
Declare integer CallWindowProc in user32 integer lpPrevWndFunc, integer hwnd, integer Msg, integer wParam, integer lParam

hLibModule = LoadLibrary (lpLibFileName)
If hLibModule # 0
lnAddress = GetProcAddress (hLibModule, lpProcName)
If lnAddress # 0
If CallWindowProc( lnAddress, 0,0,0,0) = 0
= FreeLibrary (hLibModule)
Return .T.
Else
lnerror = GetLastError()
Endif
Else
lnerror = GetLastError()
Endif
= FreeLibrary (hLibModule)
Else
lnerror = GetLastError()
Endif
Return .F.
Endfunc

* -----------------------------

[violetlkk]

not bad
thanks

[goto-dream]

這邊有一個工具

OCX檔案 註冊與反註冊 工具
http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=44648