xychat.dpr

来自「絮语2007视频聊天软件源程序.仅供参考」· DPR 代码 · 共 58 行

program xychat;

uses
  Forms,
  windows,
  shareunit in 'model\shareunit.pas',
  udpcores in 'model\udpcores.pas' {udpcore: TDataModule},
  createusers in 'login\createusers.pas' {create_user},
  logindlgs in 'login\logindlgs.pas' {logindlg},
  mainunt in 'main\mainunt.pas' {mainfrm},
  About in 'main\about.pas' {AboutBox},
  myinforset in 'setting\myinforset.pas' {myinfor_set},
  myfirendinfor in 'setting\myfirendinfor.pas' {myfirend_infor},
  searchuser in 'search\searchuser.pas' {search_user},
  selectunt in 'search\selectunt.pas' {selectfrm},
  phizunt in 'glyph\phizunt.pas' {phizfrm},
  avunt in 'media\avunt.pas' {avfrm},
  trackunt in 'media\trackunt.pas' {trackfrm},
  dialogunt in 'message\dialogunt.pas' {dialogfrm},
  promptunt in 'message\promptunt.pas' {promptfrm},
  talkrecunt in 'message\talkrecunt.pas' {talkrecfrm},
  admsgunt in 'message\admsgunt.pas' {admsgfrm},
  addfirendunt in 'search\addfirendunt.pas' {addfirendfrm},
  copyscreen in 'glyph\copyscreen.pas' {copy_screen},
  historyunt in 'message\historyunt.pas' {historyfrm},
  editheaderunt in 'setting\editheaderunt.pas' {editheaderfrm},
  broadcastunt in 'message\broadcastunt.pas' {broadcastfrm},
  taskmainunt in 'task\taskmainunt.pas' {taskmainfrm},
  tasknewunt in 'task\tasknewunt.pas' {tasknewfrm},
  filetranunt in 'filetran\filetranunt.pas' {filetranfrm},
  remotesvrunt in 'remote\remotesvrunt.pas' {remotesvrfrm},
  remotecltunt in 'remote\remotecltunt.pas' {remotecltfrm};

{$R *.RES}
var handle:hwnd;
begin
  handle:=findwindow('xychat',nil);
  if handle>0 then exit;
  Application.Initialize;
  Application.Title := '絮语';
  Application.HelpFile := '';
  Application.CreateForm(Tudpcore, udpcore);
  with tlogindlg.Create(nil) do
    try
    ShowModal;
    finally
    Free;
    end;
  if login_ok then
    begin
    Application.CreateForm(TMainFrm, MainFrm);
    Application.CreateForm(Tphizfrm, Phizfrm);
    Application.CreateForm(Ttrackfrm,Trackfrm);
    Application.CreateForm(Tremotesvrfrm,remotesvrfrm);
    end;
  Application.Run;
end.