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)
------------------------------------------
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 ---------------------------------
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;
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
---------------------------------
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;