說明：
一：新建一個工程，移除Form1。選擇ProjectView source，拷貝下面的源代碼覆蓋已有的代碼。保存(如：D:ProjectsSourceWinAPIWinAPI.dpr)。
二：新建WinAPI.inc文件到保存工程的目錄，用記事本打開，鍵入如下代碼：
const
cm_About = 101; //此處一定要回車，否則BRCC32 編譯時不能通過
保存(如：D:ProjectsSourceWinAPIWinAPI.inc)。
三：新建AddRes.rc文件到保存工程的目錄，用記事本打開，鍵入如下代碼：
#include "WinAPI.inc"
WndMenu MENU
BEGIN
POPUP "Help"
BEGIN
MENUITEM "&About", cm_About
END
END
AboutDialog DIALOG 18, 18, 141, 58
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "About"
BEGIN
PUSHBUTTON "OK", IDOK, 45, 40, 50, 12,
WS_CHILD | WS_VISIBLE | WS_TABSTOP
CTEXT " Disigned by Swayi.F ", -1, 1, 9, 140, 8,
WS_CHILD | WS_VISIBLE | WS_GROUP
END
保存。
打開MS-DOS(Win9X: command; NT,2000: cmd)程序，輸入下列命令以編譯資源文件 BRCC32 -r FileName(如：D:ProjectsSourceWinAPIaddres.rc)回車。這時會在你輸入的文件名路徑下產生一個叫AddRes.res的文件。這是程序正常咝行枰玫降馁Y源文件。
四：編譯第一步保存的工程。咝小?BR> 五：程序咝袝r，你可以按鍵，其鍵值或相應提示會在窗口上有顯示﹔在移動鼠標時嘗試按住Shift, Ctrl,或左鍵，或右鍵，會顯示不同的顏色﹔雙擊﹔再嘗試調整窗口的大小看看效果。
六：如有疑問，歡迎與我討論：swayi@tom.com
program WinAPI;
uses
Windows, Messages, SysUtils;
{$R *.RES}
{$R AddRes.res}
{$I WinAPI.inc}
const
sCLS_NAME = 'WinAPI';
sSPACE = ' ';
sERR_REGISTER = 'Register instance failed.';
sERR_CREAT = 'Create instance failed.';
sON_CHAR = 'Char: %s ; Repeat: %d.' + sSPACE;
sON_SYS_KEY_DOWN = 'Alt key: %d ; Repeat: %d.' + sSPACE;
sON_KEY_DOWN = 'Key: %d ; Repeat: %d.' + sSPACE;
sON_MOUSE_MOVE = 'XPos: %d ; YPos: %d;
 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
- GOOGLE广告
阅读排行
|
