basicide.dpr

IDE开发环境

//program KoolB_IDE;
program BASICIDE;

{%File 'cmcs21.ocx'}
{
uses
  Windows,
  Forms,
  Dialogs,
  SHELLAPI,
  SysUtils,
  INIFiles,
  }

uses
  Windows,
  Forms,
  Dialogs,
  SHELLAPI,
  INIFiles,
  Utils in 'Utils.pas',
  MainUnit in 'MainUnit.pas' {MainForm},
  MDIChld in 'MDIChld.pas' {MDIChild},
  Unit1 in 'Unit1.pas' {Form1},
  about in 'about.pas' {AboutBox},
  Unit3 in 'Unit3.pas' {Form2},
  Splash in 'Splash.pas' {SplashScreen},
  LangUnit in 'LangUnit.pas' {LanguageFrm},
  Options in 'Options.pas' {OptionsFrm},
  InstallLang in 'InstallLang.pas' {InstallLangFrm},
  ProjOptions in 'ProjOptions.pas' {ProjOptionsFrm},
  Thanks in 'Thanks.pas' {ThanksForm};

{$R *.RES}

const BuildID: String = '09-06-2003-1';
const VersionNum: String = '0.2.6.6';

var
  OCXHand: THandle;
  RegFunc: function () : Bool; Stdcall;
  INIFile: TINIFile;

begin
Application.Initialize;
  SplashScreen:= TSplashScreen.Create(Application);
  SplashScreen.Version.Caption := 'Version '+VersionNum;
  SplashScreen.Show;
  OCXHand := LoadLibrary ('cmcs21.ocx');
  if (OCXHand = 0) Then
    ShowMessage('Error - Could not load CodeSense control.');
  @RegFunc:= GetProcAddress (OCXHand, 'DllRegisterServer');
  if @RegFunc <> nil then
    RegFunc
  else
    ShowMessage('Error - Could not register the CodeSense control');
  FreeLibrary (OCXHand);
  Application.Title := 'BASIC IDE 0.2.6.2';
  SplashScreen.Refresh;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TLanguageFrm, LanguageFrm);
  Application.CreateForm(TOptionsFrm, OptionsFrm);
  Application.CreateForm(TInstallLangFrm, InstallLangFrm);
  Application.CreateForm(TProjOptionsFrm, ProjOptionsFrm);
  Application.CreateForm(TThanksForm, ThanksForm);
//  INIFile := TINIFile.Create('BASICIDE.INI');
  Application.Run;
end.