用Delphi制作中国式报表计算机等级考试

文章作者 100test 发表时间 2009:09:30 20:35:58
来源 100Test.Com百考试题网

　　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.

　　编辑特别推荐:

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　如何应付二级考试中的公共基础知识