eject.dpr

来自「设备管理代码,可以把所有硬件都进行管理.」· DPR 代码 · 共 15 行

program eject;

uses
  Forms,
  ueject in 'ueject.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'Enable, Disable and Eject Devices';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.