program Internet;

uses
  Forms,
  windows,
  FMAIN in 'FMAIN.PAS' {F_MAIN},
  sys_global in 'sys_global.pas',
  DllDef in 'DllDef.pas',
  UComm in 'UComm.pas',
  uthread in 'uthread.pas',
  sys_login in 'sys_login.pas' {Frm_sys_login},
  ShowUser in 'ShowUser.pas' {Frm_ShowUser},
  MySet in 'MySet.pas' {Frm_MySet},
  Dlg in 'Dlg.pas' {Frm_Dlg},
  Display1 in 'Display1.pas' {Frm_Display1},
  ShowMess in 'ShowMess.pas' {Frm_ShowMess};

{$R *.res}

var
  hMutex: HWND ;
  Ret: integer ;
begin
  Application.Initialize;
  hMutex := CreateMutex(nil,false,'My1998');   // 建一互斥的信號量
  Ret := GetLastError;
  if Ret = ERROR_ALREADY_EXISTS Then           //若第二次運行，則退出
  begin
    releasemutex(hmutex);
    application.Terminate ;
    exit;
  end;
  Application.CreateForm(TF_MAIN, F_MAIN);
  Application.CreateForm(TFrm_ShowUser, Frm_ShowUser);
  Application.CreateForm(TFrm_Display1, Frm_Display1);
  Application.Run;
end.