?? internet.dpr
字號:
program Internet;
uses
Forms,
windows,
FMAIN in 'FMAIN.PAS' {F_MAIN},
sys_global in 'sys_global.pas',
DllDef in 'DllDef.pas',
UComm in 'UComm.pas',
uthread in 'uthread.pas',
sys_login in 'sys_login.pas' {Frm_sys_login},
ShowUser in 'ShowUser.pas' {Frm_ShowUser},
MySet in 'MySet.pas' {Frm_MySet},
Dlg in 'Dlg.pas' {Frm_Dlg},
Display1 in 'Display1.pas' {Frm_Display1},
ShowMess in 'ShowMess.pas' {Frm_ShowMess};
{$R *.res}
var
hMutex: HWND ;
Ret: integer ;
begin
Application.Initialize;
hMutex := CreateMutex(nil,false,'My1998'); // 建一互斥的信號量
Ret := GetLastError;
if Ret = ERROR_ALREADY_EXISTS Then //若第二次運行,則退出
begin
releasemutex(hmutex);
application.Terminate ;
exit;
end;
Application.CreateForm(TF_MAIN, F_MAIN);
Application.CreateForm(TFrm_ShowUser, Frm_ShowUser);
Application.CreateForm(TFrm_Display1, Frm_Display1);
Application.Run;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -