qxt.dpr

来自「通过串口发送多条短信的群发软件」· DPR 代码 · 共 45 行

program qxt;

uses
  Forms,
  main in 'main.pas' {mainForm},
  client in 'client.pas' {clientForm},
  data in 'data.pas' {dataForm},
  edituser in 'edituser.pas' {edituserForm},
  task in 'task.pas' {taskForm},
  newgroup in 'newgroup.pas' {newgroupForm},
  group in 'group.pas' {groupForm},
  changetime in 'changetime.pas' {changetimeForm},
  connect in 'connect.pas' {connectForm},
  inserttext in 'inserttext.pas' {inserttextForm},
  smthread in 'smthread.pas',
  taskinfo in 'taskinfo.pas' {task_infoForm},
  log in 'log.pas' {logForm},
  about in 'about.pas' {aboutForm},
  inbox in 'inbox.pas' {inboxForm},
  other in 'other.pas',
  hmd in 'hmd.pas' {hmdForm};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '企信通';
  Application.CreateForm(TmainForm, mainForm);
  Application.CreateForm(TclientForm, clientForm);
  Application.CreateForm(TdataForm, dataForm);
  Application.CreateForm(TedituserForm, edituserForm);
  Application.CreateForm(TtaskForm, taskForm);
  Application.CreateForm(TnewgroupForm, newgroupForm);
  Application.CreateForm(TgroupForm, groupForm);
  Application.CreateForm(TchangetimeForm, changetimeForm);
  Application.CreateForm(TconnectForm, connectForm);
  Application.CreateForm(TinserttextForm, inserttextForm);
  Application.CreateForm(Ttask_infoForm, task_infoForm);
  Application.CreateForm(TlogForm, logForm);
  Application.CreateForm(TaboutForm, aboutForm);
  Application.CreateForm(TinboxForm, inboxForm);
  Application.CreateForm(ThmdForm, hmdForm);
  Application.Run;
end.