skyeditt.dpr

来自「SkyEdit是一个可用彩色语法来显示及编辑各种开发语言源代码的编辑器控件。」· DPR 代码 · 共 41 行

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.