uclosecd.pas

可以控制多个光驱

unit uCloseCD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls, StdCtrls;

type
  TfrmCloseCD = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    btnCloseCD: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure btnCloseCDClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCloseCD: TfrmCloseCD;

implementation

uses uMain;

var
  j:byte; //倒计时的时间

{$R *.dfm}

procedure TfrmCloseCD.FormCreate(Sender: TObject);
begin  //通过控制窗体的 BorderStyle 即可实现不显示标题栏
  j:=8;
end;

procedure TfrmCloseCD.Timer1Timer(Sender: TObject);
begin
  j:=j-1;
  btnCloseCD.Caption:='光驱将于 ' + inttostr(j) + ' 秒后关闭';
  if j = 0 then btnCloseCD.Click; //倒计时结束，关闭光驱
end;

procedure TfrmCloseCD.btnCloseCDClick(Sender: TObject);
begin
  try
    CloseCdrom(Mycdrom); //关闭光驱
  finally
    Application.terminate; //退出
  end;
end;

end.