Gunakan Windows API GetSystemMetrics dengan parameter SM_CLEANBOOT, ini menentukan bagaimana sistem dimulai, dalam kode PRoject Anda gunakan:
program Proyek1;
kegunaan
Formulir,
jendela,
Dialog,
Unit1 di 'Unit1.pas' {Form1};
{$R *.RES}
mulai
aplikasi.Inisialisasi;
Aplikasi.CreateForm(TForm1, Form1);
kasus GetSystemMetrics(SM_CLEANBOOT) dari
1: mulai
ShowMessage('Berjalan dalam Mode Aman: Boot Gagal-Aman');
Aplikasi.Hentikan;
akhir;
2: mulai
ShowMessage('Berjalan dalam Mode Aman: Aman dari kegagalan dengan boot jaringan');
Aplikasi.Hentikan;
akhir;
akhir;
Aplikasi.Jalankan;
akhir.