{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{*******************************************************}

program CloseView;

// LiuXiao: This Script is used to Close Current EditView.
// We can specify a Shortcut, e.g. Ctrl+W to it to simulate WebBrowser Page Closing.

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

begin
  CnOtaClosePage(CnOtaGetTopMostEditView(nil));
end.
 
