用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 do begin

    style := CS_VREDRAW or CS_HREDRAW;

    lpfnWndProc := @WndProc;

    cbClsExtra := 0;

    cbWndExtra := 0;

    hIcon := LoadIcon(0, IDI_application);

    hCursor := LoadCursor(0, IDC_ARROW);

    hbrBackground := GetSysColorBrush(COLOR_WINDOW);

    hInstance := HInstance;

    lpszMenuName := nil;

    lpszClassName := szAppName;

  end;

  RegisterClass(wc);

 

  HMainWnd := CreateWindow(szAppName,

                           szAppName,

                           WS_OVERLAPPEDWINDOW,

                           Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),

                           Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),

                           HWND_DESKTOP, 0,

                           HInstance, nil);

  ShowWindow(HMainWnd, CmdShow);

  UpdateWindow(HMainWnd);

 

  while GetMessage(AMsg, 0, 0, 0) do begin

    TranslateMessage(AMsg);

    DispatchMessage(AMsg);

  end;

end.