MS-DOS , . Windows , Windows . Windows .
Windows , API (API Application Programming Interface). (, ), API.
Windows 600 . . API- , , , . API- , .
Windows , . Windows . . . , . , . , , .
Windows API 60 , .
Program WinMin;
Uses WinTypes, WinProcs;
Const AppName = WinMin;
//
Function WindowProc(Window: HWnd; Message, Wparam: Word;
Lparam: LongInt): LongInt; EXPORT;
Begin
WindowProc:= 0;
Case Message of
//
wm_Destroy:
Begin
PostQuitMessage(0);
Exit;
end;
end;
WindowProc: = DefWindowProc(Window, Message, WParam, LParam);
End;
//
procedure WinMain
Var Window: HWnd; Message: TMsg;
//
WindowClass: TWndClass;
Begin
If HPrevInst = 0 Then
//
begin
//
With WindowClass do
Begin
Style := cs_HRedraw OR cs_WRedraw;
lpfnWndProc:= @WindowProc;
cbClsExtra:= 0;
cbWndExtra:= 0;
hinstance:= HInstance;
hicon:= Loadicon(0, idi_Application);
hCursor:= LoadCursor(0, idc_Arrow);
hbrBackground:= GetStockObject(White_Brush);
lpszMenuName:= ;
lpszClassName:= AppName;
end;
//
if not RegisterClass(WindowClass) then
Halt(255);
End;
//
Window:= CreateWindow(AppName, WinMin, ws_OverlappedWindow,
|
|
|
w_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;
Begin
WinMain
End.
WinMin WindowProc, WinMain Windows API. WinMain , Windows. Windows- ( Windows API) . WindowProc , , . Windows. Windows API, , : RegisterClass; CreateWindow ; ShowWindow UpdateWindow , GetMessage, TranslateMessage DispatchMessage.
Windows- :
, ;
;
Windows.
Delphi , Delphi . Delphi , Windows, , .
Delphi, , Windows-, , . .
