Как писать в Билдере на чистом API и С++ (без компонентов)

#pragma hdrstop
#include <windows.h>
#pragma argsused
#define IDC_LISTBOX  777
LRESULT CALLBACK  WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam);
HINSTANCE inst;
 
int main(int argc, char* argv[]){
 //  ShowWindow(GetForegroundWindow(), SW_HIDE); //если консоль не нужна
   HWND wnd;
   MSG  msg;
   const CHAR* mycls = "myAPI";
   inst = (HINSTANCE) GetModuleHandle(NULL);
   WNDCLASSA  struc  = {
         CS_VREDRAW | CS_HREDRAW, WndProc, 0, 0,  inst, 0, NULL, 
         (HBRUSH)GetStockObject(WHITE_BRUSH), 0u, mycls
   };
   if(! RegisterClassA(&struc))
        return 1;
   // создаём окно
   wnd  = CreateWindowA(mycls, "Моё окно", WS_OVERLAPPEDWINDOW, CW_USEDEFAULT,
                                  0, CW_USEDEFAULT, 0, NULL, 0, inst, 0);
   if(! wnd) {
       UnregisterClassA(mycls,  inst);
       return 2;
   }
   ShowWindow(wnd, SW_SHOW);
   UpdateWindow(wnd);
 
   ZeroMemory(&msg, sizeof(MSG));
   while(GetMessageA(&msg, NULL, 0u, 0u)) {
       TranslateMessage(&msg);
       DispatchMessageA(&msg);
   }
   UnregisterClassA(mycls,  inst);
   return 0;
}
 
 
 
LRESULT CALLBACK  WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) {
   RECT rect;
   static HWND hlist = NULL;
   CHAR path[MAX_PATH];
 
   switch(msg) {
   case WM_CREATE:   // небольшой пример создание ListBox
      GetClientRect(hwnd, &rect);
      hlist = CreateWindowA("LISTBOX", "", WS_CHILD | LBS_STANDARD, 10, 10,
              rect.right/3, rect.bottom-100, hwnd, (HMENU)IDC_LISTBOX,  inst, 0);
      if(hlist) {
         ShowWindow(hlist, SW_SHOW);
         UpdateWindow(hlist);
          // заполним ListBox чем нибудь, например содержимым папки-Windows
         GetWindowsDirectoryA(path, MAX_PATH);
         DlgDirListA(hwnd, path, IDC_LISTBOX, 0, DDL_DIRECTORY);
      }
      break;
   case WM_DESTROY:
      if(hlist)
          DestroyWindow(hlist);
      PostQuitMessage(0);
      break;
   default: return DefWindowProcA(hwnd, msg, wParam, lParam);
   }
   return 0;
}

#pragma hdrstop
#include <windows.h>
#pragma argsused
LRESULT CALLBACK  WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam);
HINSTANCE inst;
 
int main(int argc, char* argv[]){
 //  ShowWindow(GetForegroundWindow(), SW_HIDE); //если консоль не нужна
   HWND wnd;
   MSG  msg;
   const CHAR* mycls = "myAPI";
   inst = (HINSTANCE) GetModuleHandle(NULL);
   WNDCLASSA  struc  = {
         CS_VREDRAW | CS_HREDRAW, WndProc, 0, 0,  inst, 0, NULL, 
         (HBRUSH)GetStockObject(WHITE_BRUSH), 0u, mycls
   };
   if(! RegisterClassA(&struc))
        return 1;
   // создаём окно
   wnd  = CreateWindowA(mycls, "Моё окно", WS_OVERLAPPEDWINDOW, CW_USEDEFAULT,
                                  0, CW_USEDEFAULT, 0, NULL, 0, inst, 0);
   if(! wnd) {
       UnregisterClassA(mycls,  inst);
       return 2;
   }
   ShowWindow(wnd, SW_SHOW);
   UpdateWindow(wnd);
 
   ZeroMemory(&msg, sizeof(MSG));
   while(GetMessageA(&msg, NULL, 0u, 0u)) {
       TranslateMessage(&msg);
       DispatchMessageA(&msg);
   }
   UnregisterClassA(mycls,  inst);
   return 0;
}
 
 
LRESULT CALLBACK  WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) {
   switch(msg) {
   case WM_CREATE:   
      break;
   case WM_DESTROY:
         PostQuitMessage(0);
      break;
   default: return DefWindowProcA(hwnd, msg, wParam, lParam);
   }
   return 0;
}