请教pascal 中 windos单元里怎样应用里面的函数

来源：百度知道 编辑：UC知道 时间：2024/05/12 06:50:05
请问windos单元里有什么函数以及怎么用
怎样把程序弄成在window上界面

下面是Dev-pascal中的例子程序, 你可以试一下, 如果你有用C语言开发Windows程序的经验(至少是, 虽没写过, 但看过一些源代码)的话, 会感到很熟悉, 因为只是把C代码换为了Pascal代码:

{$APPTYPE GUI}
{$MODE DELPHI}
program WinHello;

uses
Strings, Windows;

const
AppName = 'WinHello';

function WindowProc(Window: HWnd; AMessage, WParam,
LParam: Longint): Longint; stdcall; export;

var
dc : hdc;
ps : paintstruct;
r : rect;

begin
WindowProc := 0;

case AMessage of
wm_paint:
begin
dc:=BeginPaint(Window,@ps);
GetClientRect(Window,@r);
DrawText(dc,'Hello world by Free Pascal',-1,@r,
DT_SINGLELINE or DT_CENTER or DT_VCENTER);
EndPaint(Window,ps);
Exit;
end;
wm_Destroy:
begin
PostQuitMessage(0);
Exit;
end;
end;