| Class Tfm_Main (unit PortTestU1) |
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);
procedure bt_DeviceTestClick(Sender: TObject);
procedure bt_InstallClick(Sender: TObject);
procedure bt_IOPMClick(Sender: TObject);
procedure bt_OpenSCMClick(Sender: TObject);
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);---------------------------------
| 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;