Пример приложений на чистом API

Code:

program WinMin;

uses Windows, Messages;

const AppName = 'WinMin';

Var

Window : HWnd;

Message : TMsg;

WindowClass : TWndClass;

function WindowProc (Window : HWnd; Message, WParam : Word; LParam : LongInt) : LongInt; stdcall;

begin

WindowProc := 0;

case Message of

wm_Destroy :begin

PostQuitMessage (0);

Exit;

end;

end; // case

WindowProc := DefWindowProc (Window, Message, WParam, LParam);

end;

begin

with WindowClass do

begin

Style := cs_HRedraw or cs_VRedraw;

lpfnWndProc := @WindowProc;

cbClsExtra := 0;

cbWndExtra := 0;

hInstance := 0;

hIcon := LoadIcon (0, idi_Application);

hCursor := LoadCursor (0, idc_Arrow);

hbrBackground := GetStockObject (White_Brush);

lpszMenuName := '';

lpszClassName := AppName;

end;

If RegisterClass (WindowClass) = 0 then Halt (255);

Window := CreateWindow(AppName,

'Win_Min',

ws_OverlappedWindow,

cw_UseDefault,

cw_UseDefault,

cw_UseDefault,

cw_UseDefault,

0,

0,

HInstance,

nil);

ShowWindow (Window, CmdShow);

UpdateWindow (Window);

while GetMessage (Message, 0, 0, 0) do

begin

TranslateMessage (Message);

DispatchMessage (Message);

end;

Halt

end.