?? dbook.dpr
字號:
program DBook;
uses
Forms,
Windows,
Main in 'Main.pas' {MainFrm},
PublicUnit in 'PublicUnit.pas',
AddUnit in 'AddUnit.pas' {AddFrm},
AdvanceUnit in 'AdvanceUnit.pas' {AdvanceFrm},
TempUnit in 'TempUnit.pas' {TempFrm},
SplashUnit in 'SplashUnit.pas' {SplashFrm},
PreviewUnit in 'PreviewUnit.pas' {PreviewFrm},
LoginUnit in 'LoginUnit.pas' {LoginFrm};
{$R *.res}
var
ExeHandle:THandle;
begin
ExeHandle:=FindWindow(nil,'DBook -個人文檔管理專家');
if ExeHandle<>0 then //關閉程序
begin
Application.MessageBox('已經有一個DBook在運行','提示',0);
Application.Terminate;
end
else
begin
SplashFrm:=TSplashFrm.Create(Application);
SplashFrm.Show;
SplashFrm.Update;
Application.Initialize;
Application.CreateForm(TMainFrm, MainFrm);
//Application.CreateForm(TLoginFrm, LoginFrm);
SplashFrm.Hide;
SplashFrm.Free;
Application.Run;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -