秀秀Win32API教程一(基础篇)

CIS狂人

(先push然后pop?不如直接unshift简单.呵呵,玩笑啦)

泽彬

尽管不懂，但还是顶一个

水镜风生

大师辛苦了……

可惜我还是看不懂呀，感觉那个WIN32API手册说的就是鸟语，API函数的功能一个也没看懂……

yangff

其实api这个东西，不理解也罢，会用就行。。
附带一个ruby里api的内容

1. /*
   
2.   Win32API - Ruby Win32 API Import Facility
   
3. */
   
4. 
   
5. #if !defined _MSC_VER && !defined _WIN32
   
6. #define  WIN32_LEAN_AND_MEAN
   
7. #include <windows.h>
   
8. #include <stdio.h>
   
9. #endif
   
10. 
    
11. #define _T_VOID     0
    
12. #define _T_NUMBER   1
    
13. #define _T_POINTER  2
    
14. #define _T_INTEGER  3
    
15. 
    
16. #include "ruby.h"
    
17. 
    
18. typedef struct {
    
19.     HANDLE dll;
    
20.     HANDLE proc;
    
21.     VALUE dllname;
    
22.     VALUE import;
    
23.     VALUE export;
    
24. } Win32API;
    
25. 
    
26. static void
    
27. Win32API_FreeLibrary(hdll)
    
28.     HINSTANCE hdll;
    
29. {
    
30.     FreeLibrary(hdll);
    
31. }
    
32. 
    
33. static VALUE
    
34. Win32API_initialize(self, dllname, proc, import, export)
    
35.     VALUE self;
    
36.     VALUE dllname;
    
37.     VALUE proc;
    
38.     VALUE import;
    
39.     VALUE export;
    
40. {
    
41.     HANDLE hproc;
    
42.     HINSTANCE hdll;
    
43.     VALUE str;
    
44.     VALUE a_import;
    
45.     VALUE *ptr;
    
46.     char *s;
    
47.     int i;
    
48.     int len;
    
49.     int ex = _T_VOID;
    
50. 
    
51.     SafeStringValue(dllname);
    
52.     SafeStringValue(proc);
    
53.     hdll = LoadLibrary(RSTRING(dllname)->ptr);
    
54.     if (!hdll)
    
55.         rb_raise(rb_eRuntimeError, "LoadLibrary: %s\n", RSTRING(dllname)->ptr);
    
56.     rb_iv_set(self, "__hdll__", Data_Wrap_Struct(rb_cData, 0, Win32API_FreeLibrary, (void*)hdll));
    
57.     hproc = (HANDLE)GetProcAddress(hdll, RSTRING(proc)->ptr);
    
58.     if (!hproc) {
    
59.         str = rb_str_new3(proc);
    
60.         str = rb_str_cat(str, "A", 1);
    
61.         hproc = (HANDLE)GetProcAddress(hdll, RSTRING(str)->ptr);
    
62.         if (!hproc)
    
63.             rb_raise(rb_eRuntimeError, "GetProcAddress: %s or %s\n",
    
64.                 RSTRING(proc)->ptr, RSTRING(str)->ptr);
    
65.     }
    
66.     rb_iv_set(self, "__dll__", UINT2NUM((unsigned long)hdll));
    
67.     rb_iv_set(self, "__dllname__", dllname);
    
68.     rb_iv_set(self, "__proc__", UINT2NUM((unsigned long)hproc));
    
69. 
    
70.     a_import = rb_ary_new();
    
71.     switch (TYPE(import)) {
    
72.     case T_NIL:
    
73.         break;
    
74.     case T_ARRAY:
    
75.         ptr = RARRAY(import)->ptr;
    
76.         for (i = 0, len = RARRAY(import)->len; i < len; i++) {
    
77.             SafeStringValue(ptr[i]);
    
78.             switch (*(char *)RSTRING(ptr[i])->ptr) {
    
79.             case 'N': case 'n': case 'L': case 'l':
    
80.                 rb_ary_push(a_import, INT2FIX(_T_NUMBER));
    
81.                 break;
    
82.             case 'P': case 'p':
    
83.                 rb_ary_push(a_import, INT2FIX(_T_POINTER));
    
84.                 break;
    
85.             case 'I': case 'i':
    
86.                 rb_ary_push(a_import, INT2FIX(_T_INTEGER));
    
87.                 break;
    
88.             }
    
89.         }
    
90.         break;
    
91.     default:
    
92.         SafeStringValue(import);
    
93.         s = RSTRING(import)->ptr;
    
94.         for (i = 0, len = RSTRING(import)->len; i < len; i++) {
    
95.             switch (*s++) {
    
96.             case 'N': case 'n': case 'L': case 'l':
    
97.                 rb_ary_push(a_import, INT2FIX(_T_NUMBER));
    
98.                 break;
    
99.             case 'P': case 'p':
    
100.                 rb_ary_push(a_import, INT2FIX(_T_POINTER));
     
101.                 break;
     
102.             case 'I': case 'i':
     
103.                 rb_ary_push(a_import, INT2FIX(_T_INTEGER));
     
104.                 break;
     
105.             }
     
106.         }
     
107.         break;
     
108.     }
     
109. 
     
110.     if (16 < RARRAY(a_import)->len) {
     
111.         rb_raise(rb_eRuntimeError, "too many parameters: %ld\n", RARRAY(a_import)->len);
     
112.     }
     
113. 
     
114.     rb_iv_set(self, "__import__", a_import);
     
115. 
     
116.     if (NIL_P(export)) {
     
117.         ex = _T_VOID;
     
118.     } else {
     
119.         SafeStringValue(export);
     
120.         switch (*RSTRING(export)->ptr) {
     
121.         case 'V': case 'v':
     
122.             ex = _T_VOID;
     
123.             break;
     
124.         case 'N': case 'n': case 'L': case 'l':
     
125.             ex = _T_NUMBER;
     
126.             break;
     
127.         case 'P': case 'p':
     
128.             ex = _T_POINTER;
     
129.             break;
     
130.         case 'I': case 'i':
     
131.             ex = _T_INTEGER;
     
132.             break;
     
133.         }
     
134.     }
     
135.     rb_iv_set(self, "__export__", INT2FIX(ex));
     
136. 
     
137.     return Qnil;
     
138. }
     
139. 
     
140. #ifdef _MSC_VER
     
141. #pragma optimize("g", off)
     
142. #endif
     
143. static VALUE
     
144. Win32API_Call(argc, argv, obj)
     
145.     int argc;
     
146.     VALUE *argv;
     
147.     VALUE obj;
     
148. {
     
149.     VALUE args;
     
150.     unsigned long ret;
     
151.     int i;
     
152.     struct {
     
153.         unsigned long params[16];
     
154.     } param;
     
155. #define params param.params
     
156. 
     
157.     VALUE obj_proc = rb_iv_get(obj, "__proc__");
     
158.     VALUE obj_import = rb_iv_get(obj, "__import__");
     
159.     VALUE obj_export = rb_iv_get(obj, "__export__");
     
160.     FARPROC ApiFunction = (FARPROC)NUM2ULONG(obj_proc);
     
161.     int items = rb_scan_args(argc, argv, "0*", &args);
     
162.     int nimport = RARRAY(obj_import)->len;
     
163. 
     
164. 
     
165.     if (items != nimport)
     
166.         rb_raise(rb_eRuntimeError, "wrong number of parameters: expected %d, got %d",
     
167.             nimport, items);
     
168. 
     
169.     for (i = 0; i < nimport; i++) {
     
170.         unsigned long lParam = 0;
     
171.         switch (FIX2INT(rb_ary_entry(obj_import, i))) {
     
172.             VALUE str;
     
173.         case _T_NUMBER:
     
174.         case _T_INTEGER:
     
175.         default:
     
176.             lParam = NUM2ULONG(rb_ary_entry(args, i));
     
177.             break;
     
178.         case _T_POINTER:
     
179.             str = rb_ary_entry(args, i);
     
180.             if (NIL_P(str)) {
     
181.                 lParam = 0;
     
182.             } else if (FIXNUM_P(str)) {
     
183.                 lParam = NUM2ULONG(str);
     
184.             } else {
     
185.                 StringValue(str);
     
186.                 rb_str_modify(str);
     
187.                 lParam = (unsigned long)StringValuePtr(str);
     
188.             }
     
189.             break;
     
190.         }
     
191.         params[i] = lParam;
     
192.     }
     
193. 
     
194.     ret = ApiFunction(param);
     
195. 
     
196.     switch (FIX2INT(obj_export)) {
     
197.     case _T_NUMBER:
     
198.     case _T_INTEGER:
     
199.         return INT2NUM(ret);
     
200.     case _T_POINTER:
     
201.         return rb_str_new2((char *)ret);
     
202.     case _T_VOID:
     
203.     default:
     
204.         return INT2NUM(0);
     
205.     }
     
206. }
     
207. 
     
208. void
     
209. Init_Win32API()
     
210. {
     
211.     VALUE cWin32API = rb_define_class("Win32API", rb_cObject);
     
212.     rb_define_method(cWin32API, "initialize", Win32API_initialize, 4);
     
213.     rb_define_method(cWin32API, "call", Win32API_Call, -1);
     
214.     rb_define_alias(cWin32API,  "Call", "call");
     
215. }
     

复制代码

npi（刷能看懂？）

★_茄孓

太棒了{/se}
感谢老版{/qiang}{/qiang}

幻獬豸

话说，网上的API帮助都是不全的，似乎连系统默认的都不全，更别说WMP的DLL了……
曾经看到过一本全的，98元，够厚，不敢买……{/fd}

yangff

以下引用幻獬豸于2008-8-4 15:19:49的发言：

话说，网上的API帮助都是不全的，似乎连系统默认的都不全，更别说WMP的DLL了……
曾经看到过一本全的，98元，够厚，不敢买……

本来就不能说哪个手册实全的

yangff

方便没vb的同胞
http://rpg.blue/upload_program/files/Winapi_98292202.rar

ONEWateR

以下引用灯笼菜刀王于2008-7-26 21:50:30的发言：

@_@


此类教程也有过 不过好像很多人不太容易理解


说实话，看了这个教程我也还是不能理解.......看到一半脑就糊了.....

我，我还是新手...

怎么说，同感

chinamonkey

楼主写得不错，其实有点耐心，配合着那个win32api索引查询一下就容易看懂一些了。
我的问题是：
    假设我之前没做过，手边尽管有win32api的查询手册，但怎么根据程序的需求知道应该使用哪个函数呢？比如还是要完成您范例程序里的功能，不看范例，面对手册里面成百上千个函数，我如何能快速知道要用的函数是GetPrivateProfileString、FindWindow、GetPrivateProfileString？
    还有
title =  Win32API.GetPrivateProfileString("Game", "Title")
是不是一定要对应*.ini文件？
（小节名，条目名）里的Game和Title是如何知道的？假如我事先知道是Title，还返回值给title干什么，直接hWnd = Win32API.FindWindow("RGSS Player"," Title")，注意不是hWnd = Win32API.FindWindow("RGSS Player", title)岂不是更省事？这样不是一样可以获得窗体的句柄么？
那个"RGSS Player"类又是如何知道的？难道要到脚本里查？如果以后我要调用这样的参数，从哪里知道这个实参就是"RGSS Player"？{/gg}

我是新手，对脚本和函数的理解还不够，请多指教。