这是一个朋友问我的问题——如何在Director中调用DLL？
在VB中可以这样调用sysdata.dll：
------------------------------------------------------------------------------------------------------------------------------------
Private Declare Function GetTime Lib "sysdata.dll" (ByVal lpString As String) As Long
（Vb中动态库的声明）

Private Sub Form_Load() （VB中启动模块）
dim str as string （定义变量str为字符串）
str = "0000000000000000000000" （这一行一定要的，而且其中的字符个数一定要和返回的字符个数相等，也就是22个字符数）
GetTime(str) （调用动态库中sysdata.dll中的GetTime函数，并把得到的字符串附给str）
MsgBox (str) （把str的值显示在对话框中，这时应得到“ZPEMAJQLUDMKVX”+“20021106”）
End Sub
------------------------------------------------------------------------------------------------------------------------------------
请问在Director中如何调用DLL？
谢谢先。

真的吗？早就想有了！