Delphi を使用して最小限の実行可能プログラムを生成する 以前、インターネットで Delphi はわずか 16k の Win32 アプリケーションを生成できると言っているのを見たことがあります。私が作成した実行可能ファイルのサイズは約 17k だったので、Delphi を推測したことがあります。コードを最適化できるのはおそらくこの程度までです。最近、テスト目的でこのプログラムを書き直したところ、いくつかのテクニックを使用すると、ファイル サイズをさらに 8.5k まで削減できることがわかりました。このプログラムは、Visual C++ と同様の非 RAD ツールとしての Delphi の別の側面も示しています。興味があれば、私がやった方法を以下に示します。 Delphi を使用してデフォルト プロジェクトを生成し、ツールバーの [プロジェクトからファイルを削除] ボタンを使用してプロジェクトから唯一のフォーム (Form1) を削除します。次に、[表示] -> [プロジェクト ソース] コマンドを選択し、プロジェクト ファイルを開き、次のようにコードを編集します:program MiniApp;uses Windows, Messages;// {$R *.res}const szAppName : PChar = 'MiniApp';function WndProc (AWnd :HWND; メッセージ:UINT; wp:WPARAM; lp:LPARAM):LRESULT;stdcall;begin 結果 := 0; WM_DESTROY: PostQuitMessage(0); else Result := DefWindowProc(AWnd, message, wp, lp); end;end;var wc : WNDCLASS; AMsg : MSG; wc do begin スタイル := CS_VREDRAW または CS_HREDRAW ; lpfnWndProc := @WndProc := 0; cbWndExtra := 0; hIcon := LoadIcon(0, IDC_ARROW); hInstance := HInstance := nil; zApp名;終わり; RegisterClass(wc); HMainWnd := CreateWindow(szAppName, szAppName, WS_OVERLAPPEDWINDOW, Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), HWND_DESKTOP, 0, HInstance, nil); CmdShow); UpdateWindow(HMainWnd); GetMessage(AMsg, 0, 0, 0) は開始します TranslateMessage(AMsg);