📄 skyeditt.dpr
字号:
program SkyEditT;
uses
Forms,
Windows,
Messages,
SkyEMain in 'SkyEMain.pas' {SkyForm},
SkyManager in 'SkyManager.pas',
SearchE in 'SearchE.pas' {SearchForm},
Input in 'Input.pas' {InputForm};
{$R *.res}
var
wnd: HWND;
cds: COPYDATASTRUCT;
begin
Application.Initialize;
wnd := FindWindow('Sky SkyEditor 2004', nil);
if (ParamCount() > 0) and (Wnd > 0) then
begin
//以下第一个消息便于程序实例处理最小化时的恢复,第二个消息才传文件名
cds.dwData := 0;
cds.cbData := 0;
cds.lpData := nil;
SendMessage(wnd, WM_COPYDATA, WPARAM(Application.Handle), LPARAM(@cds));
cds.cbData := Length(ParamStr(1)) + 1;
cds.lpData := PChar(ParamStr(1));
SendMessage(wnd, WM_COPYDATA, WPARAM(Application.Handle), LPARAM(@cds));
SetForegroundWindow(wnd);
end
else
begin
Application.CreateForm(TSkyForm, SkyForm);
Application.CreateForm(TInputForm, InputForm);
Application.Run;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -