您所在位置：主题：[讨论]求助：一个关于DLL的编写
sosxxx007
[专家分：0] 发布于 2009-12-05 13:16:00
这是读DLL的一段代码，FindPort函数是读加密狗，如果函数值返回0则ok。
我是用vfp语言编程，Delphi语言不会，请Delphi高手帮写一个跳过加密狗的DLL。谢谢!!
declare integer FindPort in Syunew3D.DLL integer, string @
declare integer FindPort_2 in Syunew3D.DLL integer, long , long , string @
getvalue = SPACE(255)
lo = LEN(GETVALUE)
setvalue = SPACE(1)
public devicepath, ret
devicepath = SPACE(260)
ret = FINDPORT(0,@DEVICEPATH)
if RET <> 0
= MESSAGEBOX("您正在使用试用版”！！！",48,"系统提示")
else
.....
endi
我是用vfp语言编程，Delphi语言不会，请Delphi高手帮写一个跳过加密狗的DLL。谢谢!!
declare integer FindPort in Syunew3D.DLL integer, string @
declare integer FindPort_2 in Syunew3D.DLL integer, long , long , string @
getvalue = SPACE(255)
lo = LEN(GETVALUE)
setvalue = SPACE(1)
public devicepath, ret
devicepath = SPACE(260)
ret = FINDPORT(0,@DEVICEPATH)
if RET <> 0
= MESSAGEBOX("您正在使用试用版”！！！",48,"系统提示")
else
.....
endi