CG保存为墙纸

dbshy

某天,RTS编的卡住了,就跑到论坛上来看看,
就看到提问区有人问到这个东西

完全没技术含量的东西,调试的时候犯了个很无语的错误,感谢IAMI和一路一风程的指教
用法是在是否截图的判断语句下加
Screen::shot
CWP::change
记得把SCREENSHOT.DLL放到游戏目录下,另外在API调用那里自己改图片地址

突然发现有个BUG，无法获得图片地址，大家可以用 Dir.getwd OR Dir.pwd
OR GetModuleFileName 来获得地址，我就懒得加了

1. =begin
   
2. 
   
3.    保存CG为WALLPAPER BY 水蓝
   
4.    
   
5.    用法是在是否截图的判断语句下加
   
6.     Screen::shot
   
7.     CWP::change
   
8.     记得把SCREENSHOT.DLL放到游戏目录下
   
9. 
   
10. =end
    
11. 
    
12. 
    
13. module CWP
    
14. 
    
15. 
    
16. SPI_SETDESKWALLPAPER = 20
    
17. 
    
18. SPIF_UPDATEINIFILE = 0x1
    
19. 
    
20. def self.change
    
21.    
    
22.   $spi = Win32API.new('user32', 'SystemParametersInfo','llpl', 'l')
    
23. 
    
24.   $spi.call(SPI_SETDESKWALLPAPER, 0, 'D:\Project88\Graphics\Pictures\screenshot.bmp', SPIF_UPDATEINIFILE)
    
25.   
    
26. end
    
27. 
    
28. end
    
29. 
    
30. #==============================================================================
    
31. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
    
32. #============================================================================== #
    
33. # Screenshot V2
    
34. #
    
35. # Screenshot Script v1 & screenshot.dll v1            created by: Andreas21
    
36. # Screenshot Script v2                                created/edit by: cybersam
    
37. # the autor is found on a german board...
    
38. # the comments are added by me...
    
39. # since the autor didnt want to add any comment...
    
40. # so thats it from here...
    
41. # have fund with it... ^-^
    
42. #
    
43. # oh yea.. the needed command line is found in "Scene_Map" in "def update"
    
44. #
    
45. #===============================================================================
    
46. module Screen  
    
47.   @screen = Win32API.new 'screenshot', 'Screenshot', %w(l l l l p l l), ''
    
48.   @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'
    
49.   @findwindow = Win32API.new 'user32', 'FindWindowA', %w(p p), 'l'
    
50.   module_function
    
51.   #-----------------------------------------------------------------------------
    
52.   # here comes the stuff...
    
53.   # i add here the stuff for automatic change of the number for the screenshot
    
54.   # so it wont overrite the old one...
    
55.   # if you want to change so stuff change them in this line below
    
56.   # or you can change them in your command line... like
    
57.   # Screen::shot("screenshot", 2)
    
58.   # this change the name and the type of the screenshot
    
59.   # (0 = bmp, 1 = jpg and 2 = png)
    
60.   # ----------------------------------------------------------------------------
    
61.   def shot(file = "screenshot", typ = 0)
    
62.     # to add the right extension...
    
63.     if typ == 0
    
64.       typname = ".bmp"
    
65.     elsif typ == 1
    
66.       typname = ".jpg"
    
67.     elsif typ == 2
    
68.       typname = ".png"
    
69.     end   
    
70.     file_index = 0   
    
71.     dir = "Graphics/Pictures/"   
    
72.     # make the filename....
    
73.     file_name = dir + file.to_s + typname.to_s   
    
74.     # make the screenshot.... Attention dont change anything from here on....
    
75.     @screen.call(0,0,640,480,file_name,handel,typ)
    
76.   end
    
77.   # find the game window...
    
78.   def handel
    
79.     game_name = "\0" * 256
    
80.     @readini.call('Game','Title','',game_name,255,".\\Game.ini")
    
81.     game_name.delete!("\0")
    
82.     return @findwindow.call('RGSS Player',game_name)
    
83.   end
    
84. end

复制代码