استخدم دلفي لإنشاء الحد الأدنى من البرامج القابلة للتنفيذ

استخدم دلفي لإنشاء الحد الأدنى من البرامج القابلة للتنفيذ. لقد رأيت ذات مرة شخصًا ما على الإنترنت يقول إن دلفي يمكنها إنشاء تطبيق Win32 بحجم 16 كيلو بايت فقط. ويبلغ حجم الملف القابل للتنفيذ الذي كتبته بنفسي حوالي 17 كيلو بايت، لذلك خمنت دلفي ذات مرة ربما يمكن فقط تحسين الكود إلى هذا الحد. قمت مؤخرًا بإعادة كتابة هذا البرنامج لأغراض الاختبار، ووجدت أنه باستخدام بعض التقنيات، يمكن تقليل حجم الملف إلى 8.5 كيلو بايت. يعرض هذا البرنامج أيضًا جانبًا آخر من دلفي كأداة غير RAD مشابهة لـ Visual C++. إذا كنت مهتمًا، فإليك كيف فعلت ذلك. استخدم دلفي لإنشاء مشروع افتراضي، ثم استخدم زر إزالة الملف من 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; WM_DESTROY: PostQuitMessage(0); else Result := DefWindowProc(AWnd, message, wp, lp); end;var wc : WNDCLASS; lpfnWndProc := @WndProc; 0; cbWndExtra := 0; نهاية؛ RegisterClass(wcWnd := CreateWindow(szAppName, szAppName, WS_OVERLAPPEDWINDOW, Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), HWND_DESKTOP, 0, HInstance, nil); وند، CmdShow); UpdateWindow(HMainWnd); while GetMessage(AMsg, 0, 0, 0) يبدأ TranslateMessage(AMsg);