Тема про видео выделена:viewtopic.php?f=35&t=3079
toПётр Кушнир: И как может помочь это видео? Вот программа, она не компилируется:
## Код:
```
MODULE VerySimple;
 
IMPORT SYSTEM, WinApi;
 
VAR
  wClass: WinApi.WNDCLASS;
  Msg: WinApi.MSG;
  Win, Button1: WinApi.HWND;
  res: INTEGER;
  Instance: WinApi.HINSTANCE;
 
PROCEDURE WindowProc (Win, msg, WP, LP: INTEGER): INTEGER;
BEGIN
  IF msg = WinApi.WM_DESTROY THEN
     WinApi.PostQuitMessage(0);

    RETURN WinApi.DefWindowProc(Win, msg, WP, LP)
END WindowProc;
 
BEGIN
  Instance := WinApi.GetModuleHandle(NIL);
  wClass.lpszClassName := "CN";
  wClass.lpfnWndProc := WindowProc;
  wClass.hbrBackground := 1;
  wClass.hCursor := WinApi.LoadCursor(0, SYSTEM.VAL(WinApi.PtrSTR, WinApi.IDC_ARROW));
  wClass.hInstance := Instance;
     
  res := WinApi.RegisterClass(wClass);
     
  Win := WinApi.CreateWindow(wClass.lpszClassName, "Это очень простая программа",
    WS_OVERLAPPED or WS_SYSMENU or WS_MINIMIZEBOX or WS_VISIBLE,
    400, 300, 340, 217, 0, 0, Instance, nil);
     
  Button1 := WinApi.CreateWindowEx(WinApi.WS_EX_STATICEDGE, "Button", "Выход", 
    WinApi.WS_VISIBLE or WinApi.WS_CHILD, 100, 100, 100, 100, 0, 0, Instance, 0);
   
  WHILE WinApi.GetMessage(Msg, 0, 0, 0) # 0 DO
    res :=  WinApi.TranslateMessage(Msg);
    res := WinApi.DispatchMessage(Msg);
  END;
  WinApi.ExitProcess(Msg.wParam)

END VerySimple.
```
