?? qq.~dpr
字號:
program qq;
uses
Forms,
windows,
main in 'main.pas' {FrmMain_QQ},
FlashForm in 'FlashForm.pas' {FrmFlash},
by_user in 'by_user.pas',
login in 'login.pas' {FrmLogin},
user_reg in 'user_reg.pas' {FrmReg},
dm_share in 'dm_share.pas' {DMShare: TDataModule},
Var_Share in 'Var_Share.pas',
msg in 'msg.pas' {FrmMsg},
Frind_friends in 'Frind_friends.pas' {FrmFindFriends},
untSetup in 'untSetup.pas' {FrmSetup},
untAbout in 'untAbout.pas' {FrmAbout};
{$R *.res}
begin
Application.Initialize;
(* if (FindWindow('TFrmMain_QQ',nil)<>0) or (FindWindow('TFrmLogin','用戶登陸')<>0) then
begin
MessageBox(0,'〖局域網即時通訊〗軟件已在運行中……','提示',MB_OK+MB_ICONINFORMATION);
Application.ShowMainForm:=False;
Application.Terminate;
end;
*)
DMShare:=TDMShare.Create(Application);
with TFrmLogin.Create(Application) do
begin
try
ShowModal;
Update;
finally
Release;
end;
end;
Application.CreateForm(TFrmMain_QQ, FrmMain_QQ);
// Application.CreateForm(TFrmAbout, FrmAbout);
Application.Run;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -