📄 traytest.dpr
字号:
program TrayTest;
uses
Forms,
WinProcs,
TiMain in 'TiMain.pas' {MainForm},
CoolTrayIcon in 'CoolTrayIcon.pas';
{$R *.RES}
begin
Application.Initialize;
Application.Title := 'TrayIcon Test';
{
In stead of using StartMinimized you can insert these two lines.
This code will be executed immediately, while StartMinimized will
be executed when the TCoolTrayIcon component is loaded.
However, it makes no difference because the main form is not shown
before Application.Run is executed.
Application.ShowMainForm := False;
ShowWindow(Application.Handle, SW_HIDE);
}
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -