好吧。项目启动后用拷贝文件的方法整过去了。
If FileSys.DirectoryExists(ApplicationPath & "project") Then '如果目录C:\MyFolder存在
If FileSys.FileExists(ApplicationPath & "TSCLIB.dll") = False Then '如果程序下没有SDK则复制过来
If FileSys.FileExists(ProjectPath & "TSCLIB.dll") Then
FileSys.CopyFile(ProjectPath & "TSCLIB.dll", ApplicationPath & "TSCLIB.dll",True)
End If
End If
If FileSys.FileExists(ApplicationPath & "TSCLIB.lib") = False Then '如果程序下没有SDK则复制过来
If FileSys.FileExists(ProjectPath & "TSCLIB.lib") Then
FileSys.CopyFile(ProjectPath & "TSCLIB.lib", ApplicationPath & "TSCLIB.lib",True)
End If
End If
End If