ใช้ Delphi เพื่อสร้างโปรแกรมปฏิบัติการขั้นต่ำ ครั้งหนึ่งฉันเคยเห็นคนบนอินเทอร์เน็ตบอกว่า Delphi สามารถสร้างแอปพลิเคชัน Win32 ด้วยขนาดเพียง 16k เท่านั้น ขนาดของไฟล์ปฏิบัติการที่ฉันเขียนเองคือประมาณ 17k ดังนั้นฉันจึงเคยเดาว่า Delphi อาจจะสามารถปรับโค้ดให้เหมาะสมได้เพียงเท่านี้เท่านั้น เมื่อเร็วๆ นี้ ฉันเขียนโปรแกรมนี้ใหม่เพื่อการทดสอบ และพบว่าเมื่อใช้เทคนิคบางอย่าง ขนาดไฟล์สามารถลดได้อีกเหลือ 8.5k โปรแกรมนี้ยังแสดงอีกด้านหนึ่งของ Delphi ในฐานะเครื่องมือที่ไม่ใช่ RAD ซึ่งคล้ายกับ Visual C++ หากคุณสนใจ นี่คือวิธีที่ฉันทำ ใช้ Delphi เพื่อสร้างโปรเจ็กต์เริ่มต้น จากนั้นใช้ปุ่ม Remove file from PRoject บนแถบเครื่องมือเพื่อลบฟอร์มเดียว (Form1) ออกจากโปรเจ็กต์ จากนั้นเลือกคำสั่ง View->Project Source เปิดไฟล์โครงการและแก้ไขโค้ดดังนี้: โปรแกรม MiniApp;ใช้ Windows, ข้อความ;//{$R *.res}const szAppName : PChar = 'MiniApp';function WndProc (AWnd :HWND; ข้อความ:UINT; wp:WPARAM; lp:LPARAM):LRESULT;stdcall;begin ผลลัพธ์ := 0; WM_DESTROY: PostQuitMessage(0); else ผลลัพธ์ := DefWindowProc(AWnd, message, wp, lp); end;end;var wc : WNDCLASS; HMainWnd; AMsg : MSG;begin with wc do beginning style := CS_VREDRAW หรือ CS_HREDRAW ; lpfnWndProc := @WndProc; 0; cbWndExtra := 0; hIcon := LoadIcon(0, IDI_application); hCursor := lpszClassName := szAppName; จบ; RegisterClass(wc); HMainWnd := CreateWindow(szAppName, szAppName, WS_OVERLAPPEDWINDOW, จำนวนเต็ม (CW_USEDEFAULT), จำนวนเต็ม (CW_USEDEFAULT), จำนวนเต็ม (CW_USEDEFAULT), จำนวนเต็ม (CW_USEDEFAULT), HWND_DESKTOP, 0, HInstance, ไม่มี); CmdShow); UpdateWindow (HMainWnd); ในขณะที่ GetMessage (AMsg, 0, 0, 0) เริ่ม TranslateMessage (AMsg);