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

program LocateDir;

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

begin
  // Locate Current Source File in Explorer
  ExploreFile(CnOtaGetCurrentSourceFile, True);

  // Below Line's Behaviour is Strange.
  // ExploreDir(CnOtaGetCurrentSourceFile, True);

  // Locate Project Directory
  if CnOtaGetCurrentProject <> nil then
    ExploreFile(CnOtaGetCurrentProject.GetFileName, False);
end.
