Delphi直接用Windows API编程
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
Delphi程序员往往习惯了用VCL元件编程,其实Delphi也能进行基于WINDOWS API SDK的编程。而且用Delphi在某些方面效果似乎比用Visual
C++效果还要好。比如本例程,用Delphi 6编译出来只有9216字节(9k)而
同样的Visual C++程序却有16896字节(17k)。(此例程是笔者从网上下载的
c++源码例程,其中有c源程序,和编译好的.exe文件。源代码经笔者改写成Delphi代码。)这证明Delphi编译器的优化效果非常好。
API是(Application Programming Interface)的缩写,意为应用编程
界面,它包含了编写Windows所有函数、数据类型。VCL就是以它为基础进行
封装的,它是应用程序在Windows 上运行的基础。通过熟悉使用WINDOWS API SDK直接编制WINDOWS程序,程序员将对WINDOWS的执行机制有更深入的了解,
从而编写出更高效、实用的程序。
下面是我们用API函数建立的第一个程序:
1 : program HELLOWIN;
2 :
3 : uses
4 : windows, Messages ,mmsystem;
5 :
6 :
7 :
8 : var
9 : sz_appname:array [0..8] of char='HelloWin'#0;
10 : Win_Class: WNDCLASSEX; //窗口类
11 : w_Handle,inst:HWND;//w_Handle窗口句柄、程序句柄
12 : w_msg:TMSG; //消息数据
13 :
14 : function WindowProc(h_Wnd,u_Msg,w_Param,l_Param: LONGINT):LRESULT;stdcall;
15 : //回调函数
16 : var p_hdc:hdc;
17 : p_rect:trect;
18 : ps : PAINTSTRUCT ;
19 : begin
20 :
21 :
22 : case u_msg of
23 : WM_DESTROY : PostQuitMessage (0);
24 : WM_CREATE : PlaySound (pchar('hellowin.wav'#0), 0, SND_FILENAME or SND_ASYNC) ;
25 : WM_PAINT :begin
26 : p_hdc := BeginPaint (h_wnd, ps) ;
27 : GetClientRect (h_wnd, p_rect);
28 : DrawText (p_hdc, pchar('Hello, Windows!'#0), -1, p_rect,
29 : DT_SINGLELINE or DT_CENTER or DT_VCENTER) ;
30 : EndPaint (h_wnd, ps) ;
31 : end;
32 :
33 : end;
34 : Result := DefWindowProc(h_Wnd, u_Msg, w_Param, l_Param);
35 : end;
36 :
37 :
38 :
39 :
40 : begin
41 : Inst := hInstance;
42 : win_class.cbSize := sizeof (win_class) ;
43 : win_class.style := CS_HREDRAW or CS_VREDRAW ;
44 : win_class.lpfnWndProc := @WindowProc ;
45 : win_class.cbClsExtra := 0 ;
46 : win_class.cbWndExtra := 0 ;
47 : win_class.hInstance := Inst ;
48 : win_class.hIcon := LoadIcon (0, IDI_APPLICATION) ;
49 : win_class.hCursor := LoadCursor (0, IDC_ARROW) ;
50 : win_class.hbrBackground := HBRUSH (GetStockObject (WHITE_BRUSH)) ;
51 : win_class.lpszMenuName := nil ;
52 : win_class.lpszClassName := @sz_AppName ;
53 : win_class.hIconSm := LoadIcon (0, IDI_APPLICATION) ;
54 : RegisterClassEx(Win_Class);
55 : w_Handle:=CreateWindow(@sz_appname, pchar('The Hello Program'#0),
56 : WS_OVERLAPPEDWINDOW,200,200,300,300,0,0,
57 : Inst,nil) ;
58 :
59 : ShowWindow (w_Handle, SW_SHOWNORMAL) ;
60 : UpdateWindow(w_Handle);
61 :
62 :
63 : while(GetMessage(w_msg, 0, 0, 0)) do
64 : begin
65 : TranslateMessage(w_msg);
66 : DispatchMessage(w_msg);
67 : end;
68 :
69 :
70 : end.