Class Tfm_Main (unit PortTestU1)

Inherits from

TForm

-------------------------------------------- Test program for exercising gwiopm permissions map driver, used to allow direct I/O port programming under Win NT. Revisions --------- 98-06-01 GW Changed to graphical "control panel" for IOPM window 98-05-20 GW Original Copyright Graham Wideman ------------------------ This module is distributed as freeware, and may be freely used for any purpose. I would appreciate a credit notice if this is useful in your work. Thanks. Note that this work was greatly aided by demo code from: Dale Roberts (giveio.sys) Paula Tomlinson (LOADDRV) ------------------------------------------

Constructors



Functions

procedure bt_ClearMemoClick(Sender: TObject);

---------------------------------

procedure bt_CloseSCMClick(Sender: TObject);

---------------------------------

procedure bt_DeviceCloseClick(Sender: TObject);

---------------------------------

procedure bt_DeviceOpenClick(Sender: TObject);

======================================================= Device ======================================================= ---------------------------------

procedure bt_DeviceTestClick(Sender: TObject);

---------------------------------

procedure bt_InstallClick(Sender: TObject);

======================================================= Driver ======================================================= ---------------------------------

procedure bt_IOPMClick(Sender: TObject);

---------------------------------

procedure bt_OpenSCMClick(Sender: TObject);

======================================================= Service Control Manager ======================================================= ---------------------------------

procedure bt_RemoveClick(Sender: TObject);

---------------------------------

procedure bt_ShowPortsClick(Sender: TObject);

---------------------------------

procedure bt_SpkrClick(Sender: TObject);

---------------------------------

procedure bt_StartClick(Sender: TObject);

---------------------------------

procedure bt_StopClick(Sender: TObject);

---------------------------------

procedure bt_VersionClick(Sender: TObject);

---------------------------------

procedure bt_VideoClick(Sender: TObject);

---------------------------------

procedure FormCreate(Sender: TObject);

---------------------------------

procedure m_AboutClick(Sender: TObject);

---------------------------------

procedure m_QuitClick(Sender: TObject);

---------------------------------

procedure DriverStatusMessage(Sender: TObject; Status: DWORD);

Public declarations

---------------------------------


Properties

Events

Variables

bt_ClearMemo : TButton;


bt_CloseSCM : TButton;


bt_DeviceClose : TButton;


bt_DeviceOpen : TButton;


bt_Install : TButton;


bt_IOPM : TButton;


bt_OpenSCM : TButton;


bt_Remove : TButton;


bt_ShowPorts : TButton;


bt_Spkr : TButton;


bt_Start : TButton;


bt_Stop : TButton;


bt_Test : TButton;


bt_Version : TButton;


bt_Video : TButton;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox5 : TGroupBox;


GroupBox6 : TGroupBox;


lb_OutBuf : TLabel;


MainMenu1 : TMainMenu;


mm_Results : TMemo;


m_About : TMenuItem;


m_File : TMenuItem;


m_Help : TMenuItem;


m_Quit : TMenuItem;



Constructors


Functions


procedure bt_ClearMemoClick(Sender: TObject);

---------------------------------


procedure bt_CloseSCMClick(Sender: TObject);

---------------------------------


procedure bt_DeviceCloseClick(Sender: TObject);

---------------------------------


procedure bt_DeviceOpenClick(Sender: TObject);

======================================================= Device ======================================================= ---------------------------------


procedure bt_DeviceTestClick(Sender: TObject);

---------------------------------


procedure bt_InstallClick(Sender: TObject);

======================================================= Driver ======================================================= ---------------------------------


procedure bt_IOPMClick(Sender: TObject);

---------------------------------


procedure bt_OpenSCMClick(Sender: TObject);

======================================================= Service Control Manager ======================================================= ---------------------------------


procedure bt_RemoveClick(Sender: TObject);

---------------------------------


procedure bt_ShowPortsClick(Sender: TObject);

---------------------------------


procedure bt_SpkrClick(Sender: TObject);

---------------------------------


procedure bt_StartClick(Sender: TObject);

---------------------------------


procedure bt_StopClick(Sender: TObject);

---------------------------------


procedure bt_VersionClick(Sender: TObject);

---------------------------------


procedure bt_VideoClick(Sender: TObject);

---------------------------------


procedure FormCreate(Sender: TObject);

---------------------------------


procedure m_AboutClick(Sender: TObject);

---------------------------------


procedure m_QuitClick(Sender: TObject);

---------------------------------


procedure DriverStatusMessage(Sender: TObject; Status: DWORD);

Public declarations

---------------------------------


Properties


Events


Variables


bt_ClearMemo : TButton;


bt_CloseSCM : TButton;


bt_DeviceClose : TButton;


bt_DeviceOpen : TButton;


bt_Install : TButton;


bt_IOPM : TButton;


bt_OpenSCM : TButton;


bt_Remove : TButton;


bt_ShowPorts : TButton;


bt_Spkr : TButton;


bt_Start : TButton;


bt_Stop : TButton;


bt_Test : TButton;


bt_Version : TButton;


bt_Video : TButton;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox5 : TGroupBox;


GroupBox6 : TGroupBox;


lb_OutBuf : TLabel;


MainMenu1 : TMainMenu;


mm_Results : TMemo;


m_About : TMenuItem;


m_File : TMenuItem;


m_Help : TMenuItem;


m_Quit : TMenuItem;