zrzxxt.dpr

这是一个有DELPHI编写的自动作息时间打铃控制程序,具有灵活的权限分配,能灵活编写作时间,并有手动打铃功能,能自已加入铃声.你自己看吧

program zrzxxt;

uses
  Forms,
  Windows,
  zrzxkzxt in 'ZRZXKZXT.PAS' {Form1},
  ulong in 'ULONG.PAS' {long},
  pianchen in 'PIANCHEN.PAS' {timeedit},
  uGloabVar in 'uGloabVar.pas',
  ts in 'ts.pas' {tsForm},
  senguoqiUnit in 'senguoqiUnit.pas' {senguoqi},
  guanyuUnit in 'guanyuUnit.pas' {Form2};

{$R *.res}
 var
 MutexHandle: THandle;
begin
   begin
  // whether existed
  MutexHandle := CreateMutex(nil, TRUE, '智能作息控制系统');
  if MutexHandle <> 0 then
  begin
    if GetLastError = ERROR_ALREADY_EXISTS then
    begin
      MessageBox(0, '不好意思智能作息控制系统已经运行...', '提醒', mb_IconHand);
      CloseHandle(MutexHandle);
      Halt; // 'Halt' Is stop running the actual application.
    end;
  end;
  end;
  ReadFromReg;
  Application.Initialize;
  Application.Title := '智能作息控制系统';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(Ttimeedit, timeedit);
  Application.CreateForm(TtsForm, tsForm);
  Application.CreateForm(Tlong, long);
  Application.CreateForm(Tsenguoqi, senguoqi);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
  WriteReg;
end.