backup.dpr

来自「用户登录、自动出题、试题录入、手动出题、试题管理等」· DPR 代码 · 共 19 行

program BackUp;

uses
  Forms, SysUtils,Windows,
  BackUp_Form in 'BackUp_Form.pas' {Backup_F};

{$R *.res}

begin
  Application.Initialize;
  if (ParamCount=0)or(LowerCase(ParamStr(1))<>'han_backup') then
    begin
      MessageBox(0,'注意：本程序不能单独运行！','非法运行',MB_OK or MB_ICONINFORMATION);
      exit;
    end;
  Application.CreateForm(TBackup_F, Backup_F);
  Application.Run;
end.