📄 project1.dpr
字号:
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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -