|
本帖最后由 haob 于 2010-2-2 18:03 编辑
RT。今天时间仓促,直接给代码了,看得懂的拿去用,看不懂的等我有时间了再来解释啊:
On Error Resume Next
Dim fname As String
Dim v
Dim byt() As Byte
fname = App.Path & "\XXX.exe"
If Dir(fname) = "" Then
v = LoadResData(101, "CUSTOM")
byt = v
Open fname For Binary As #1
Put #1, 1, byt()
Close #1
End If |
|