drwatson
جمعه 14 تیر 1387, 20:21 عصر
سلام
دوستان من این کد رو برای استخراج فایل مانیفست از ریسورس برنامم نوشتم
اما موقع ایجاد مانیفست یه space در آخرین خط اون میسازه و فایل اجرایی ارور میده
اینم کد:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Initialize()
InitCommonControls
Dim fs
Set fs = CreateObject("scripting.filesystemobject")
If fs.fileexists( app.path & "\" & App.EXEName & ".exe.manifest") Then
MsgBox "FileExist", vbInformation
Else
Dim v() As Byte
v = LoadResData(101, "CUSTOM")
ff = FreeFile
Open app.path & "\" & App.EXEName & ".exe.manifest" For Binary Access Write As #ff
Put #ff, , v
Close #ff
Sleep 2000
End If
البته نمیدونم روش بهتر چیه که فایل مانیفست توی exe قرار بگیره
ممنون میشم راهنمایی کنید
دوستان من این کد رو برای استخراج فایل مانیفست از ریسورس برنامم نوشتم
اما موقع ایجاد مانیفست یه space در آخرین خط اون میسازه و فایل اجرایی ارور میده
اینم کد:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Initialize()
InitCommonControls
Dim fs
Set fs = CreateObject("scripting.filesystemobject")
If fs.fileexists( app.path & "\" & App.EXEName & ".exe.manifest") Then
MsgBox "FileExist", vbInformation
Else
Dim v() As Byte
v = LoadResData(101, "CUSTOM")
ff = FreeFile
Open app.path & "\" & App.EXEName & ".exe.manifest" For Binary Access Write As #ff
Put #ff, , v
Close #ff
Sleep 2000
End If
البته نمیدونم روش بهتر چیه که فایل مانیفست توی exe قرار بگیره
ممنون میشم راهنمایی کنید