Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ole/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ole/sysinfo.sct

nVERSION =   3.00	sysinfo.hdataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12formformMain�DataSession = 2
Height = 355
Width = 427
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
BorderStyle = 3
Caption = "Display System Information"
MaxButton = .F.
MinButton = .F.
Icon = ..\..\..\
HelpContextID = 186
Name = "Main"
�PROCEDURE checkstatus
THIS.Info.Nodes.Clear
THIS.Info.Nodes.Add( , , [RootPower], PowerInfo_LOC, 2, 2)
DO CASE
	CASE THIS.SysInfo.ACStatus = 0
		THIS.Info.Nodes.Add([RootPower], 4, [ACStatus], ACStatus_LOC + [ - ] + No_LOC, 2, 2)
	CASE THIS.SysInfo.ACStatus = 1
		THIS.Info.Nodes.Add([RootPower], 4, [ACStatus], ACStatus_LOC + [ - ] + Yes_LOC, 2, 2)
	CASE THIS.SysInfo.ACStatus = 255
		THIS.Info.Nodes.Add([RootPower], 4, [ACStatus], ACStatus_LOC + [ - ] + Unknown_LOC, 2, 2)
ENDCASE

IF THIS.SysInfo.BatteryFullTime =  -1
	THIS.Info.Nodes.Add([RootPower], 4, [BatteryFullTime], BatteryFullTime_LOC + [ - ] + ;
							Unknown_LOC, 2, 2)
ELSE
	THIS.Info.Nodes.Add([RootPower], 4, [BatteryFullTime], BatteryFullTime_LOC + [ - ] + ;
							ALLTRIM(STR(THIS.SysInfo.BatteryFullTime)), 2, 2)
ENDIF

IF THIS.SysInfo.BatteryLifePercent = 255
	THIS.Info.Nodes.Add([RootPower], 4, [BatteryLifePercent], BatteryLifePercent_LOC + ;
							[ - ] + Unknown_LOC, 2, 2)
ELSE
	THIS.Info.Nodes.Add([RootPower], 4, [BatteryLifePercent], BatteryLifePercent_LOC + ;
							[ - ] + ALLTRIM(STR(THIS.SysInfo.BatteryLifePercent)) + [%], 2, 2)
ENDIF

DO CASE
	CASE THIS.SysInfo.BatteryStatus = 1
		THIS.Info.Nodes.Add([RootPower], 4, [BatteryStatus], BatteryStatus_LOC + ;
								[ - ] + High_LOC, 2, 2)
	CASE THIS.SysInfo.BatteryStatus = 2
		THIS.Info.Nodes.Add([RootPower], 4, [BatteryStatus], BatteryStatus_LOC + ;
								[ - ] + Low_LOC, 2, 2)
	CASE THIS.SysInfo.BatteryStatus = 4
		THIS.Info.Nodes.Add([RootPower], 4, [BatteryStatus], BatteryStatus_LOC + ;
								[ - ] + Critical_LOC, 2, 2)
	CASE THIS.SysInfo.BatteryStatus = 8
		THIS.Info.Nodes.Add([RootPower], 4, [BatteryStatus], BatteryStatus_LOC + ;
								[ - ] + Charging_LOC, 2, 2)
	CASE THIS.SysInfo.BatteryStatus = 128
		THIS.Info.Nodes.Add([RootPower], 4, [BatteryStatus], BatteryStatus_LOC + ;
								[ - ] + NA_LOC, 2, 2)
	CASE THIS.SysInfo.BatteryStatus = 255
		THIS.Info.Nodes.Add([RootPower], 4, [BatteryStatus], BatteryStatus_LOC + ;
								[ - ] + Unknown_LOC, 2, 2)
ENDCASE

THIS.Info.Nodes.Add( , , [RootSystemInfo], SystemInfo_LOC, 1, 1)
DO CASE
	CASE THIS.SysInfo.OSPlatform = 0
		THIS.Info.Nodes.Add([RootSystemInfo], 4, [OSPlatform], OSPlatform_LOC + [ - Win32s], 1, 1)
	CASE THIS.SysInfo.OSPlatform = 1
		THIS.Info.Nodes.Add([RootSystemInfo], 4, [OSPlatform], OSPlatform_LOC + [ - Windows 95/98/ME], 1, 1)
	CASE THIS.SysInfo.OSPlatform = 2
		IF THIS.SysInfo.OSVersion>=5
			THIS.Info.Nodes.Add([RootSystemInfo], 4, [OSPlatform], OSPlatform_LOC + [ - Windows 2000], 1, 1)
		ELSE
			THIS.Info.Nodes.Add([RootSystemInfo], 4, [OSPlatform], OSPlatform_LOC + [ - Windows NT], 1, 1)		
		ENDIF
ENDCASE
THIS.Info.Nodes.Add([RootSystemInfo], 4, [OSVersion], OSVersion_LOC + [ - ] + ;
						TRANSFORM(THIS.SysInfo.OSVersion, [999.99]), 1, 1)

*! All this stuff is in TWIPS... I believe the conversion would be # / 15 to get Pixels
THIS.Info.Nodes.Add( , , [RootDesktopInfo], DeskTopInfo_LOC, 1, 1)
THIS.Info.Nodes.Add([RootDesktopInfo], 4, [ScrollBarSize], ScrollBarSize_LOC + [ - ] + ;
						TRANSFORM(THIS.SysInfo.ScrollBarSize/15, [999]), 1, 1)
THIS.Info.Nodes.Add([RootDesktopInfo], 4, [WorkAreaHeight], WorkAreaHeight_LOC + [ - ] + ;
						TRANSFORM(THIS.SysInfo.WorkAreaHeight/15, [99999]), 1, 1)
THIS.Info.Nodes.Add([RootDesktopInfo], 4, [WorkAreaWidth], WorkAreaWidth_LOC + [ - ] + ;
						TRANSFORM(THIS.SysInfo.WorkAreaWidth/15, [99999]), 1, 1)
THIS.Info.Nodes.Add([RootDesktopInfo], 4, [WorkAreaLeft], WorkAreaLeft_LOC + [ - ] + ;
						TRANSFORM(THIS.SysInfo.WorkAreaLeft/15, [99999]), 1, 1)
THIS.Info.Nodes.Add([RootDesktopInfo], 4, [WorkAreaTop], WorkAreaTop_LOC + [ - ] + ;
						TRANSFORM(THIS.SysInfo.WorkAreaTop/15, [99999]), 1, 1)

ENDPROC
PROCEDURE Show
LPARAMETERS nStyle

ENDPROC
PROCEDURE QueryUnload
_SCREEN.Visible = .T.

ENDPROC
PROCEDURE Init
IF  fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ;
	fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ;
	fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ;
	fontmetric(7, 'MS Sans Serif', 8, '') # 11
	this.setall('fontname', 'Tahoma')  
ELSE
	this.setall('fontname','MS Sans Serif')
ENDIF
this.setall('fontsize',8)

* Check to see if OCX installed and loaded.
IF TYPE("THIS.Info") # "O" OR ISNULL(THIS.Info)
	RETURN .F.
ENDIF

* Check to see if OCX installed and loaded.
IF TYPE("THIS.Images") # "O" OR ISNULL(THIS.Images)
	RETURN .F.
ENDIF

* Check to see if OCX installed and loaded.
IF TYPE("THIS.SysInfo") # "O" OR ISNULL(THIS.SysInfo)
	RETURN .F.
ENDIF
THIS.Info.ImageList = THIS.Images
ThisForm.CheckStatus

ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
#�� 

҃%]qT��U�������A��C��	RootPower�AC/DC Power Information��������
H�^������������Q��C�	RootPower��ACStatus�Using AC Power� - �No���������������/�R��C�	RootPower��ACStatus�Using AC Power� - �Yes������������������V��C�	RootPower��ACStatus�Using AC Power� - �Unknown���������%���������#�k��C�	RootPower��BatteryFullTime�Full-Charge Battery Lifetime� - �Unknown�����������n��C�	RootPower��BatteryFullTime�Full-Charge Battery Lifetime� - CC���Z����������%�������� �l��C�	RootPower��BatteryLifePercent�Percentage Remaining Power� - �Unknown�����������t��C�	RootPower��BatteryLifePercent�Percentage Remaining Power� - CC���Z��%���������
H���m�����	����[��C�	RootPower��
BatteryStatus�Status Of Battery� - �High������������	�����Z��C�	RootPower��
BatteryStatus�Status Of Battery� - �Low������������	����_��C�	RootPower��
BatteryStatus�Status Of Battery� - �Critical������������	���|�_��C�	RootPower��
BatteryStatus�Status Of Battery� - �Charging������������	������e��C�	RootPower��
BatteryStatus�Status Of Battery� - �Not Applicable������������	����m�^��C�	RootPower��
BatteryStatus�Status Of Battery� - �Unknown���������A��C��RootSystemInfo�System Information��������
H���������
���0�Z��C�RootSystemInfo��
OSPlatform�Operating System�	 - Win32s������������
�����d��C�RootSystemInfo��
OSPlatform�Operating System� - Windows 95/98/ME������������
�����%�������9�`��C�RootSystemInfo��
OSPlatform�Operating System� - Windows 2000�����������^��C�RootSystemInfo��
OSPlatform�Operating System�
 - Windows NT����������_��C�RootSystemInfo��	OSVersion�Version� - C����999.99_��������C��C��RootDesktopInfo�Desktop Information��������o��C�RootDesktopInfo��
ScrollBarSize�Size Of Scrollbar� - C�����999_��������y��C�RootDesktopInfo��WorkAreaHeight�Desktop Work Area Height� - C���
��99999_��������w��C�RootDesktopInfo��
WorkAreaWidth�Desktop Work Area Width� - C�����99999_��������s��C�RootDesktopInfo��WorkAreaLeft�Left Edge Of Desktop� - C�����99999_��������q��C�RootDesktopInfo��WorkAreaTop�Top Edge Of Desktop� - C�����99999_��������UTHISINFONODESCLEARADDSYSINFOACSTATUSBATTERYFULLTIMEBATTERYLIFEPERCENT
BATTERYSTATUS
OSPLATFORM	OSVERSION
SCROLLBARSIZEWORKAREAHEIGHT
WORKAREAWIDTHWORKAREALEFTWORKAREATOP
���UNSTYLE
T�9��a��UVISIBLE��%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$�����!��C�fontname�Tahoma�������(��C�fontname�
MS Sans Serif�������C�fontsize�����)%�C�	THIS.Infob�O�	C�����6�B�-���+%�C�THIS.Imagesb�O�	C�����l�B�-���,%�C�THIS.SysInfob�O�	C�������B�-���T��������
����UTHISSETALLINFOIMAGESSYSINFO	IMAGELISTTHISFORMCHECKSTATUS
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELPcheckstatus,��Show���QueryUnload���Init���Activate���
Deactivate���1�qq!qaA����Ar��BA�q�q�q�q�qRq�A�q�qAqq��AA�3��r23q3�3d	��A��qA�qA�qAa�3�2Q�A1�8��P:+T<F!XN@ZuP{�x)
*checkstatus 

olecontrol
olecontrolSysInfoMainATop = 316
Left = 57
Height = 37
Width = 37
Name = "SysInfo"
[PROCEDURE ConfigChangeCancelled
*** OLE Control Event ***
ThisForm.Status.Caption = ConfigChangeCancel_LOC

ENDPROC
PROCEDURE ConfigChanged
*** OLE Control Event ***
LPARAMETERS oldconfignum, newconfignum

ThisForm.Status.Caption = ConfigChanged_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE DeviceArrival
*** OLE Control Event ***
LPARAMETERS devicetype, deviceid, devicename, devicedata

ThisForm.Status.Caption = DeviceArrival_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE DeviceOtherEvent
*** OLE Control Event ***
LPARAMETERS devicetype, eventname, datapointer

ThisForm.Status.Caption = DeviceEventOther_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE DeviceQueryRemove
*** OLE Control Event ***
LPARAMETERS devicetype, deviceid, devicename, devicedata, cancel

ThisForm.Status.Caption = DeviceQueryRemove_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE DeviceQueryRemoveFailed
*** OLE Control Event ***
LPARAMETERS devicetype, deviceid, devicename, devicedata

ThisForm.Status.Caption = DeviceRemoveFailed_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE DeviceRemoveComplete
*** OLE Control Event ***
LPARAMETERS devicetype, deviceid, devicename, devicedata

ThisForm.Status.Caption = DeviceRemoveComp_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE DeviceRemovePending
*** OLE Control Event ***
LPARAMETERS devicetype, deviceid, devicename, devicedata

ThisForm.Status.Caption = DeviceRemovePend_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE DevModeChanged
*** OLE Control Event ***
LPARAMETERS devicename

ThisForm.Status.Caption = DevModeChanged_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE DisplayChanged
*** OLE Control Event ***
ThisForm.Status.Caption = DisplayChanged_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE PowerQuerySuspend
*** OLE Control Event ***
LPARAMETERS cancel

ThisForm.Status.Caption = PowerQuerySuspend_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE PowerResume
*** OLE Control Event ***

ThisForm.Status.Caption = PowerResume_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE PowerStatusChanged
*** OLE Control Event ***

ThisForm.Status.Caption = PowerStatusChanged_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE PowerSuspend
*** OLE Control Event ***

ThisForm.Status.Caption = PowerSuspend_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE QueryChangeConfig
*** OLE Control Event ***
LPARAMETERS cancel

ThisForm.Status.Caption = QueryChangeConfig_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE SettingChanged
*** OLE Control Event ***
LPARAMETERS item

ThisForm.Status.Caption = SettingChanged_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE SysColorsChanged
*** OLE Control Event ***

ThisForm.Status.Caption = SysColorsChanged_LOC
ThisForm.CheckStatus

ENDPROC
PROCEDURE TimeChanged
*** OLE Control Event ***

ThisForm.Status.Caption = TimeChanged_LOC
ThisForm.CheckStatus

ENDPROC

�� �
�
��%
dA��U]ZT�����GWindows Has Notified Us That The Configuration Change Has Been Canceled��UTHISFORMSTATUSCAPTIONK����3T����� System Configuration Has Changed��
����UOLDCONFIGNUMNEWCONFIGNUMTHISFORMSTATUSCAPTIONCHECKSTATUS\������<T�����)A New Device Has Been Added To The System��
����U
DEVICETYPEDEVICEID
DEVICENAME
DEVICEDATATHISFORMSTATUSCAPTIONCHECKSTATUSQ�����5T�����"An Unhandled Device Event Occurred��
����U
DEVICETYPE	EVENTNAMEDATAPOINTERTHISFORMSTATUSCAPTIONCHECKSTATUSf�������BT�����/A Device Is About To Be Removed From The System��
����U	
DEVICETYPEDEVICEID
DEVICENAME
DEVICEDATACANCELTHISFORMSTATUSCAPTIONCHECKSTATUSX������8T�����%The Device About To Be Removed Failed��
����U
DEVICETYPEDEVICEID
DEVICENAME
DEVICEDATATHISFORMSTATUSCAPTIONCHECKSTATUS[������;T�����(The Device Has Been Removed Successfully��
����U
DEVICETYPEDEVICEID
DEVICENAME
DEVICEDATATHISFORMSTATUSCAPTIONCHECKSTATUSN������.T�����The Device Is Being Removed��
����U
DEVICETYPEDEVICEID
DEVICENAME
DEVICEDATATHISFORMSTATUSCAPTIONCHECKSTATUSE���1T�����A Device Has Changed It's Mode��
����U
DEVICENAMETHISFORMSTATUSCAPTIONCHECKSTATUSM@T�����-The Screen Resolution/Color Depth Has Changed��
����UTHISFORMSTATUSCAPTIONCHECKSTATUSW���CT�����0The System Is Requesting The Suspension Of Power��
����UCANCELTHISFORMSTATUSCAPTIONCHECKSTATUS6)T�����Power Has Been Resumed��
����UTHISFORMSTATUSCAPTIONCHECKSTATUS8+T�����Power Status Has Changed��
����UTHISFORMSTATUSCAPTIONCHECKSTATUS8+T�����Power Is Being Suspended��
����UTHISFORMSTATUSCAPTIONCHECKSTATUSw���cT�����PWindows Has Notified Us It Is About To Change The Hardware Profile Configuration��
����UCANCELTHISFORMSTATUSCAPTIONCHECKSTATUSH���4T�����!A System Wide Setting Has Changed��
����UITEMTHISFORMSTATUSCAPTIONCHECKSTATUS:-T�����A System Color Has Changed��
����UTHISFORMSTATUSCAPTIONCHECKSTATUSE8T�����%The System Date/Time Has Been Changed��
����UTHISFORMSTATUSCAPTIONCHECKSTATUSConfigChangeCancelled,��
ConfigChanged���
DeviceArrival;��DeviceOtherEvent���DeviceQueryRemove���DeviceQueryRemoveFailedZ��DeviceRemoveComplete��DeviceRemovePending���DevModeChangedi��DisplayChanged���PowerQuerySuspend_��PowerResume���PowerStatusChangedL��PowerSuspend���QueryChangeConfig��SettingChanged���SysColorsChanged9	��TimeChanged�	��1�3�2�32��3�R�3r"�32��32��32��3r�3�3r2�3��3��3��3r2�3rB�3��3��2!n�>����`�-&X�.�6�Z>#�F&~L*��T-'�[0�	b36	�	i7�	F
q;m
�
y>�
P�)�

��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������$J��OleObjectData���� AccessObjSiteData&������������\ChangedProps����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������KG�o�C���b�L!C4��\$8E3920CD0�-1C87-11d0-8E8A-00A0C90F26F8����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������+OLEObject = c:\winnt\system32\sysinfo.ocx
shapeshapeShape3MainbTop = 15
Left = 11
Height = 30
Width = 405
BackStyle = 0
SpecialEffect = 0
Name = "Shape3"
labellabelLabel12Main�FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "This form uses the SysInfo OLE control to display information about the system."
Height = 18
Left = 21
Top = 24
Width = 390
TabIndex = 2
Name = "Label12"
labellabelLabel13Main�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 19
Top = 8
Width = 62
TabIndex = 1
Name = "Label13"
c_solutions..\solution.vcxcustomC_solutions1Main.Top = 325
Left = 142
Name = "C_solutions1"
cmdclose..\solution.vcx
commandbutton	Cmdclose1Main9Top = 323
Left = 343
TabIndex = 5
Name = "Cmdclose1"
behindscenes..\solution.vcx
commandbutton
Behindscenes1Main<Top = 323
Left = 12
TabIndex = 6
Name = "Behindscenes1"
labellabelstatusMain�FontName = "MS Sans Serif"
FontSize = 8
Caption = ""
Height = 17
Left = 46
Top = 328
Width = 289
TabIndex = 7
Name = "status"

olecontrol
olecontrolImagesMainATop = 324
Left = 120
Height = 61
Width = 61
Name = "Images"
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry��������P�%J��OleObjectData����2AccessObjSiteData&������������\ChangedProps������������=��������	

��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#$,����j��(6(!C4���~��"������ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1}Microsoft Date a�ImageHeight	I
ImageWidth	I
 �����ltBMv(
������������������������������������������p�����v�����DDD����~�DDD�����  '�����DDD��� � DDD��~.��w���������g  ������p����lt�BM�6(t���������������������������������������������������������\���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������,OLEObject = C:\WINNT\System32\mscomctl.ocx

olecontrol
olecontrolInfoMainMTop = 60
Left = 12
Height = 240
Width = 396
TabIndex = 3
Name = "Info"

��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry��������P�%J��@OleObjectData����dAccessObjSiteData&������������\ChangedProps��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Alj���j��(6(!C4�(��<�j��`��ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1eView Control, ver�on 6.0	{C74190B6-8589-11D1-B16�@���H�crosoft Animation Control, version 6.0	{B09DE715-87C1-11D1-8BE3-0000F8754DA1}b���L6	�	,OLEObject = C:\WINNT\System32\mscomctl.ocx
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
	sysinfo.he��(�DataSession = 2
Height = 355
Width = 427
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
BorderStyle = 3
Caption = "Display System Information"
MaxButton = .F.
MinButton = .F.
Icon = ..\..\..\
HelpContextID = 1231573
Name = "Main"