怎么可以修改窗口大小

xlwas

有没有简单的方法

---

版务信息：本贴由楼主自主结贴～

3535

复制全部脚本内容，在Main脚本之前按insert，插入此脚本全部内容。


这个脚本中当然提供其他的刷新方法，如果把窗口改小则不会出现任何问题，如果改大则有一些刷新上的小问题。

1. #==============================================================================
   
2. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
   
3. #==============================================================================
   
4. # ————————————————————————————————————
   
5. # 本脚本来自www.66rpg.com，转载请保留此信息
   
6. # ————————————————————————————————————
   
7. 
   
8. #ウィンドウサイズの変更(v1.00)
   
9. 
   
10. class Win32API
    
11.   GAME_INI_FILE = ".\\Game.ini"
    
12.   
    
13.   def Win32API.GetPrivateProfileString(section, key)
    
14.     val = "\0"*256
    
15.     gps = Win32API.new('kernel32', 'GetPrivateProfileString',%w(p p p p l p), 'l')
    
16.     gps.call(section, key, "", val, 256, GAME_INI_FILE)
    
17.     val.delete!("\0")
    
18.     return val
    
19.   end
    
20. 
    
21.   def Win32API.FindWindow(class_name, title)
    
22.     fw = Win32API.new('user32', 'FindWindow', %(p, p), 'i')
    
23.     hWnd = fw.call(class_name, title)
    
24.     return hWnd
    
25.   end
    
26. 
    
27.   HWND_TOP     = 0
    
28.   HWND_TOPMOST = -1
    
29.   SWP_NOMOVE   = 2
    
30.   
    
31.   def Win32API.SetWindowPos(hWnd, w, h)
    
32.     swp = Win32API.new('user32', 'SetWindowPos', %(l, l, i, i, i, i, i), 'i')
    
33.     ok = swp.call(hWnd, HWND_TOP, 0, 0, w, h, SWP_NOMOVE)
    
34.     # 下の行を有効にすると、常に前面に表示されるウィンドウになる。
    
35.     #ok = swp.call(hWnd, HWND_TOPMOST, 0, 0, w, h, SWP_NOMOVE)
    
36.     return ok
    
37.   end
    
38. end
    
39. 
    
40. title =  Win32API.GetPrivateProfileString("Game", "Title")
    
41. hWnd = Win32API.FindWindow("RGSS Player", title)
    
42. 
    
43. # 幅320、高さ480に変更
    
44. ok = Win32API.SetWindowPos(hWnd, 320, 480)
    
45. if(ok == 0)
    
46.   p "サイズ変更失敗"
    
47. end
    
48. #==============================================================================
    
49. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
    
50. #==============================================================================
    

复制代码

asperta

http://rpg.blue/web/htm/news170.htm

xlwas

硪是想改成640*400的..