用Delphi產生一個最小的可執行程式 (轉)

worldblog發表於2007-12-12
用Delphi產生一個最小的可執行程式 (轉)[@more@] 

用產生一個最小的可

 

曾經在網上看到有人說Delphi能夠產生大小隻有16k的應用程式,而我自己曾經編寫過的這種可執行大小則是在17k左右,因而我一度猜想Delphi恐怕也只能將程式碼到這種程度了。最近由於測試的目的重新把這個程式寫了一遍,才發現利用一些技巧,還能夠將檔案的大小進一步縮減到8.5k。這個程式也能夠顯示Delphi作為類似於Visual C++的、非RAD工具的另一個側面。如果你對此感興趣的話,請看我是如何做到這一點的。

 :namespace prefix = o ns = "urn:schemas--com::office" />

用Delphi生成一個預設的專案,然後用工具欄上的Remove file from Project按鈕,將唯一的窗體(Form1)從專案中刪除。然後選擇View->Project 命令,開啟專案檔案,並編輯程式碼如下所示:

program MiniApp;

 

uses

  , 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 := GetSylorBrush(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.

 

其實這些程式碼根本就是Win32 SDK中C語言例子程式的翻版,我想沒有必要再對它們作什麼解釋了。需要提醒你注意的是:

1.Delphi程式沒有像C程式那樣的WinMain入口,程式的執行就從.DPR檔案的begin開始,到與之匹配的end結束。而C程式中傳遞給WinMain的四個引數,在Delphi中則以全域性變數的形式定義在System以及SysInit單元中,它們分別是HInstance、HPrevInst、CmdLine和CmdShow(HPrevInst已經沒有意義)。

2.注意我把常量szAppName定義為PChar,而不是常用的String,因為在這麼一個簡單的程式中沒有必要使用String的高階功能,這樣可以節省不少空間(大約3-4k)。

3.我把{$R *.res}一句也註釋起來了,這樣可以從檔案中剔除冗餘的資源,從而節省大約1k左右的空間。

4.程式完成後,開啟Project Options對話方塊,翻到Compiler頁,將Runtime Errors和Deging分類中的選項全部清除,這樣也可以稍微減小最終檔案的大小。

 

儘管還不能說8.5k一定就是最小的尺寸,不過我猜想這已經非常接近Delphi的極限了。在Visual C++中,很有意思的一點是所有可執行檔案的大小都會對齊到4k的邊界,所以在Visual C++中最小的.EXE和最小的.DLL大小都只能達到28k,除非使用一些非常特殊的隱藏編譯開關。儘管Win32中的分頁預設是4k,不過我實在想不通Visual C++把可執行檔案的大小也對齊到4k究竟有什麼意義?

另外,我手頭還有一套非常非常古老的Turbo Pascal for Windows 1.5,它所編譯出的最小的Windows可執行檔案的大小——你肯定無法相信——只有1.75k!當然了,它畢竟只是個Win16程式而已。

 


來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-991923/,如需轉載,請註明出處,否則將追究法律責任。

相關文章