project1.dpr

来自「一个时钟,适合初学者学习使用,有什么意见联系我」· DPR 代码 · 共 40 行

program Project1;

uses
  Forms,windows,
  Unit1 in 'Unit1.pas' {AutoWave},
  Unit2 in 'Unit2.pas' {Form2},
  About in 'About.pas' {AboutForm},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.RES}
Var

hMutex:HWND;

Ret:Integer;

begin
  Application.Initialize;

  Application.Title := 'autowave';
  hMutex:=CreateMutex(nil,False,'autowave');
  Ret:=GetLastError;
  If Ret<>ERROR_ALREADY_EXISTS Then
  Begin


  Application.CreateForm(TAutoWave, AutoWave);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TForm3, Form3);
  Application.Run;

  End
  Else
  Application.MessageBox('已经有一个电脑时钟在运行！','提示',MB_OK);
  ReleaseMutex(hMutex);


end.