استخدم دلفي لإنشاء تقارير على النمط الصيني

استخدم Windows API GetSystemMetrics مع المعلمة SM_CLEANBOOT، وهذا يحدد كيفية بدء تشغيل النظام، في استخدام كود PROject:

مشروع البرنامج1؛

الاستخدامات

النماذج،

ويندوز،

الحوارات،

الوحدة 1 في 'Unit1.pas' {Form1}؛

{$R *.RES}

يبدأ

application.Initialize;

Application.CreateForm(TForm1, Form1);

حالة GetSystemMetrics(SM_CLEANBOOT) لـ

1: البدء

ShowMessage('التشغيل في الوضع الآمن: التمهيد الآمن للفشل');

Application.Terminate;

نهاية؛

2: البدء

ShowMessage('التشغيل في الوضع الآمن: آمن من الفشل مع تمهيد الشبكة');

Application.Terminate;

نهاية؛

نهاية؛

Application.Run;

نهاية.