Utilice Delphi para generar un programa ejecutable mínimo. Una vez vi a alguien en Internet diciendo que Delphi puede generar una aplicación Win32 con un tamaño de solo 16k. El tamaño del archivo ejecutable que escribí yo mismo es de alrededor de 17k, así que una vez supuse que Delphi. Probablemente solo pueda optimizar el código hasta este punto. Recientemente, reescribí este programa con fines de prueba y descubrí que, utilizando algunas técnicas, el tamaño del archivo se puede reducir aún más a 8,5k. Este programa también muestra otro lado de Delphi como una herramienta sin RAD similar a Visual C++. Si estás interesado, así es como lo hice. Utilice Delphi para generar un proyecto predeterminado y luego utilice el botón Eliminar archivo del proyecto en la barra de herramientas para eliminar el único formulario (Form1) del proyecto. Luego seleccione el comando Ver->Fuente del proyecto, abra el archivo del proyecto y edite el código de la siguiente manera: programa MiniApp;usa Windows, Mensajes;// {$R *.res}const szAppName: PChar = 'MiniApp';función WndProc (AWnd: HWND; mensaje: UINT; wp: WPARAM; lp: LPARAM): LRESULT; stdcall; comenzar resultado: = 0; WM_DESTROY: PostQuitMessage(0); else Resultado:= DefWindowProc(AWnd, mensaje, wp, lp); fin;fin;var wc: HMainWnd: HWND: MSG;comience con wc comience el estilo:= CS_VREDRAW o CS_HREDRAW; lpfnWndProc := @WndProc; 0; cbWndExtra := 0; hIcon := LoadIcon(0, IDI_application); hCursor := LoadCursor(0, IDC_ARROW); hbrBackground := GetSysColorBrush(COLOR_WINDOW); fin; RegisterClass(wc); HMainWnd := CreateWindow(szAppName, szAppName, WS_OVERLAPPEDWINDOW, Entero(CW_USEDEFAULT), Entero(CW_USEDEFAULT), Entero(CW_USEDEFAULT), Entero(CW_USEDEFAULT), HWND_DESKTOP, 0, HInstance, nil); CmdShow); UpdateWindow(HMainWnd); mientras que GetMessage(AMsg, 0, 0, 0) comienzan TranslateMessage(AMsg);