Okenní aplikace pod 20 kB ?! - Builder.cz - Informacni server o programovani

hInst:=GetModuleHandle(nil); //handle aplikace
  with wClass do
  begin
    Style:=         CS_PARENTDC;
    hIcon:=         LoadIcon(hInst,'MAINICON');
    lpfnWndProc:=   @WindowProc;
    hInstance:=     hInst;
    hbrBackground:= COLOR_BTNFACE+1;
    lpszClassName:= 'Message Class';
    hCursor:=       LoadCursor(0,IDC_ARROW);
  end;

  RegisterClass(wClass);  //registrace tridy

  // Vytvoreni hlavniho okna
  Handle:=CreateWindow(
    'Message Class',           // Registrovany class name
    'Small Application',       // Titulek okna
    WS_OVERLAPPEDWINDOW or     // Zakladni styl
    WS_VISIBLE,                // Viditelne okno
    posx,                      // Pozice okna X
    posy,                      // Pozice okna Y
    width,                     // Sirka
    height,                    // Vyska
    0,                         // Handle okna
    0,                         // Handle menu
    hInst,                     // Handle aplikace
    nil);                      // Struktura okna

//funkce obsluhuje kazdou udalost hlavniho okna
function WindowProc(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;
begin
  Result:=DefWindowProc(hWnd,Msg,wParam,lParam); //Vratime vzdy default message
  case Msg of
    WM_SIZE:    Resize; //Zmena velikosti
    WM_COMMAND: 
      If lParam=hCloseButton Then CloseApp Else //Stisknuto tlacitko zavrit
      If lParam=hShowButton Then ShowMess; //Stisknuto tlacitko zobrazit
    WM_DESTROY: ShutDown;  //Zavreni okna
  end;
end;

Procedure ShowMess;
var
sText: Integer; // velikost textu v editboxu
Text :   PChar; // buffer pro text editboxu
begin
  sText:=GetWindowTextLength(hMessEdit)+1;   //zjistime velikost textu
  GetMem(Text,sText);
  GetWindowText(hMessEdit,Text,sText);  //zjistime text
  MessageBox(hMessEdit,Text,'MessageBox',mb_ok OR MB_ICONINFORMATION);
  //vyvolame MessageBox
  FreeMem(Text);
end;