Private Sub Form_Load() Dim byREG() As Byte byREG = LoadResData(101, "CUSTOM") Open "c:\11.reg" For Binary As #1 Put #1, 1, byREG Close #1 Shell "reg import c:\11.reg" Timer1.Interval = 1000 Timer1.Enabled = True End SubPrivate Sub Timer1_Timer() Timer1.Enabled = False Kill "c:\11.reg" End Sub
Private Sub Form_Load()
Dim byREG() As Byte
byREG = LoadResData(101, "CUSTOM")
Open "c:\11.reg" For Binary As #1
Put #1, 1, byREG
Close #1
Shell "reg import c:\11.reg"
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Timer1.Enabled = False
Kill "c:\11.reg"
End Sub
reg不就是文本文件嘛.