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

Code:

// 1. Зарегистрировать класс окна для окна главной формы.

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;