Q5/ws_objects/Ew_eb_import.pbl.src/uo_reghelper.sru

$PBExportHeader$uo_reghelper.sru
forward
global type uo_reghelper from nonvisualobject
end type
type filetime from structure within uo_reghelper
end type
type systemtime from structure within uo_reghelper
end type
end forward

type filetime from structure
	long		dwlowdatetime
	long		dwhighdatetime
end type

type systemtime from structure
	integer		wyear
	integer		wmonth
	integer		wdayofweek
	integer		wday
	integer		whour
	integer		wminute
	integer		wsecond
	integer		wmilliseconds
end type

shared variables
boolean sv_option_iftryreg = true // 控制是否注册
end variables

global type uo_reghelper from nonvisualobject
end type
global uo_reghelper uo_reghelper

type prototypes
Function long GetFullPathName (String lpFileName ,Long nBufferLength,ref string lpBuffer,ref long lpFilePart) library "kernel32" ALIAS FOR "GetFullPathNameA;Ansi"
Function long CreateDirectory (string lpNewDirectory ,ref SECURITY_ATTRIBUTES lpSecurityAttributes ) library "kernel32"   Alias for "CreateDirectoryA;Ansi"
Function long GetFileTime (Long hFile ,ref filetime  lpCreationTime ,ref filetime  lpLastAccessTime ,ref filetime  lpLastWriteTime )  library  "kernel32" Alias for "GetFileTime;Ansi" 
Function long lopen (string lpPathName , long iReadWrite )  library "kernel32" Alias for "_lopen;Ansi" 
Function long lclose (long hFile)  library "kernel32" Alias for "_lclose" 
Function long FileTimeToSystemTime  (ref  FILETIME lpFileTime ,ref SYSTEMTIME lpSystemTime )  library  "kernel32" Alias for "FileTimeToSystemTime;Ansi"
Function long CopyFile  (String lpExistingFileName , String lpNewFileName , long bFailIfExists ) library  "kernel32" Alias for  "CopyFileA;Ansi"
Subroutine Sleep(ulong dwMilliseconds) LIBRARY "kernel32.dll"
Function long GetWindowsDirectory  (ref string lpBuffer,long nSize) Library "kernel32" Alias for "GetWindowsDirectoryA;Ansi"
Function long GetSystemDirectory  (ref string lpBuffer,long nSize) Library "kernel32" Alias for "GetSystemDirectoryA;Ansi"
Function long SetFileAttributes  (String lpFileName , long dwFileAttributes ) Library  "kernel32" Alias for "SetFileAttributesA;Ansi"
end prototypes

type variables
public boolean ins_win32 = false
end variables

forward prototypes
private function integer f_filetoblob (string arg_filepathname, ref blob arg_blobdata, ref string arg_msg)
private function integer f_blobtofile (string arg_filepathname, blob arg_blobdata, ref string arg_msg)
private function string f_clsid (string arg_progid)
private function string f_codebase (string arg_progid)
private function integer f_ifexist (string arg_regkey)
private subroutine f_test ()
private subroutine f_test1 ()
private function integer reg32dll (string arg_filepath, ref string arg_msg)
private function integer regdll (string arg_filepath, ref string arg_msg)
public function integer unregdll (string arg_filepath, ref string arg_msg)
public function integer connecttonewobject (string arg_progid, string arg_filepath, ref oleobject arg_ole, ref string arg_msg)
public function datetime pf_getfilecreatetime (string arg_filefullpathname)
public function integer tryreg (string arg_progid, string arg_filepath, ref string arg_msg, boolean arg_if_delete)
public function integer tryreg (string arg_progid, string arg_filepath, ref string arg_msg)
private function integer unreg32dll (string arg_filepath, ref string arg_msg)
public function string pf_getfullpathname (string arg_filename)
public function boolean pf_isadmin ()
public subroutine set_sv_option_iftryreg (boolean arg_value)
end prototypes

private function integer f_filetoblob (string arg_filepathname, ref blob arg_blobdata, ref string arg_msg);//读入数据
long flen,loops,ls_i,bytes_read,new_pos,rslt=1,li_FileNum
blob b_dtdata_p,tot_b

flen = FileLength(arg_filepathname)
li_FileNum = FileOpen(arg_filepathname, StreamMode!, Read!, LockRead!)
if li_FileNum=-1 then
		rslt=0
		arg_msg='打开文件'+arg_filepathname+'操作失败!'
		fileclose(li_FileNum)
		goto ext
	end if
IF flen > 32765 THEN
	IF Mod(flen, 32765) = 0 THEN
		loops = flen/32765
	ELSE
		loops = (flen/32765) + 1
	END IF
ELSE
	loops = 1
END IF

new_pos = 1
FOR ls_i = 1 to loops
	bytes_read = FileRead(li_FileNum, b_dtdata_p)
	if bytes_read=0 then
		rslt=0
		arg_msg='读取文件'+arg_filepathname+'操作失败!'
		fileclose(li_FileNum)
		goto ext
	end if
	tot_b = tot_b + b_dtdata_p
NEXT

fileclose(li_FileNum)

arg_blobdata=tot_b
ext:
return rslt
end function

private function integer f_blobtofile (string arg_filepathname, blob arg_blobdata, ref string arg_msg);//blob转文件
long rslt=1,fend,fend_t
blob b_dtdata, b_dtdata_p
long li_FileNum,ls_i,ls_jh
string tmpfilepathname

tmpfilepathname=arg_filepathname
b_dtdata=arg_blobdata

fend=len(b_dtdata)
	if fend<=32765 then
		fend_t=1
	else
		fend_t=fend/32765
		if mod(fend,32765)<>0 then
			fend_t=fend_t+1
		end if
	end if
	li_FileNum = FileOpen( tmpfilepathname,StreamMode!, Write!, LockWrite!)
	if li_FileNum<=0 then
		arg_msg="打开文件"+tmpfilepathname+"失败"
		rslt=0
		fileclose(li_FileNum)
		goto ext
	end if
	for ls_i = 1 to fend_t
		b_dtdata_p=blobmid(b_dtdata,1+(ls_i - 1 )*32765,32765)

		ls_jh=FileWrite(li_FileNum, b_dtdata_p)
		if ls_jh<=0 then
			arg_msg="写文件"+tmpfilepathname+"失败"
			rslt=0
			fileclose(li_FileNum)
			goto ext
		end if
	next
	fileclose(li_FileNum)

ext:
return rslt
end function

private function string f_clsid (string arg_progid);String ls_key
ls_key = "HKEY_CLASSES_ROOT\" + arg_progid + "\CLSID"

String ls_clsid

IF RegistryGet(ls_key, "", RegString!, ls_clsid) <> 1 THEN
	SetNull(ls_clsid)
END IF

RETURN ls_clsid

end function

private function string f_codebase (string arg_progid);String ls_clsid
ls_clsid = f_clsid(arg_progid)

String ls_codebase

IF IsNull(ls_clsid) THEN
	SetNull(ls_codebase)
	GOTO ext
END IF

String ls_key
ls_key = "HKEY_CLASSES_ROOT\CLSID\" + ls_clsid + "\InprocServer32"
String ls_name
IF ins_win32 THEN
	ls_name = ""
ELSE
	ls_name = "CodeBase"
END IF

IF RegistryGet(ls_key, ls_name, RegString!, ls_codebase) <> 1 THEN
	SetNull(ls_codebase)
	GOTO ext
END IF

IF Pos(ls_codebase, 'file:///') > 0 THEN
	ls_codebase = Mid(ls_codebase, 9)
END IF

Long ll_pos

ll_pos = Pos(ls_codebase, '/')
DO WHILE ll_pos > 0
	ls_codebase = Replace(ls_codebase, ll_pos, 1, '\')
	ll_pos = Pos(ls_codebase, '/')
LOOP

ext:
RETURN ls_codebase






end function

private function integer f_ifexist (string arg_regkey);String ls_value[]
IF RegistryValues(arg_regkey, ls_value) = 1 THEN
	RETURN 1
ELSE
	RETURN 0
END IF
end function

private subroutine f_test ();String ls_path
ls_path = "D:\workspace\__________test\MyTest\PBCOMTest\bin\Release\PBCOMTest.dll"

String ls_netversion
ls_netversion = "4.0"

String ls_regkey
ls_regkey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework"

String ls_valuename
ls_valuename = "InstallRoot"

String ls_frameworkpath
IF RegistryGet(ls_regkey, ls_valuename, RegString!, ls_frameworkpath) <> 1 THEN
	MessageBox("", "没有安装.net Framework " + ls_netversion)
	GOTO ext
END IF

String ls_exec
IF ls_netversion < "2.0" THEN
	ls_exec = ls_frameworkpath + "v1.1.4322\"
ELSEIF ls_netversion < "4.0" THEN
	ls_exec = ls_frameworkpath + "v2.0.50727\"
ELSE
	ls_exec = ls_frameworkpath + "v4.0.30319\"
END IF
ls_exec = ls_exec + "RegAsm.exe"

IF Not FileExists(ls_exec) THEN
	MessageBox("", ls_exec + "不存在")
	GOTO ext
END IF

string ls_logfile
ls_logfile= "tmp_reg.txt"

ls_exec = "~"" + ls_exec + "~" ~"" + ls_path + "~" /codebase > ~"" + ls_logfile + "~" 2>&1"

String ls_tmpfile
ls_tmpfile = "tmp_reg.cmd"

if fileexists(ls_tmpfile) then
	filedelete(ls_tmpfile)
end if

String arg_msg

IF f_blobtofile(ls_tmpfile, Blob(ls_exec,EncodingANSI!), arg_msg) <> 1 THEN
	MessageBox("", arg_msg)
	GOTO ext
END IF

IF Run(ls_tmpfile) <> 1 THEN
	MessageBox("", "注册失败")
	GOTO ext
END IF


sleep(1)
filedelete(ls_tmpfile)

Blob lb_msg
IF f_filetoblob(ls_logfile, lb_msg, arg_msg) <> 1 THEN
	MessageBox("", arg_msg)
	GOTO ext
END IF

filedelete(ls_logfile)

arg_msg = string(lb_msg, EncodingANSI!)

MessageBox('', arg_msg)

ext:



end subroutine

private subroutine f_test1 ();oleobject obj
obj = Create oleobject

IF obj.ConnectToNewObject("PBCOMTest.Class3") <> 0 THEN
	MessageBox('', '未连接')
	GOTO ext
END IF

String ls_msg
ls_msg = obj.HelloWorld("123")

MessageBox('', ls_msg)


ext:
obj.DisconnectObject()
Destroy obj


end subroutine

private function integer reg32dll (string arg_filepath, ref string arg_msg);Int rslt = 1

IF Not FileExists(arg_filepath) THEN
	rslt = 0
	arg_msg = arg_filepath + '不存在'
	GOTO ext
END IF

String ls_exec = ""
ls_exec = "C:\WINDOWS\system32\regsvr32.exe"

IF Not FileExists(ls_exec) THEN
	rslt = 0
	arg_msg =  ls_exec + "不存在"
	GOTO ext
END IF

String ls_logfile
ls_logfile = "tmp_reg.txt"

String ls_logfile1
ls_logfile1 = "tmp_tmp.log"

ls_exec = "~"" + ls_exec + "~" /s ~"" + arg_filepath + "~" > ~"" + ls_logfile1 + "~" 2>&1~r~nrename ~"" + ls_logfile1 + "~" ~"" + ls_logfile + "~""

String ls_tmpfile
ls_tmpfile = "tmp_reg.cmd"

IF FileExists(ls_tmpfile) THEN
	FileDelete(ls_tmpfile)
END IF

IF FileExists(ls_logfile) THEN
	FileDelete(ls_logfile)
END IF

IF f_blobtofile(ls_tmpfile, Blob(ls_exec,EncodingANSI!), arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

IF Run(ls_tmpfile) <> 1 THEN
	rslt = 0
	arg_msg = "执行脚本失败," + ls_tmpfile
	GOTO ext
END IF

DO WHILE Not FileExists(ls_logfile)
	sleep(1)
LOOP

FileDelete(ls_tmpfile)

Blob lb_msg
IF f_filetoblob(ls_logfile, lb_msg, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

FileDelete(ls_logfile)

String ls_msg
ls_msg = String(lb_msg, EncodingANSI!)

arg_msg = ls_msg

ext:
RETURN rslt


end function

private function integer regdll (string arg_filepath, ref string arg_msg);//====================================================================
// 事件: uo_reghelper.regdll()
//--------------------------------------------------------------------
// 描述: 注册.net的DLL
//--------------------------------------------------------------------
// 参数:
// 	value    	string	arg_filepath	
// 	reference	string	arg_msg     	
//--------------------------------------------------------------------
// 返回:  integer
//--------------------------------------------------------------------
// 作者:	lwl		日期: 2013年03月23日
//--------------------------------------------------------------------
//	LONGJOE
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================

IF ins_win32 THEN
	RETURN reg32dll(arg_filepath, arg_msg)
END IF

Int rslt = 1
datastore lds_dllmap
lds_dllmap = Create datastore
lds_dllmap.DataObject = 'ds_dllmap'

IF Not FileExists(arg_filepath) THEN
	rslt = 0
	arg_msg = arg_filepath + '不存在'
	GOTO ext
END IF

String ls_regkey
ls_regkey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework"

String ls_valuename
ls_valuename = "InstallRoot"

String ls_frameworkpath
IF RegistryGet(ls_regkey, ls_valuename, RegString!, ls_frameworkpath) <> 1 THEN
	rslt = 0
	arg_msg = "没有安装.net Framework"
	GOTO ext
END IF

String ls_exec = ""
//IF DirectoryExists(ls_frameworkpath + "v4.0.30319\") THEN
//	ls_exec = ls_frameworkpath + "v4.0.30319\"
//ELSEIF  DirectoryExists(ls_frameworkpath + "v2.0.50727\") THEN
//	ls_exec = ls_frameworkpath + "v2.0.50727\"
//ELSEIF  DirectoryExists(ls_frameworkpath + "v1.1.4322\") THEN
//	ls_exec = ls_frameworkpath + "v1.1.4322\"
//END IF

String ls_dllname // 获取dll文件名
IF LastPos(arg_filepath, '\') > 0 THEN
	ls_dllname = Mid(arg_filepath, LastPos(arg_filepath, '\') + 1)
ELSE
	ls_dllname = arg_filepath
END IF

Long ll_row
String ls_dotnetver = ''
ll_row = lds_dllmap.Find('dllname="' + ls_dllname + '"', 1, lds_dllmap.RowCount())
If (ll_row > 0) THEN
	ls_dotnetver = Trim(lds_dllmap.Object.dotnetver[ll_row])
END IF

CHOOSE CASE ls_dotnetver
	CASE '4.0'
		IF DirectoryExists(ls_frameworkpath + "v4.0.30319\") THEN
			ls_exec = ls_frameworkpath + "v4.0.30319\"
		ELSE
			rslt = 0
		END IF
	CASE '2.0'
		IF  DirectoryExists(ls_frameworkpath + "v2.0.50727\") THEN
			ls_exec = ls_frameworkpath + "v2.0.50727\"
		ELSE
			rslt = 0
		END IF
	CASE '1.1'
		IF  DirectoryExists(ls_frameworkpath + "v1.1.4322\") THEN
			ls_exec = ls_frameworkpath + "v1.1.4322\"
		ELSE
			rslt = 0
		END IF
	CASE ELSE
		IF DirectoryExists(ls_frameworkpath + "v4.0.30319\") THEN
			ls_exec = ls_frameworkpath + "v4.0.30319\"
		ELSEIF  DirectoryExists(ls_frameworkpath + "v2.0.50727\") THEN
			ls_exec = ls_frameworkpath + "v2.0.50727\"
		ELSEIF  DirectoryExists(ls_frameworkpath + "v1.1.4322\") THEN
			ls_exec = ls_frameworkpath + "v1.1.4322\"
		ELSE
			rslt = 0
		END IF
END CHOOSE

If (rslt = 0) And (ls_dotnetver <> '') THEN
	arg_msg = '本机没有安装.Net Framework ' + ls_dotnetver + '环境，请联系实施人员协助处理'
	GOTO ext
ELSEIF rslt = 0 THEN
	arg_msg = '本机没有安装.Net Framework环境，请联系实施人员协助处理'
	GOTO ext
END IF

ls_exec = ls_exec + "RegAsm.exe"

IF Not FileExists(ls_exec) THEN
	rslt = 0
	arg_msg =  ls_exec + "不存在"
	GOTO ext
END IF

String ls_logfile
ls_logfile = "tmp_reg.txt"

String ls_logfile1
ls_logfile1 = "tmp_tmp.log"

ls_exec = "~"" + ls_exec + "~" /tlb:~""+Mid(arg_filepath, 1, Len(arg_filepath) - 4)+".tlb~" ~"" + arg_filepath + "~" /codebase > ~"" + ls_logfile1 + "~" 2>&1~r~nrename ~"" + ls_logfile1 + "~" ~"" + ls_logfile + "~""

String ls_tmpfile
ls_tmpfile = "tmp_reg.cmd"

IF FileExists(ls_tmpfile) THEN
	FileDelete(ls_tmpfile)
END IF

IF FileExists(ls_logfile) THEN
	FileDelete(ls_logfile)
END IF

IF f_blobtofile(ls_tmpfile, Blob(ls_exec,EncodingANSI!), arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

IF Run(ls_tmpfile) <> 1 THEN
	rslt = 0
	arg_msg = "执行脚本失败," + ls_tmpfile
	GOTO ext
END IF

DO WHILE Not FileExists(ls_logfile)
	sleep(1)
LOOP

FileDelete(ls_tmpfile)

Blob lb_msg
IF f_filetoblob(ls_logfile, lb_msg, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

FileDelete(ls_logfile)

String ls_msg
ls_msg = String(lb_msg, EncodingANSI!)

arg_msg = Lower(ls_msg)

IF Pos(arg_msg, 'error ra0000') > 0 And (Pos(arg_msg, '管理员') > 0 Or Pos(arg_msg, 'admin') > 0) THEN
	rslt = 0
	arg_msg = '注册"' + arg_filepath + '"失败，请以管理员身份运行本程序。详细信息：~r~n~r~n' + arg_msg
ELSEIF Pos(arg_msg, 'success') <= 0 And Pos(arg_msg, '成功') <= 0 THEN
	rslt = 0
END IF

ext:
Destroy lds_dllmap
RETURN rslt






end function

public function integer unregdll (string arg_filepath, ref string arg_msg);//====================================================================
// 事件: uo_reghelper.regdll()
//--------------------------------------------------------------------
// 描述: 注册.net的DLL
//--------------------------------------------------------------------
// 参数:
// 	value    	string	arg_filepath	
// 	reference	string	arg_msg     	
//--------------------------------------------------------------------
// 返回:  integer
//--------------------------------------------------------------------
// 作者:	lwl		日期: 2013年03月23日
//--------------------------------------------------------------------
//	LONGJOE
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================

if ins_win32 then
	return unreg32dll(arg_filepath, arg_msg)
end if

Int rslt = 1

IF Not FileExists(arg_filepath) THEN
	rslt = 0
	arg_msg = arg_filepath + '不存在'
	GOTO ext
END IF

String ls_regkey
ls_regkey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework"

String ls_valuename
ls_valuename = "InstallRoot"

String ls_frameworkpath
IF RegistryGet(ls_regkey, ls_valuename, RegString!, ls_frameworkpath) <> 1 THEN
	rslt = 0
	arg_msg = "没有安装.net Framework"
	GOTO ext
END IF

String ls_exec = "",ls_exec1
IF DirectoryExists(ls_frameworkpath + "v4.0.30319\") THEN
	ls_exec = ls_frameworkpath + "v4.0.30319\"
ELSEIF  DirectoryExists(ls_frameworkpath + "v2.0.50727\") THEN
	ls_exec = ls_frameworkpath + "v2.0.50727\"
ELSEIF  DirectoryExists(ls_frameworkpath + "v1.1.4322\") THEN
	ls_exec = ls_frameworkpath + "v1.1.4322\"
END IF

ls_exec = ls_exec + "RegAsm.exe"

IF Not FileExists(ls_exec) THEN
	rslt = 0
	arg_msg =  ls_exec + "不存在"
	GOTO ext
END IF

String ls_logfile
ls_logfile = "tmp_reg.txt"

String ls_logfile1
ls_logfile1 = "tmp_tmp.log"

ls_exec = "~"" + ls_exec + "~" ~"" + arg_filepath + "~" /unregister > ~"" + ls_logfile1 + "~" 2>&1~r~nrename ~"" + ls_logfile1 + "~" ~"" + ls_logfile + "~""
//ls_exec = "~"" + ls_exec + "~"" + " " + arg_filepath + + " /unregister" + "~"" +  "/codebase >" +  "~"" + ls_logfile1 + "~" 2>&1~r~nrename ~"" + ls_logfile1 + "~" ~"" + ls_logfile + "~""
String ls_tmpfile 
ls_tmpfile = "tmp_reg.cmd"

IF FileExists(ls_tmpfile) THEN
	FileDelete(ls_tmpfile)
END IF

IF FileExists(ls_logfile) THEN
	FileDelete(ls_logfile)
END IF

IF f_blobtofile(ls_tmpfile, Blob(ls_exec,EncodingANSI!), arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

IF Run(ls_tmpfile) <> 1 THEN
	rslt = 0
	arg_msg = "执行脚本失败," + ls_tmpfile
	GOTO ext
END IF

DO WHILE Not FileExists(ls_logfile)
	sleep(1)
LOOP

FileDelete(ls_tmpfile)

Blob lb_msg
IF f_filetoblob(ls_logfile, lb_msg, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

FileDelete(ls_logfile)

String ls_msg
ls_msg = String(lb_msg, EncodingANSI!)

arg_msg = ls_msg

IF Pos(arg_msg, 'success') <= 0 And Pos(arg_msg, '成功') <= 0 THEN
	rslt = 0
END IF

ext:
RETURN rslt



end function

public function integer connecttonewobject (string arg_progid, string arg_filepath, ref oleobject arg_ole, ref string arg_msg);//====================================================================
// 事件: uo_reghelper.connecttonewobject()
//--------------------------------------------------------------------
// 描述: 
//--------------------------------------------------------------------
// 参数:
// 	value    	string   	arg_progid  		类名
// 	value    	string   	arg_filepath		DLL路径
// 	reference	oleobject	arg_ole     	要连接的oleobject
// 	reference	string   	arg_msg     	返回失败信息
//--------------------------------------------------------------------
// 返回:  integer
//--------------------------------------------------------------------
// 作者:	lwl		日期: 2013年03月23日
//--------------------------------------------------------------------
//	LONGJOE
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================


Int rslt = 1
IF sv_option_iftryreg AND pf_isadmin() THEN
	IF tryreg(arg_progid, arg_filepath, Ref arg_msg, False) <> 1 THEN
		rslt = 0
		GOTO ext
	END IF
END IF

IF arg_ole.ConnectToNewObject(arg_progid) <> 0 THEN
	rslt = 0
	arg_msg = '连接ole对象失败,' + arg_progid + ',' + arg_filepath
	GOTO ext
END IF

ext:
RETURN rslt








end function

public function datetime pf_getfilecreatetime (string arg_filefullpathname);//pf_getfilecreatetime
long rslt
datetime createtime,errdatetime
date ls_date
time ls_time
systemtime ls_systemtime
filetime lpCreationTime ,lpLastAccessTime ,lpLastWriteTime
long li_FileNum

//

li_FileNum = lOpen(arg_filefullpathname,0)
rslt = GetFileTime (li_FileNum ,lpCreationTime ,lpLastAccessTime ,lpLastWriteTime )
li_FileNum=lclose(li_FileNum)

if rslt=0 then return errdatetime

//rslt=FileTimeToSystemTime(lpCreationTime,ls_systemtime)//
rslt=FileTimeToSystemTime(lpLastWriteTime,ls_systemtime)

if rslt=0 then return errdatetime
	
ls_date=date(string(ls_systemtime.wYear)+'.'+&
				string(ls_systemtime.wmonth)+'.'+&
				string(ls_systemtime.wDay))

ls_time=time(string(ls_systemtime.wHour)+':'+&
				string(ls_systemtime.wMinute )+':'+&
				string(ls_systemtime.wSecond ))

createtime =datetime(ls_date,ls_time)

return createtime
end function

public function integer tryreg (string arg_progid, string arg_filepath, ref string arg_msg, boolean arg_if_delete);
Int rslt = 1

Long ll_pos
String ls_path
ls_path = arg_filepath
ll_pos = Pos(ls_path, '\')
IF ll_pos = 0 THEN
	
	IF sys_cur_path = '' THEN
		ls_path = pf_getfullpathname(arg_filepath)
	ELSE
		ls_path = sys_cur_path + arg_filepath
	END IF
	
	IF Not FileExists(ls_path) THEN
		ls_path = "C:\Windows\SysWOW64\" + arg_filepath
		IF Not FileExists(ls_path) THEN
			ls_path = "C:\Windows\System32\" + arg_filepath
		END IF
	END IF
END IF

IF Not FileExists(ls_path) THEN
	rslt = 0
	arg_msg = '文件不存在,' + ls_path
	GOTO ext
END IF

String ls_codebase
ls_codebase = f_codebase(arg_progid)
IF IsNull(ls_codebase) THEN
	GOTO reg
END IF

DateTime ld_org_date, ld_cur_date

IF Lower(ls_codebase) <> Lower(ls_path) THEN
	IF Lower(ls_codebase) <> "" THEN
		IF FileExists(ls_codebase) THEN
			// DONE: 如果原来的较新 GOTO con
			ld_org_date = pf_getfilecreatetime(ls_codebase)
			ld_cur_date = pf_getfilecreatetime(ls_path)
			IF ld_cur_date <= ld_org_date THEN
				GOTO con
			END IF
			unregdll(ls_codebase, arg_msg)
		END IF
	END IF
	GOTO reg
END IF

GOTO con

reg:
String ls_msg
IF regdll(ls_path, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF
ls_codebase = f_codebase(arg_progid)
IF IsNull(ls_codebase) THEN
	rslt = 0
	arg_msg = ls_path + '文件中不存在对象:' + arg_progid + ',请联系软件供应商获取最新文件版本!'
	IF arg_if_delete THEN
		unregdll(ls_path, ls_msg)
		FileDelete(ls_path)
		arg_msg += '旧文件已被删除'
	END IF
	GOTO ext
END IF
IF Lower(ls_codebase) <> Lower(ls_path) THEN
	rslt = 0
	arg_msg = ls_path + '文件注册失败'
	GOTO ext
END IF
con:

ext:
RETURN rslt























end function

public function integer tryreg (string arg_progid, string arg_filepath, ref string arg_msg);return tryreg(arg_progid, arg_filepath, ref arg_msg, false)
end function

private function integer unreg32dll (string arg_filepath, ref string arg_msg);Int rslt = 1

IF Not FileExists(arg_filepath) THEN
	rslt = 0
	arg_msg = arg_filepath + '不存在'
	GOTO ext
END IF

String ls_exec = ""
ls_exec = "C:\WINDOWS\system32\regsvr32.exe"

IF Not FileExists(ls_exec) THEN
	rslt = 0
	arg_msg =  ls_exec + "不存在"
	GOTO ext
END IF

String ls_logfile
ls_logfile = "tmp_reg.txt"

String ls_logfile1
ls_logfile1 = "tmp_tmp.log"

ls_exec = "~"" + ls_exec + "~" /s /u ~"" + arg_filepath + "~" > ~"" + ls_logfile1 + "~" 2>&1~r~nrename ~"" + ls_logfile1 + "~" ~"" + ls_logfile + "~""

String ls_tmpfile
ls_tmpfile = "tmp_reg.cmd"

IF FileExists(ls_tmpfile) THEN
	FileDelete(ls_tmpfile)
END IF

IF FileExists(ls_logfile) THEN
	FileDelete(ls_logfile)
END IF

IF f_blobtofile(ls_tmpfile, Blob(ls_exec,EncodingANSI!), arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

IF Run(ls_tmpfile) <> 1 THEN
	rslt = 0
	arg_msg = "执行脚本失败," + ls_tmpfile
	GOTO ext
END IF

DO WHILE Not FileExists(ls_logfile)
	sleep(1)
LOOP

FileDelete(ls_tmpfile)

Blob lb_msg
IF f_filetoblob(ls_logfile, lb_msg, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

FileDelete(ls_logfile)

String ls_msg
ls_msg = String(lb_msg, EncodingANSI!)

arg_msg = ls_msg

ext:
RETURN rslt


end function

public function string pf_getfullpathname (string arg_filename);//f_init_syscurpath(arg_msg)
Long rslt = 1
String lpBuffer
lpBuffer = Fill('',200)
Long lpfilepart,li_FileNum

rslt = GetFullPathName(arg_filename,196,lpBuffer,lpfilepart)

IF rslt = 0 THEN
	return arg_filename
ELSE
	sys_cur_path = Left(lpBuffer,Len(lpBuffer)-Len(arg_filename))
	return lpBuffer
END IF

end function

public function boolean pf_isadmin ();// DONE: 检查是否有注册表权限

String ls_key
ls_key = 'HKEY_LOCAL_MACHINE\SOFTWARE\LongJoe'
String ls_name
ls_name = 'testadmin'

IF RegistrySet(ls_key, ls_name, RegString!, publ_operator) = 1 THEN
	RETURN True
ELSE
	RETURN False
END IF


end function

public subroutine set_sv_option_iftryreg (boolean arg_value);sv_option_iftryreg = arg_value
end subroutine

on uo_reghelper.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_reghelper.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on