aa= CREATEOBJECT("form")
WITH aa
.Show
.width=500
.height=500
TRY
.ADDOBJECT("Olefoxit","Olecontrol","Foxit.FoxitReaderSDKCtrl.3")
CATCH
!regsvr32/s FoxitReader_AX_Pro.ocx
.ADDOBJECT("Olefoxit","Olecontrol","Foxit.FoxitReaderSDKCtrl.3")
ENDTRY
WITH aa.olefoxit
.openFile(Getfile('pdf'),'')
&&如果有密码,后面的空字符串应改为相应的密码
.Visible=.t.
.width=500
.height=500
.showTitleBar(0)
.ShowToolBar(0)
.showFormFieldsMessageBar(0)
.showNavigationPanels(0)
.showStatusBar(0)
ENDWITH
ENDWITH
susp
retu
附:调用的是这个控件FoxitReader_AX_Pro.ocx
(下载频道-上传资源功能好像不能用)
[此贴子已经被作者于2024-4-21 06:23编辑过]