Используйте Delphi для создания минимальной исполняемой программы. Однажды я увидел в Интернете, что Delphi может генерировать Win32-приложение размером всего 16 КБ. Размер исполняемого файла, который я написал сам, составляет около 17 КБ, поэтому я однажды догадался, что Delphi. вероятно, можно оптимизировать код только до этой степени. Недавно я переписал эту программу в целях тестирования и обнаружил, что с помощью некоторых методов размер файла можно дополнительно уменьшить до 8,5 КБ. Эта программа также показывает другую сторону Delphi как инструмента, не поддерживающего RAD, похожего на Visual C++. Если вам интересно, вот как я это сделал. Используйте Delphi для создания проекта по умолчанию, а затем используйте кнопку «Удалить файл из PROject» на панели инструментов, чтобы удалить единственную форму (Form1) из проекта. Затем выберите команду «Просмотр->Источник проекта», откройте файл проекта и отредактируйте код следующим образом: программа MiniApp;использует Windows, Сообщения;// {$R *.res}const szAppName : PChar = 'MiniApp';function WndProc (AWnd :HWND; message:UINT; wp:WPARAM; lp:LPARAM):LRESULT;stdcall;begin Result:= 0; сообщение случая WM_DESTROY: PostQuitMessage(0); else Result:= DefWindowProc(AWnd, message, wp, lp); end;end;var wc: WNDCLASS; HMainWnd: HWND; AMsg: MSG;начните с wc do start style:= CS_VREDRAW или CS_HREDRAW lpfnWndProc := @WndProc; cbClsExtra := 0; cbWndExtra: = 0; hIcon: = LoadIcon (0, IDI_application); hCursor: = LoadCursor (0, IDC_ARROW); hbrBackground: = GetSysColorBrush (COLOR_WINDOW); hInstance: = HInstance; = nil; Имя; конец; RegisterClass(wc):= CreateWindow(szAppName, szAppName, WS_OVERLAPPEDWINDOW, Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), HWND_DESKTOP, 0, HInstance, nil); , CmdShow); UpdateWindow(HMainWnd); в то время как GetMessage(AMsg, 0, 0, 0) начать TranslateMessage(AMsg); DispatchMessage(AMsg);