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

Code:

program SmallPrg;

uses Windows,  Messages;

const

WinName = 'MainWClass';

function MainWndProc(Window: HWnd; AMessage, WParam,

                   LParam: Longint): Longint; stdcall; export;

begin

//подпрограмма обработки сообщений

case AMessage of

   WM_DESTROY: begin

     PostQuitMessage(0);

     Exit;

   end;

   else

      Result := DefWindowProc(Window, AMessage, WParam, LParam);

end;

end;

function InitApplication: Boolean;

var

wcx: TWndClass;

begin

//Заполняем структуру TWndClass

   // перерисовываем, если размер изменяется

   wcx.style := CS_HREDRAW or CS_VREDRAW;

   // адрес оконной процедуры

   wcx.lpfnWndProc := @MainWndProc;

   wcx.cbClsExtra := 0;

   wcx.cbWndExtra := 0;

   // handle to instance

   wcx.hInstance := hInstance;

   // загружаем стандандартную иконку

   wcx.hIcon := LoadIcon(0, IDI_APPLICATION);

   // загружаем стандартный курсор

   wcx.hCursor := LoadCursor(0, IDC_ARROW);

   // делаем светло-cерый фон

   wcx.hbrBackground := COLOR_WINDOW;

   // пока нет главного меню

   wcx.lpszMenuName :=  nil;

   // имя класса окна

   wcx.lpszClassName := PChar(WinName);

   // Регистрируем наш класс окна.

   Result := RegisterClass(wcx) <> 0;

end;

function InitInstance: HWND;

begin

// Создаем главное окно.

Result := CreateWindow(

  // имя класса окна

  PChar(WinName),

  // заголовок

  'Small program',

  // стандартный стиль окна

  WS_OVERLAPPEDWINDOW,

  // стандартные горизонтальное, вертикальное положение, ширина и высота

  Integer(CW_USEDEFAULT),

  Integer(CW_USEDEFAULT),

  Integer(CW_USEDEFAULT),

  Integer(CW_USEDEFAULT),

  0,//нет родительского окна

  0,//нет меню

  hInstance, // handle to application instance

  nil);      // no window-creation data

end;

var

hwndMain: HWND;

AMessage: msg;

begin

   if (not InitApplication) then

   begin

     MessageBox(0, 'Ошибка регистрации окна', nil, mb_Ok);

     Exit;

   end;

   hwndMain := InitInstance;

   if (hwndMain = 0) then

   begin

     MessageBox(0, 'Ошибка создания окна', nil, mb_Ok);

     Exit;

   end

   else

   begin

     // Показываем окно и посылаем сообщение WM_PAINT оконной процедуре

     ShowWindow(hwndMain, CmdShow);

     UpdateWindow(hwndMain);

   end;

   while (GetMessage(AMessage, 0, 0, 0)) do

   begin

     //Запускаем цикл обработки сообщений

     TranslateMessage(AMessage);

     DispatchMessage(AMessage);

   end;

   Halt(AMessage.wParam);

end.