📄 test.dpr
字号:
{$J+}
library test;
uses
SysUtils,
Windows,
aspr_api;
Const
ModeName : PChar = '';
Var
ModeStatus : TModeStatus;
procedure MB;
begin
MessageBox(0,'procedure MB','MB',0);
end;
exports MB;
begin
GetModeInformation( 0, ModeName, ModeStatus );
If ModeName = nil then ModeName:= 'No Mode'; //' Protect file first!
MessageBox(0, ModeName, 'Current Mode Name:',0)
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -