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

用最原始的方法编制程序-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.

VB建立可下拉选择的属性 -VB资料 VB建立无模式窗口 -VB资料 将VB5中的ToolBar变成平面的 将程序从任务列表中隐藏 -VB资料 将我自已的命令加入窗体的控制菜单栏-VB资料 VB利用 UnloadMode 来控制窗体的卸载? VB利用Form_QueryUnload询问使用者是否关闭窗口 利用VB的图片框实现屏幕的滚动 利用VB动态改变Windows显示模式的两种方法 利用VB控制窗口显示风格 利用VB实现浮动按钮 VB利用子类处理技术限制窗体的大小 奇形怪状的窗体 -VB资料 强制ComboBox弹出下拉框 -VB资料 强制和防止窗口重画 -VB资料 巧用“关于”对话框-VB资料 请问在VB中如何关闭别的应用程序窗口 确定屏幕分辨率-VB资料 让VB5支持动画光标 让窗口拒绝接受键盘和鼠标事件 -VB资料 让窗体处于最前面 -VB资料 让窗体居中 -VB资料 让所有的控件都动起来 -VB资料 让最大化和最小化按钮消失-VB资料 任意多边形的窗口-VB资料 如 何将「拒 绝 被 盖 住 的 窗 口 」还 原-VB资料 VB如何创建椭圆形的窗体? VB如何创建无Icon的窗体? VB如何防止Edit框中的Password不被非法获取 VB如何将鼠标显示成动画鼠标? VB如何利用程序拉下 ComboBox? win2000设置文件夹共享不能设置密码吗? 在创建基于对话框的应用程序时,为何通过函数PreCreateWindow来修改对话框的风格会无效? 用sqldmo可以实现事件探查器的功能吗? 高手帮忙. 怎样设置全局变量?急! NOKIA6610手机用数据线怎样和电脑相连? C问题,一函数输入参数为一个,要求输出参数为五个,怎么办? 急送分,不知道这个问题算不算挑战,DataTable的合并问题? 请教各位高人应该如何实现这样一个功能的自定义标签? 难题,如何把二维数组传给函数 关于在datagrid中超链结和 pager问题,有耐心和热心的人请帮我看看 我是学php的. 大家来讨论一下C# 和Java ,回贴均有分!! DB2的自增型变量怎么设?? 我是学php的. 谁可以讲解一下telnet的工作原理????? 狂人语录 那有BOCHS的中文帮助 在server2003操作系统下使用sql server2000 的问题 各位大侠 请问如何在C/s 下Windows程序中 找一个控件 100分 朋友! 关于英文版VC6的问题 请大师指点ASP中unicode to ansi 的问题 richtext中RtfText的内容如何编辑?200分,解决问题另外奉送! 即将前往恒生面试,大家帮我看看需要准备什么. 那有BOCHS的中文帮助 phoenix7789请回答!!!^_^ 我在装Report Machine控件时,Delphi提示我找不到RXGIF.duc,谁在给我一个? 肤色检测的问题,急!!! 如何对asp.net的程序进行加密 用datagrid问题,总是提示列键信息不足或不正确,更新影响多行, 大家来讨论一下C# 和Java ,回贴均有分!! 请问一个sql语句写法问题,100分!!!在线等待 谁能给我一点写网站制作方面投标书或者详细方案 wsad5 怎么连上ORACLE数据库啊 并非复古——关于微内核模式ASP开发框架的讨论,欢迎高手进入! 那有BOCHS的中文帮助 我愿送500分求解JAVA问题!!!!!! 关于frame里面的参数传递问题,火急 find函数的问题,请各位老兄帮忙 请问这个链接怎么写? 用xsl将xml转成html提示.... 为什么看不到邻近计算机? 关于浏览器的自定义工具栏! 无法打开web项目bbs 请告知可以下载Domino数据库安装文件和Lotus Notes的网址!在线等 我的ie6无法加载applet,请教解决方法! 如何用ASP写关闭当前窗体的代码? 用xsl将xml转成html提示.... sqlserver数据库怎么和应用程序一起打包? 一个困惑的问题,高手和有耐心的人请进! 实现要求是:对一个用来保存文件的richtext域如何创建一个代理,以实现每天固定一个时间从服务器/本地的一个固定目录下获取一个更新的文 晏子之御翻译 《晏子之御者》的翻译 "我想到这后十分高兴"的英文 九大行星中肉眼看不到的行星 我非常高兴(英文怎么说) 棉花黄萎病有什么特效药 能够除根的 一项工程甲独做6天完成,乙独做8天完成,两人合作() 看见的一句话:我希望不论在未来的哪一天,我都能有资格,以最不容置疑的姿态,站在你身边~请问这样对待大学爱情的态度对吗 姿势的英文怎么样写? 有一项工程,甲队单独做需要10天完成,甲,乙两队合做需要4天,如果甲队先做3天,然后两队合做,还需要几天?刚才发错了,不好意思啊. 地震可以在震前检测到吗? 雾霾影响生殖能力,不能当成“雷语”加拿大一名刑满性犯罪者潜逃至美国又面日本一企业官员疑挪用24亿日元 被同消息称利比亚首都发生激烈交火 枪声持新加坡拟开发路边停车电子收费新系统孙杨可自选拘留时间 新女友浮出水面亦日本一企业官员疑挪用24亿日元 被同加拿大一名刑满性犯罪者潜逃至美国又面麻生积极扩大外国游客免税品范围 以吸塑料袋威胁欧洲环境 欧盟计划对其征收盘点孙杨这些年惹的事 无证驾驶 耍大四川巴中 干部强了好脱贫拔罐医生在身边以审美教育促进人的自由全面发展探访“世界长寿之乡”“巴中友谊的又一座里程碑”国货手机在海外扬眉吐气(记者观察)“历史真相永远不会被掩盖”博物馆 让藏品成展品(微调查)将新增普通干线3500公里中国机器人,这一年挺忙(探路供给侧)也门自杀式袭击致49名士兵丧生
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘