qq.~dpr

来自「一个QQ的界面源码」· ~DPR 代码 · 共 44 行

program qq;

uses
  Forms,
  windows,
  main in 'main.pas' {FrmMain_QQ},
  FlashForm in 'FlashForm.pas' {FrmFlash},
  by_user in 'by_user.pas',
  login in 'login.pas' {FrmLogin},
  user_reg in 'user_reg.pas' {FrmReg},
  dm_share in 'dm_share.pas' {DMShare: TDataModule},
  Var_Share in 'Var_Share.pas',
  msg in 'msg.pas' {FrmMsg},
  Frind_friends in 'Frind_friends.pas' {FrmFindFriends},
  untSetup in 'untSetup.pas' {FrmSetup},
  untAbout in 'untAbout.pas' {FrmAbout};

{$R *.res}

begin
  Application.Initialize;
(*  if (FindWindow('TFrmMain_QQ',nil)<>0) or (FindWindow('TFrmLogin','用户登陆')<>0) then
  begin
    MessageBox(0,'〖局域网即时通讯〗软件已在运行中……','提示',MB_OK+MB_ICONINFORMATION);
    Application.ShowMainForm:=False;
    Application.Terminate;
  end;
*)
  DMShare:=TDMShare.Create(Application);
  with TFrmLogin.Create(Application) do
  begin
    try
      ShowModal;
      Update;
    finally
      Release;
    end;

  end;
  Application.CreateForm(TFrmMain_QQ, FrmMain_QQ);
//  Application.CreateForm(TFrmAbout, FrmAbout);
  Application.Run;
end.