?? srm.dpr
字號:
//---------------------------------------------------------------------------
//(R)CopyRight KivenSoft International ,inc 1998
//程序名稱:電子書庫
//單元名稱:主單元
//作 者:李會文
//開始時(shí)間:1998.07.28
//最后修改:1999.06.27
//---------------------------------------------------------------------------
program Srm;
{%ToDo 'Srm.todo'}
uses
Windows,
Forms,
MainUnit in 'MainUnit.pas' {SrmForm},
SrmUnit in 'SrmUnit.pas',
SrmConst in 'SrmConst.pas',
SrmAbout in 'SrmAbout.pas' {AboutForm},
SrmOption in 'SrmOption.pas' {OptionForm},
InputPw in 'InputPw.pas' {InPwForm},
OneInst in 'OneInst.pas',
RegUnit in 'RegUnit.pas',
MruUnit in 'MruUnit.pas',
MainFun in 'MainFun.pas',
ClipUnit in 'ClipUnit.pas',
GbBig in 'GbBig.pas';
{$R *.RES}
{$R SrmAtt.res SrmAtt.rc}
var
ITime:DWORD;
begin
Application.Initialize;
if not CheckInstance then //如果沒有運(yùn)行其它電子書庫
begin
AboutForm:=TAboutForm.Create(nil); //啟動屏幕
AboutForm.BorderStyle:=bsNone;
AboutForm.OKSpeedButton.Visible:=false;
AboutForm.ClientHeight:=AboutForm.Panel1.Top+AboutForm.Panel1.Height+10;
AboutForm.Show;
AboutForm.Update;
ITime:=GetTickCount;
Application.Title := '電子書庫';
Application.CreateForm(TSrmForm, SrmForm);
while (GetTickCount-ITime)<2000 do; //延遲兩秒
AboutForm.Hide;
AboutForm.Free;
end;
Application.Run;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -