用Delphi產生一個最小的可執行程式 (轉)
用產生一個最小的可
曾經在網上看到有人說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/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 程式與執行緒的產生執行緒
- 用 Smali 手寫一個可執行的 HelloWorld
- 最小化可執行產品(MVP)的四大必備模組MVP
- DELPHI下的多執行緒程式設計(1) (轉)執行緒程式設計
- DELPHI下的多執行緒程式設計(2) (轉)執行緒程式設計
- Wpf應用程式作為一個單獨的可執行檔案
- 殺死一個正在執行的程式 (轉)
- 產生AWR及單個sql的執行計劃SQL
- dddsample一個可執行的例項
- JVM程式用一個主執行緒來執行main()方法JVM執行緒AI
- 如何讓Oracle產生預期的執行計劃(一)Oracle
- 用Delphi進行OpenGL程式設計學習心得 (轉)程式設計
- 用Delphi編寫DelTree程式 (轉)
- 生產環境執行Docker的9個關鍵決策Docker
- 一種快速可預製的隨機陣列產生方法(轉)隨機陣列
- 怎樣知道我的程式是否執行在DELPHI? (轉)
- winform只允許一個應用程式執行ORM
- 擴充套件Delphi的執行緒同步物件(1) (轉)套件執行緒物件
- 用ANT構建java可執行程式 (轉)Java行程
- 用BCB寫一個最簡單的多執行緒 (轉)執行緒
- 一個工程的多個模組中的一個模組打包成jar在轉為.exe可執行檔案JAR
- Tkprof: 分析ORACLE跟蹤檔案並且產生一個更加人性化清晰的輸出結果的可執行工具Oracle
- 一個可執行檔案是怎麼來的
- 如何產生一個C++區域性靜態物件的多執行緒問題C++物件執行緒
- Delphi程式執行時實時生成報表
- 用Delphi製作個性化的選單 (轉)
- 一個行轉列的應用
- matlab程式碼轉exe可執行軟體Matlab
- 在Grammarly的生產環境中執行LispLisp
- 一個C++程式設計師的Delphi學習筆記 (轉)C++程式設計師筆記
- 用Delphi編寫安裝程式(1) (轉)
- win10如何執行序號產生器_win10怎麼執行序號產生器Win10
- 可能是最小的 pe 程式 -- 我手工構造了一個 pe 程式, 只 305 個位元組, 可正確執行(Win9x). .. (5千字)
- 對delphi的質疑,一個真正的VC程式設計師的表白 (轉)C程式程式設計師
- 用 DELPHI 為 WINDOWS 做一個帶聲音的模擬鬧鐘 (轉)Windows
- PHP產生一個唯一IDPHP
- Linux可執行的檔案(轉)Linux
- 生產者消費者模式--java多執行緒同步方法的應用模式Java執行緒