ใช้ Windows API GetSystemMetrics พร้อมพารามิเตอร์ SM_CLEANBOOT ซึ่งจะระบุวิธีที่ระบบเริ่มต้น ในการใช้โค้ดของ PRoject:
โปรแกรมโปรเจ็กต์1;
การใช้งาน
แบบฟอร์ม
หน้าต่าง,
กล่องโต้ตอบ
Unit1 ใน 'Unit1.pas' {Form1};
{$อาร์ *.เรส}
เริ่ม
แอปพลิเคชันเริ่มต้น;
แอปพลิเคชัน CreateForm (TForm1, Form1);
กรณี GetSystemMetrics (SM_CLEANBOOT) ของ
1: เริ่มต้น
ShowMessage ('ทำงานใน Safe Mode: Fail-Safe Boot');
แอพลิเคชันยุติ;
จบ;
2: เริ่มต้น
ShowMessage ('ทำงานในเซฟโหมด: ไม่ปลอดภัยเมื่อบูตเครือข่าย');
แอพลิเคชันยุติ;
จบ;
จบ;
แอปพลิเคชันเรียกใช้;
จบ.