Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/logo.sct
 �VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentaTop = 242
Left = 251
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 369
Width = 395
DoCreate = .T.
Caption = "Information for Windows Logo"
lsetffcpath = .T.
_memberdata = 
Name = "Frmsolution1"
C_solutions1.Top = 336
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 336
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 17
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 48
Shape2.Width = 372
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "Use FFC classes to obtain information useful in creating applications compliant with the Windows Logo program."
Label1.Height = 32
Label1.Left = 24
Label1.Top = 24
Label1.Width = 336
Label1.TabIndex = 2
Label1.ZOrderSet = 4
Label1._memberdata = 
Label1.Name = "Label1"
Label4.TabIndex = 1
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 336
Cmdclose1.Left = 312
Cmdclose1.TabIndex = 18
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"
.PROCEDURE getuserpriv
LPARAMETERS lcUser

#DEFINE USER_PRIV_GUEST		0
#DEFINE USER_PRIV_USER		1
#DEFINE USER_PRIV_ADMIN		2

#DEFINE USER_PRIV_GUEST_LOC		"Guest"
#DEFINE USER_PRIV_USER_LOC		"Power User"
#DEFINE USER_PRIV_ADMIN_LOC		"Administrator"
#DEFINE USER_PRIV_NA_LOC		"not available"

* Check for invalid OS (NT, W2K or greater)
IF VAL(OS(3))<5 AND ATC("NT",OS())=0
	RETURN USER_PRIV_NA_LOC
ENDIF

LOCAL lcUserPriv
lcUserPriv = THISFORM._userpriv.getuserpriv(lcUser)
DO CASE
CASE lcUserPriv = USER_PRIV_GUEST
	RETURN USER_PRIV_GUEST_LOC
CASE lcUserPriv = USER_PRIV_USER
	RETURN USER_PRIV_USER_LOC
CASE lcUserPriv = USER_PRIV_ADMIN
	RETURN USER_PRIV_ADMIN_LOC
OTHERWISE
	RETURN USER_PRIV_NA_LOC
ENDCASE

ENDPROC
PROCEDURE Init
DODEFAULT()

#DEFINE CSIDL_PERSONAL                  0x0005        && My Documents
#DEFINE CSIDL_APPDATA                   0x001a        && <user name>\Application Data

THIS.txtMyDocs.Value = THIS._commonfolder.getfolder(CSIDL_PERSONAL)
THIS.txtAppData.Value = THIS._commonfolder.getfolder(CSIDL_APPDATA)
THIS.txtMouseButtons.Value = THIS._sysmetrics.nmousebuttons 
THIS.txtMouseWheel.Value = THIS._sysmetrics.lmousewheelpresent
THIS.txtMonitors.Value = THIS._sysmetrics.nmonitors
THIS.txtUserPriv.Value = THIS.getuserpriv(THIS.txtUser.Value)
ENDPROC
��� ��#�%�=	�U���&%�CC�Jg�
�C�NTCJ��	��C�B��
not available������T��C������
H�s����������B��Guest���������B��
Power User���������B��
Administrator��2���B��
not available���ULCUSER
LCUSERPRIVTHISFORM	_USERPRIVGETUSERPRIV�	��C��T����C������T����C������T���������T��	�����
��T��������� T��
��C�������UTHIS	TXTMYDOCSVALUE
_COMMONFOLDER	GETFOLDER
TXTAPPDATATXTMOUSEBUTTONS_SYSMETRICS
NMOUSEBUTTONS
TXTMOUSEWHEELLMOUSEWHEELPRESENTTXTMONITORS	NMONITORSTXTUSERPRIVGETUSERPRIVTXTUSERgetuserpriv,��Inith��1qlaAr���1a�aA3������1��# )�,_memberdata
^myarray[1,0] 
*getuserpriv 
shapeshapeShape1Frmsolution1cTop = 276
Left = 12
Height = 49
Width = 372
SpecialEffect = 0
ZOrderSet = 0
Name = "Shape1"
	_userpriv..\..\..\ffc\_system.vcxcustom	_userprivFrmsolution1+Top = 336
Left = 228
Name = "_userpriv"

_commonfolder..\..\..\ffc\_system.vcxcustom
_commonfolderFrmsolution1/Top = 336
Left = 264
Name = "_commonfolder"
_sysmetrics..\..\..\ffc\_system.vcxcustom_sysmetricsFrmsolution1-Top = 336
Left = 192
Name = "_sysmetrics"
labellabelLabel3Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "My documents folder:"
Height = 16
Left = 12
Top = 72
Width = 106
TabIndex = 3
ZOrderSet = 10
Name = "Label3"
labellabelLabel2Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Application data folder:"
Height = 15
Left = 12
Top = 128
Width = 110
TabIndex = 5
ZOrderSet = 11
Name = "Label2"
textboxtextbox	txtMyDocsFrmsolution1FontSize = 8
Height = 23
Left = 12
ReadOnly = .T.
TabIndex = 4
Top = 90
Width = 372
ZOrderSet = 12
Name = "txtMyDocs"
textboxtextbox
txtAppDataFrmsolution1�FontSize = 8
Height = 23
Left = 12
ReadOnly = .T.
TabIndex = 6
Top = 147
Width = 372
ZOrderSet = 13
Name = "txtAppData"
labellabelLabel5Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Number of mouse buttons:"
Height = 15
Left = 12
Top = 192
Width = 126
TabIndex = 7
ZOrderSet = 14
Name = "Label5"
labellabelLabel6Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "MouseWheel present:"
Height = 15
Left = 12
Top = 216
Width = 126
TabIndex = 9
ZOrderSet = 15
Name = "Label6"
labellabelLabel7Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Number of monitors:"
Height = 15
Left = 12
Top = 240
Width = 126
TabIndex = 11
ZOrderSet = 16
Name = "Label7"
textboxtextboxtxtMouseButtonsFrmsolution1�FontSize = 8
Height = 23
Left = 144
ReadOnly = .T.
TabIndex = 8
Top = 189
Width = 36
ZOrderSet = 17
Name = "txtMouseButtons"
textboxtextbox
txtMouseWheelFrmsolution1�FontSize = 8
Alignment = 1
Height = 23
InputMask = "Y"
Left = 144
ReadOnly = .T.
TabIndex = 10
Top = 213
Width = 36
ZOrderSet = 18
Name = "txtMouseWheel"
textboxtextboxtxtMonitorsFrmsolution1�FontSize = 8
Height = 23
Left = 144
ReadOnly = .T.
TabIndex = 12
Top = 237
Width = 36
ZOrderSet = 19
Name = "txtMonitors"
labellabelLabel8Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "User access rights:"
Height = 15
Left = 24
Top = 269
Width = 92
TabIndex = 13
ZOrderSet = 20
Name = "Label8"
textboxtextboxtxtUserFrmsolution1~FontSize = 8
Value = guest
Height = 23
Left = 84
TabIndex = 15
Top = 288
Width = 168
ZOrderSet = 21
Name = "txtUser"
bPROCEDURE Valid
THISFORM.txtUserPriv.Value = THISFORM.getuserpriv(ALLTRIM(THIS.Value))
ENDPROC
��� ��ƀ%����U"T����CC�������UTHISFORMTXTUSERPRIVVALUEGETUSERPRIVTHISValid,��1�1W)�textboxtextboxtxtUserPrivFrmsolution1�FontSize = 8
Height = 23
Left = 264
ReadOnly = .T.
TabIndex = 16
Top = 288
Width = 108
ZOrderSet = 22
Name = "txtUserPriv"
labellabelLabel9Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Enter user:"
Height = 15
Left = 24
Top = 292
Width = 60
TabIndex = 14
ZOrderSet = 23
Name = "Label9"
kArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Arial, 0, 8, 5, 14, 11, 30, 3, 0