delphi纯api窗体程序


本文整理自网络,侵删。

 program HELLOWIN; 

uses Windows,Messages;

var
WndClass:TWndClass;
WndHandle:HWND;
Msg:TMsg;

const
szAppName:PChar='HelloWin';

function WndProc(Handle:HWND;Msg:UINT;wPar:WPARAM;lPar:LPARAM):Cardinal;stdcall;
var
DC:HDC;
PS:PAINTSTRUCT;
RT:TRECT;
begin
Result:=0;
case Msg of
WM_PAINT:
begin
DC:=BeginPaint(WndHandle,PS);
GetClientRect(WndHandle,Rt);
DrawText(DC,'Hello,Windows 2000!',-1,RT,DT_SINGLELINE or DT_CENTER
or DT_VCENTER);
EndPaint(WndHandle,PS);
end;
WM_DESTROY:
PostQuitMessage(0);
else
Result:=DefWindowProc(Handle,Msg,wPar,lPar);
end;
end;

begin
with WndClass do
begin
Style:=CS_HREDRAW or CS_VREDRAW;
lpfnWndProc:=@WndProc;
cbClsExtra:=0;
cbWndExtra:=0;
hInstance:=hInstance;
hIcon:=LoadIcon(0,IDI_APPLICATION);
hCursor:=LoadCursor(0,IDC_ARROW);
hbrBackground:=HBRUSH(GetStockObject(WHITE_BRUSH));
lpszMenuName:=nil;
lpszClassName:=szAppName;
end;
if RegisterClass(WndClass)=0 then
begin
MessageBox(0,'This program requires Windows NT!',szAppName,MB_ICONERROR);
Exit;
end;
WndHandle:=CreateWindow(szAppName,'The Hello Program',WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,
0,0,hInstance,nil);
ShowWindow(WndHandle,SW_SHOWNORMAL);
UpdateWindow(WndHandle);
while GetMessage(Msg,0,0,0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.

相关阅读 >>

Delphi edit 让密码变成点

Delphi获取硬件信息

Delphi 检测进程是否存在函数

Delphi 取整算法集合

Delphi tooltip提示窗口单元

Delphi vcl tmemo加速字符串读取

Delphi 关于汉字换行问题

Delphi 字符串显示后5位

Delphi之tstrings和tstringlists类

Delphi 常见的各种形式的组件的安装方法介绍

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...