WINAPI работа с окнами

procedure runproject; // действие по нажатию кнопки
begin
Wnd1 := CreateWindowEx ( 0, WndClass, 'Добавление', WS_SYSMENU or WS_MINIMIZEBOX or WS_SIZEBOX or WS_MAXIMIZEBOX, (GetSystemMetrics(0) - (GetSystemMetrics(0) Div 2)) div 2, (GetSystemMetrics(1) - (GetSystemMetrics(1) Div 2)) div 2, GetSystemMetrics(0) Div 2, GetSystemMetrics(1) Div 2, 0, 0, hInstance, nil);
SendMessage(Wnd1, WM_SETICON, 1, LoadIcon(HInstance, 'MAINICON')); //иконка второй формы
ShowWindow( Wnd1, SW_SHOWNORMAL );
end;
 
//Функция обрабатывающая сообщения
function WindowProc( Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin     //Msg - полученное сообщение
   case Msg of      //Если програма хочет закрыться
      WM_DESTROY: begin
                  PostQuitMessage( 0 );  //Закрываем её
                  Result := 0;
                  Exit;  //дальнеёшие сообщения обрабатывать нету смысла - мы закрываемся
                  end;
      WM_COMMAND: // WM_COMMAND посылается при нажатии кнопок
         case LoWord( wParam ) of
         //Обрабатываем нажатия кнопок
         101:  runproject; // действие по кнопке
         end;
       WM_SIZE:
    begin
       GetWindowREct(Wnd,R);
       SetWindowPos(Buttons, HWND_BOTTOM, R.Right-R.Left-45, R.Bottom-R.Top-60, 25, 25, SWP_NOACTIVATE);
    end;
   else
       Result := DefWindowProc( Wnd, Msg, wParam, lParam ); // DefWindowProc обеспечивает обработку тех сообщений окна, которые не обрабатывает прикладная программа.
   end;
end;
 
BEGIN
// Заполняем структуру TWndClassEx
   with Wc do
   begin
   cbSize := SizeOf( Wc );
   lpfnWndProc := @WindowProc; //указатель на оконную процедуру
   cbClsExtra := 0; //Выделенная память, используемая программой по своему усмотрению.
   cbWndExtra := 0; //Выделенная память, используемая программой по своему усмотрению.
   hInstance := hInstance; //описатель экземпляра приложения
   hbrBackground := COLOR_BTNFACE+1; //цвет фона формы. 
   lpszClassName := WndClass; //имя класса создаваемого объекта
   end;
// Регистрируем класс в системе
   RegisterClassEx( Wc );
//Создаём окно
  Wnd := CreateWindowEx ( 0, WndClass, WndCaption, WS_SYSMENU or WS_MINIMIZEBOX or WS_SIZEBOX or WS_MAXIMIZEBOX, (GetSystemMetrics(0) - (GetSystemMetrics(0) Div 2)) div 2, (GetSystemMetrics(1) - (GetSystemMetrics(1) Div 2)) div 2, GetSystemMetrics(0) Div 2, GetSystemMetrics(1) Div 2, 0, 0, hInstance, nil);
  SendMessage(Wnd, WM_SETICON, 1, LoadIcon(HInstance, 'MAINICON')); //иконка приложения
  // Показываем окно программы
  ShowWindow( Wnd, SW_SHOWNORMAL );
// Создаём элементы окна
   GetWindowREct(Wnd,R);
   Buttons := CreateWindowEx( WS_EX_STATICEDGE, 'Button', PAnsiChar(' + '), BS_DEFPUSHBUTTON or WS_VISIBLE or WS_CHILD, R.Right-R.Left-45, R.Bottom-R.Top-60, 25, 25, Wnd, 101, hInstance, nil );
  
// Цикл обработки сообщений
 while GetMessage (Msg,0,0,0) do
  begin
   TranslateMessage(Msg);
   DispatchMessage(Msg);
   if Msg.message = WM_KEYDOWN then// приложение получает сообщение что клавиша нажата
    begin
     if Msg.wParam in [VK_ESCAPE] then// если это кнопка esc
     Exit;  // закрываем приложение
    end;
  end;
 Halt( Msg.wParam );
 FreeLibrary(hRichDll);
END.

function WindowProc( Wnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;
begin
   Result := 0;
   case Msg of
      WM_GETMINMAXINFO:
      begin
         PMinMaxInfo(LParam)^.ptMinTrackSize.X := 200; // 200 - Минимально допустимая ширина
         PMinMaxInfo(LParam)^.ptMinTrackSize.Y := 120; // 120 - Минимально допустимая высота
      end;
      // ... остальные сообщения
 
   end; // case
end;