SM_CLEANBOOT パラメータを指定して Windows API GetSystemMetrics を使用します。これは、プロジェクトのコードで次のようにシステムの起動方法を指定します。
プログラムプロジェクト1;
用途
フォーム、
窓、
ダイアログ、
'Unit1.pas' {Form1} の Unit1;
{$R *.RES}
始める
アプリケーションの初期化;
Application.CreateForm(TForm1, Form1);
ケース GetSystemMetrics(SM_CLEANBOOT) の
1: 開始
ShowMessage('セーフ モードで実行中: フェールセーフ ブート');
アプリケーションを終了します。
終わり;
2: 開始
ShowMessage('セーフ モードで実行中: ネットワーク ブートによるフェールセーフ');
アプリケーションを終了します。
終わり;
終わり;
アプリケーション.実行;
終わり。