说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用最原始的方法编制程序-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
用最原始的方法编制程序-Delphi资料

program MyApp;

uses Windows

Messages;

function AppWindowProc( hWnd:HWND; uMsg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT; stdcall; // 回调函数

begin

Result := 0;

case uMsg of WM_DESTROY:begin

PostQuitMessage(0);

Exit;

end;

end;

Result := DefWindowProc(hWnd

uMsg

wParam

lParam);

end;

var

wc: TWndClass;

hWnd: Integer;

MSG: TMsg;

begin // 程序从这里开始执行

wc.style := CS_VREDRAW or CS_HREDRAW;

wc.lpfnWndProc := @AppWindowProc;

wc.cbClsExtra := 0;

wc.cbWndExtra := 0;

wc.hInstance := HInstance;

wc.hIcon := LoadIcon(0

IDI_APPLICATION);

wc.hCursor := LoadCursor(0

IDC_ARROW);

wc.hbrBackground := (COLOR_BTNFACE+1);

wc.lpszMenuName := nil;

wc.lpszClassName := 'My App';

if RegisterClass(wc)=0 then Exit;

hWnd := CreateWindow( wc.lpszClassName

'TEST'

WS_OVERLAPPEDWINDOW

CW_USEDEFAULT

CW_USEDEFAULT

CW_USEDEFAULT

CW_USEDEFAULT

0

0

HInstance

nil);

if hWnd=0 then Exit;

ShowWindow(hWnd

SW_SHOWNORMAL);

while GetMessage(MSG

0

0

0) do

begin

TranslateMessage(MSG);

DispatchMessage(MSG);

end;

Halt(MSG.wParam);

end.

在程序中使用自定义的鼠标-Delphi资料 怎样建立简单的任务栏应用程序-Delphi资料 增强DelphiTStatusBar控制 制作Delphi的竖排标签 自适应表单的实现-Delphi资料 请问foxpro数据库支持动态记录集吗? ASP.net中引用自己的类库为什么不出现智能提示?VS.net中怎么样在客户端调试服务器中的存储过程? 我女友山西师大体院毕业(2003)随我来北京,欲找体育教师职位,那位有相关消息,加分重谢 100个客户端用ADO通过ADSL同时连到远程MS-SQLserver 其结果会怎样.. 一个非常简单的问题 工作累了、觉得无聊的就去看看电影和动画吧……哈哈哈 №①【高手请进】!求组合方案生成算法 我做了一网站,请大家指教! 执行bcp命令 求最好的英语语法入门书! 英语语法知识 什么书好一点 三篇英语读后感三篇初二水平的英语读后感,70字左右 假如你是女人,你想不想多搞几个男人!要女人来回答 英语,短文填词....terrible tsuna 《让我们永远在一起的英文》怎么写? 有关如何教好英语语法的书籍 关于英语语法、单词的书籍? 推荐本 英语语法 的书籍?最好解析的比较详细大学的 美国学者:星巴克咖啡在中国必须贵 否美元对主要货币28日普涨但仍维持低位中国投资者在悉尼购买逾6亿澳元土地开一家婚外情网站打算进军新加坡 遭公开日本进入“胖女时代”或因对瘦人审美疲猴年将至 云南野生动物园萌猴亮相济州航空首家中国旗舰店登陆去哪儿网芜湖镜湖区藕香园1.31发生火灾 消芜铜警方联手全面瓦解一大型传销组织想生宝宝,9大禁忌万万碰不得!!都市神侠主角杀无赦红尘修梦太浩神级位面商人白鹿原旅游葡萄山旅游穿山公园旅游呈贡区旅游叶问纪念馆旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘