Pro/Engineer Wildfile 5.0 M060下载[proe野火版5.0][ISO] »

« 三一起重机事业部2011届应届毕业生交流群

一般情况下都是这么来处理：定义一个long型p变量接收函数返回值，定义一个字符串变量s存储所需字符串，利用CopyMemory来复制字符串到s（s预先用s=space(空间大小值)分配空间），字符串长度用lstrlen来获取。

例子代码：

Private Declare Function encrypt Lib "ENCDECp.DLL" (ByVal instr As String, ByVal mode As String) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function lstrlen Lib "Kernel32.dll" Alias "lstrlenA" (ByVal lpszString As Long) As Long

Dim p As Long
p = encrypt(ls_number, "Unicode")
CopyMemory ByVal ls_isregister, ByVal p, lstrlen(p)

某些情况下直接定义一个string变量来接收返回值也可以。