关于 BeginUpdateResource系列函数的问题,高手请进

Question

Private Declare Function UpdateResource Lib "kernel32" Alias "UpdateResourceA" (ByVal hUpdate As Long, ByVal lpType As Long, ByVal lpName As Long, ByVal wLanguage As Long, ByVal lpData As long, ByVal cbData As Long) As LongDim Manifest() As byteredim Manifest(LOF(1)-1)
Get #1, , ManifesthRes = BeginUpdateResource(file1, 0)
UpdateResource hRes, RT_DATA, _
CREATEPROCESS_MANIFEST_RESOURCE_ID, _
0, varptr(Manifest(0)), ubound(Mainifest)+1
 
 用PE Explorer查看时格式不对,请问是什么问题????????

Answer 1

http://yuan505.vicp.net/cy_filesxxx/vbsrc/ResUpdate.rar