Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/tools/test/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/tools/test/aautils.vct

*�VERSION =   3.00CArial, 0, 9, 5, 15, 12, 16, 3, 0
Tahoma, 0, 9, 5, 14, 12, 23, 2, 0
frmselapplicationPixelsClass5form	tbraatestPixelsClassfrmselapplication��� ���U%3XB�U����(T��C�visualfoxpro.application�N��T���a����C�9����%%�C�oExternalVFP.hWndb�U����T���������
�����B�U	OEXTERNALVFPVISIBLESETFOREGROUNDWINDOWHWNDTHISFORMOHWND
NHWNDSELECTED	CMDCANCELCLICKClick,��1q���SaA�B1z)��PROCEDURE Click
LOCAL oExternalVFP

oExternalVFP = CREATEOBJECT("visualfoxpro.application")
oExternalVFP.Visible=.T.

*-- Reselect the foreground window
SetForegroundWindow(_screen.hwnd)

*-- If the VFP doesn't support MSAA(may be VFP6)
IF TYPE("oExternalVFP.hWnd") <> "U"
	Thisform.oHwnd.nhWndSelected = oExternalVFP.hWnd
ENDIF

Thisform.cmdCancel.Click

RETURN
ENDPROC
�Top = 252
Left = 357
Height = 25
Width = 29
FontName = "Tahoma"
Picture = fox.bmp
Caption = ""
TabIndex = 4
Name = "cmdVFP"
frmselapplicationcmdVFP
commandbutton
commandbutton�� ����%Pe_�U

����UTHISFORMRELEASEClick,��1�2#)�.PROCEDURE Click
Thisform.Release

ENDPROC
�Top = 252
Left = 282
Height = 25
Width = 68
FontName = "Tahoma"
Cancel = .T.
Caption = "\<Cancel"
TabIndex = 3
Name = "cmdCancel"
frmselapplication	cmdCancel
commandbutton
commandbuttons�� ZZ�y%��U}-%�C�Thisform.lstwinname.Valueb�C��H�T����C���g���i�T����������
�����UTHISFORMOHWND
NHWNDSELECTED
LSTWINNAMEVALUE	CMDCANCELCLICKClick,��1����A�2�)Z�PROCEDURE Click
IF TYPE("Thisform.lstwinname.Value") = "C"
	Thisform.oHwnd.nhWndSelected = VAL(Thisform.lstwinname.Value)
ELSE
	Thisform.oHwnd.nhWndSelected = Thisform.lstwinname.Value
ENDIF

Thisform.cmdCancel.Click

ENDPROC
�Top = 252
Left = 212
Height = 25
Width = 68
FontName = "Tahoma"
Caption = "\<Select"
Default = .T.
TabIndex = 2
Name = "cmdSelect"
frmselapplication	cmdSelect
commandbutton
commandbutton�� ��7�%\tn�U
�����UTHISFORM	CMDSELECTCLICKDblClick,��1�1,)�7PROCEDURE DblClick
Thisform.cmdSelect.Click
ENDPROC
�FontName = "Tahoma"
BoundColumn = 2
ColumnCount = 2
ColumnWidths = "370,0"
RowSourceType = 6
RowSource = "winname,handle"
FirstElement = 1
Height = 228
Left = 12
NumberOfElements = 0
TabIndex = 1
Top = 12
Width = 373
Name = "lstwinname"
frmselapplication
lstwinnamelistboxlistbox<ohwnd The object which carries the hWnd of selected window
��� ��.%H*�U�4��#%�C�oHwnd.BaseClassb�C��:�T�������e�R,��Wrong parameter!!!��B�-���%�C�ac_temp�����F�����B�-���T����C�Z��UOHWNDTHISFORMAC_TEMPTHIS
LSTWINNAMEVALUEHANDLEInit,��1q2��qAbq�qAR1)�
PROCEDURE Init
PARAMETERS ohWnd

IF TYPE("oHwnd.BaseClass") = "C"
	Thisform.oHwnd = ohWnd
ELSE
	WAIT WINDOW "Wrong parameter!!!"
	RETURN .f.
ENDIF

IF USED("ac_temp")
	SELECT ac_temp
ELSE
	RETURN .f.
ENDIF

This.lstwinname.Value = STR(handle)
ENDPROC
�Height = 287
Width = 397
Desktop = .T.
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 3
Caption = "Choose VFP Application/Window"
MaxButton = .F.
MinButton = .F.
WindowType = 1
AlwaysOnTop = .T.
ohwnd = 
Name = "frmselapplication"
form	cstglobalPixelsClass1custom	cstglobal�nsystemtoolbars The system toolbar count
*hidesystemtoolbars Hides all system toolbars
*selapplication Allows to select the different windows applciations to test
*restoresystemtoolbars 
^asystoolbars[12,2] System toolbars array
*nsystemtoolbars = 13
Name = "cstglobal"
customtoolbarVCaption = "Toolbar1"
Height = 19
Left = 0
Top = -1
Width = 33
Name = "testtbar"
	tbraatesttoolbar1�PROCEDURE hidesystemtoolbars
WITH This

	LOCAL iIndex

	DIMENSION .aSysToolbars[.nSystemToolbars,2]

	.aSysToolbars[1,1] = "Form Designer"
	.aSysToolbars[2,1] = "Standard"
	.aSysToolbars[3,1] = "Layout"
	.aSysToolbars[4,1] = "Query Designer"
	.aSysToolbars[5,1] = "View Designer"
	.aSysToolbars[6,1] = "Color Palette"
	.aSysToolbars[7,1] = "Form Controls"
	.aSysToolbars[8,1] = "Database Designer"
	.aSysToolbars[9,1] = "Report Designer"
	.aSysToolbars[10,1] = "Report Controls"
	.aSysToolbars[11,1] = "Print Preview"
	.aSysToolbars[12,1] = "Debugger"
	.aSysToolbars[13,1] = "Command"

	FOR iIndex = 1 TO .nSystemToolbars

	   IF WEXIST(.aSysToolbars[iIndex,1]) AND ;
	      WVISIBLE(.aSysToolbars[iIndex,1]) 
	      .aSysToolbars[iIndex,2] = .t.
	      HIDE WINDOW (.aSysToolbars[iIndex,1])
	   ELSE
   	      .aSysToolbars[iIndex,2] = .f.
	   ENDIF

	ENDFOR

ENDWITH
ENDPROC
PROCEDURE selapplication
LPARAMETERS nExcludeWHnd

IF PCOUNT() < 1
	nExcludeWHnd = 0
ENDIF

LOCAL lc_instName

CREATE CURSOR ac_temp (handle N(20), winname C(50))

DECLARE INTEGER FindWindowEx IN WIN32API ;
        INTEGER hwndParent, ;
        INTEGER hwndChildAfter, ;
        STRING  ipszClass, ;
        STRING  ipszWindow

DECLARE INTEGER GetWindow IN user32.dll  ;
        INTEGER hWnd, ;
        INTEGER wCmd

DECLARE INTEGER GetWindowText IN user32.dll  ;
        INTEGER hWnd, ;
        STRING iTitleStr, ;
        INTEGER nLength

DECLARE INTEGER IsWindowVisible IN user32.dll  ;
        INTEGER hWnd

lc_instname = _screen.caption

ln_aplhand = FindWindowEx(0, ;
             0, ;
             0, ;
             @lc_instname)

*-- get the first window
ln_whnd = GetWindow(ln_aplhand, 0)
cWName = REPL(CHR(0), 100)

DO WHILE ln_whnd <> 0
	cWName = REPL(CHR(0), 100)
	GetWindowText(ln_whnd, @cWName,100)
	
	cWName = LEFT(cWName, AT(CHR(0), cWName) - 1)

	IF NOT EMPTY(cWName) AND ;					&& 
		IsWindowVisible(ln_whnd) <> 0 AND ;		&& omit invisible windows
		cWName <> "Program Manager" AND ;		&& omit prog manager
		NOT INLIST(ln_wHnd, nExcludeWHnd, _SCREEN.HWnd, _VFP.HWnd)	&& omit current form and instance
		INSERT INTO ac_temp VALUES (ln_whnd, cWName)
	ENDIF

	ln_whnd= GetWindow(ln_whnd, 2)
	
ENDDO

LOCATE FOR ATC("fox", winname) # 0 OR ATC("vfp", winname) # 0

IF NOT FOUND()
	GO TOP
ENDIF

ohWnd = NEWOBJECT("custom")
ohWnd.AddProperty("nhWndSelected", 0)

ofrmSelApp = NEWOBJECT('frmselapplication','aautils', "", ohWnd)
ofrmSelApp.Show()

nReturn = ohwnd.nhWndSelected
ohWnd = Null
ofrmSelApp = Null

USE IN ac_temp

RETURN nReturn
ENDPROC
PROCEDURE restoresystemtoolbars
WITH This

	LOCAL iIndex

	FOR iIndex = 1 TO .nSystemToolbars

	   IF .aSysToolbars[iIndex,2] AND ;
	   	  WEXIST(.aSysToolbars[iIndex,1])
	      SHOW WINDOW (.aSysToolbars[iIndex,1])
	   ENDIF

	ENDFOR

ENDWITH
ENDPROC
PROCEDURE Destroy
This.restoresystemtoolbars
ENDPROC
PROCEDURE Init
This.HideSystemToolbars
ENDPROC
	�� �	�	�%)	M��U�
������������������'T���������
Form Designer��"T���������Standard�� T���������Layout��(T���������Query Designer��'T���������
View Designer��'T���������
Color Palette��'T���������
Form Controls��+T���������Database Designer��)T���	������Report Designer��)T���
������Report Controls��'T���������
Print Preview��"T���������Debugger��!T���
������Command�������(������*%�CC�����CC����	����T��������a���,�C��������T��������-�������UTHISIINDEXASYSTOOLBARSNSYSTEMTOOLBARS���%�C�t�
��%�
T���������.h��ac_temp��N�����C��2��'|�FindWindowEx�WIN32API����"|�	GetWindow�
user32.dll��(|�
GetWindowText�
user32.dll���&|�IsWindowVisible�
user32.dll�T���9���T�
�C�������T��C�
����T��CC� �dQ��+�����'�T��CC� �dQ����C���d�
��T��C�CC� ��=��Q%�C��
�
C���	���Program Manager	�C���9��C��
	���r��ac_temp���������T��C������)-�C�fox����C�vfp�����
%�C4
��f�#)��T��C�custom��� ��C�
nhWndSelected�����2T��C�frmselapplication�aautils�����
��C����T������T���T���Q��	B����UNEXCLUDEWHNDLC_INSTNAMEAC_TEMPHANDLEWINNAMEFINDWINDOWEXWIN32API	GETWINDOWUSER32DLL
GETWINDOWTEXTISWINDOWVISIBLECAPTION
LN_APLHANDLN_WHNDCWNAMEHWNDOHWNDADDPROPERTY
OFRMSELAPPSHOWNRETURN
NHWNDSELECTEDw
�����p���������(����l�(%�C����CC����	��h��,�C����������UTHISIINDEXNSYSTEMTOOLBARSASYSTOOLBARS

����UTHISRESTORESYSTEMTOOLBARS

����UTHISHIDESYSTEMTOOLBARShidesystemtoolbars,��selapplication��restoresystemtoolbars��Destroy���Init���1�rRr!�qqq���q!���A��ABB2q�Ar�v$�c��SA"AQ��ARB��QAb"�����2�r��AABB2�2�1��L
$@x
XqIv��K���)�