首先啊。你把加载皮肤的路径放在一个变量中
比如
dim a as string
a = App.Path & "/123.she"
SkinH_AttachEx a, ""
然后把变量a也就是路径写入一个文件中
Dim sssa As String * 1000
Dim str2 As String
fn = App.Path & "\" & "HJonny" & ".dll"
sssa = a
If Dir(fn) <> "" Then
Kill fn
End If
Open fn For Binary As #1
Put #1, , sssa '写入数据
Close #1 '关闭
这样就把路径写在一个文件中了。
当窗口载入的时候在加入如下代码
Private Sub Form_Load()
Dim sssa As String * 1000
Dim str2 As String
fn = App.Path & "\" & "HJonny" & ".dll"
If Dir(fn) <> "" Then
Open fn For Binary As #2
Get #2, , sssa
Close #2
str2 = Trim(sssa)
SkinH_AttachEx str2, ""
End Sub
这样就行了。希望能对你有帮助
将路径或参数存到注册表,下次运行时候,从注册表读取。