用Delphi制作中国式报表

核心提示：Use Windows API GetSystemMetrics with SM_CLEANBOOT parameter, this specifies how the system was started, in your PRoject´s code use: program Project1; use

Use Windows API GetSystemMetrics with SM_CLEANBOOT parameter, this specifies how the system was started, in your PRoject´s code use:

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.