freedict.~dpr

屏幕取词的delphi代码

program FreeDict;

uses
  Forms,
  untMain in 'untmain.pas' {frmGanDict},
  untAbout in 'untAbout.pas' {AboutBox},
  untTypes in 'untTypes.pas',
  un_js in 'un_js.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TfrmGanDict, frmGanDict);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.