pick.dpr

来自「对任何纯文本文件进行随机抽奖的功能」· DPR 代码 · 共 17 行

program pick;

uses
  Forms,
  main in 'main.pas' {Form1},
  help in 'help.pas' {helpbox};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := '文本文件通用抽奖程序 V1.00';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(Thelpbox, helpbox);
  Application.Run;
end.