الوضع الامن وبرنامجك

لكي تجعل برنامجك لا يعمل في الوضع الامن

مثلا كان برنامج وسائط او برنامج شبكات

program Project1;

uses

Forms,

Windows,

Dialogs,

Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

case GetSystemMetrics(SM_CLEANBOOT) of

1: begin

ShowMessage('Running in Safe Mode: Fail-Safe Boot');

Application.Terminate;

end;

2: begin

ShowMessage('Running in Safe Mode: Fail-safe with network boot');

Application.Terminate;

end;

end;

Application.Run;

end.

الكود في البروجكت وليس الفورم