📄 kaoshi.dpr
字号:
program Kaoshi;
uses
Forms,
Controls,
windows,
MainU in 'MainU.pas' {FrmMain},
LoginU in 'LoginU.pas' {FrmLogin},
dmU in 'dmU.pas' {DmGlobal: TDataModule},
LockU in 'LockU.pas' {FrmLock},
GlobalU in 'GlobalU.pas';
{$R *.res}
var
hMutex: THandle;
begin
hMutex := CreateMutex(nil,false,'OneCopyMutex');
if WaitForSingleObject(hMutex,0)<> wait_timeout then
begin
Application.Initialize;
Application.Title := '现场勘查基础知识考试系统';
Application.CreateForm(TDmGlobal, DmGlobal);
FrmLogin := TFrmLogin.Create(Application);
if FrmLogin.ShowModal() <> mrOK then exit;
Application.CreateForm(TFrmMain, FrmMain);
Application.Run;
end
else
MessageBox(Application.Handle,'已有 现场勘察基础知识考试系统 在运行','提示',64);
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -