用Delphi產生一個最小的可執行程序曾經在網上看到有人說Delphi能夠產生大小只有16k的Win32應用程序，而我自己曾經編寫過的這種可執行文件大小則是在17k左右，因而我一度猜想Delphi恐怕也只能將程式碼優化到這種程度了。最近因為測驗的目的重新把這個程式寫了一遍，才發現要利用一些技巧，也能夠將檔案的大小進一步縮減到8.5k。這個程式也能夠顯示Delphi作為類似Visual C++的、非RAD工具的另一個面向。如果你對此感興趣的話，請看我是如何做到這一點的。用Delphi產生一個預設的項目，然後用工具列上的Remove file from PRoject按鈕，將唯一的窗體(Form1)從項目中刪除。然後選擇View->Project Source指令，開啟專案文件，並編輯程式碼如下所示：program MiniApp;uses Windows, Messages;// {$R *.res}const szAppName : PChar = 'MiniApp';function WndProc(AWnd :HWND; message:UINT; wp:WPARAM; lp:LPARAM):LRESULT;stdcall;begin Result := 0; case message of WM_DESTROY: PostQuitMessage(0); else Result := DefWindowProc(AWnd, message, wp, lp); end;end;var wc : WNDCLASS; HMainWnd : HWND; AMsg : MSG;begin with wc ASS; HMainWnd : HWND; AMsg : MSG;begin with style dobe CS_VREDRAW or CS_HREDRAW; lpfnWndProc := @WndProc; cbClsExtra := 0; cbWndExtra := 0; hIcon := LoadIcon(0, IDI_application); hCursor := LoadCursor(0, IDC_ARROW); hbrB.le := LoadCursor(0, IDC_ARROW); hbrB.A. HInstance; lpszMenuName := nil; lpszClassName := szAppName; end; RegisterClass(wc); HMainWnd := CreateWindow(szAppName, szAppName, WS_OVERLAPPEDWINDOW, Integer(CW_USEDeger_EDIntEF4U4U4(CW_ULTP&EDU444_4 月(CW_USED,4), IntEF40UUS(CW_USLT),ED_UCW44U44 月(CW_US),ED(CW_US),EDA), IntEF4CW_EDA4(CW),ED_UCW_U4pUS,ED44U44 月(CW_US),EDA), IntEF44 月） Integer(CW_USEDEFAULT), HWND_DESKTOP, 0, HInstance, nil); ShowWindow(HMainWnd, CmdShow); UpdateWindow(HMainWnd); while GetMessage(AMsg, 0, 0, 0) do beginAMlateMessage(AM); ;end.