📄 types.pas
字号:
unit Types;
interface
uses
Windows,Messages,Classes;
type
Tmhotkey=record
cusHotkey:boolean;
shift:boolean;
ctrl:boolean;
alt:boolean;
key:word;
end;
TOption=record
autorun:boolean;
password:string;
OptWinHotkey:tmhotkey;
CloseAppHotKey:tmhotkey;
autosendmail:boolean;
mailserver:string;
mailPort:word;
servercheck:boolean;
mailUserName:string;
mailPassword:string;
MailAddress:string;
DataFile:string;
end;
const WM_getdata=WM_User+100;
var
appOption:Toption;
implementation
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -