查看: 1351|回复: 3

RM如何调用DLL

  [复制链接]

勥

梦石
0
星屑
72
在线时间
673 小时
注册时间
2006-10-3
回帖
1674

开拓者

发表于 2008-11-16 01:03:41 | 显示全部楼层 |阅读模式

加入我们,或者,欢迎回来。

您需要 登录 才可以下载或查看,没有账号?注册会员

×
VB里这样调用:
Private Declare Function mathadd Lib "DLL地址" (ByVal a As Long, ByVal b As Long) As Long

在RM里如何调用?
版务信息:本贴由楼主自主结贴~
( ส็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็ ω ส้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้【看猫君玩,我也搞一只】)
梦石
0
星屑
50
在线时间
75 小时
注册时间
2007-6-25
回帖
2227

开拓者第1届Title华丽大赛亚军

发表于 2008-11-16 01:31:28 | 显示全部楼层
module RM_Tray

Add_Tray    = Win32API.new("RMTray","_add_tray","l","v")
Modify_Tray = Win32API.new("RMTray","_modify_tray","v","v")
Remove_Tray = Win32API.new("RMTray","_remove_tray","v","v")

buf = 0.chr * 256
gpps = Win32API.new("kernel32","GetPrivateProfileString","pppplp","l")
gpps.call("Game","Title","",buf,256,"./Game.ini")
buf.delete!("\0")
HWND = Win32API.new("user32","FindWindow","pp","i").call("RGSS Player",buf)

def self.add(hwnd = HWND)
   Add_Tray.call(hwnd)
end

def self.modify
   Modify_Tray.call
end

def self.remove
   Remove_Tray.call
end

end
   
RM_Tray.add


^-^~我承认我是复制的~因为电脑上刚好有存~{/hx}
新浪微博~求粉ING~
  怕麻烦~不擅表达~希望永远是萝莉ING~最擅长浪费时间~^-^~扭头~ →_→ ~
回复

使用道具 举报

孤独守望

梦石
0
星屑
3144
在线时间
1535 小时
注册时间
2006-10-16
回帖
4223

开拓者贵宾

发表于 2008-11-16 01:34:17 | 显示全部楼层
做懒人,是可以的吗= =
http://rpg.blue/viewthread.php?tid=95679
不需要再说明了吧=v=要的话请直接参考LS,引用文件夹下的DLL请加目录名
系统信息:本贴由楼主认可为正确答案,66RPG感谢您的热情解答~
菩提本非树,明镜本非台。回头自望路漫漫。不求姻缘,但求再见。
本来无一物,何处惹尘埃。风打浪吹雨不来。荒庭遍野,扶摇难接。
不知道多久更新一次的博客
回复

使用道具 举报

勥

梦石
0
星屑
72
在线时间
673 小时
注册时间
2006-10-3
回帖
1674

开拓者

 楼主| 发表于 2008-11-16 05:45:42 | 显示全部楼层
我又不是没看。。。实在看不明白第三个和第四个参数

试了多次都出现错误
( ส็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็ ω ส้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้้【看猫君玩,我也搞一只】)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Powered by Discuz! X5.0 © 2001-2026 Discuz! Team.

在本版发帖返回顶部