📄 recover.dpr
字号:
program recover;
uses
Forms,
windows,
start1 in 'start1.pas' {start};
{$R *.res}
begin
createsemaphore(nil,1,1,'my');
if getlasterror()=ERROR_ALREADY_EXISTS then
begin
application.MessageBox('职工工资管理系统正在运行,请关闭之然后再进行数据恢复!','信息',mb_ok+mb_iconinformation);
exit;
end;
Application.Initialize;
Application.CreateForm(Tstart, start);
Application.Run;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -