Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/winapi/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/winapi/getver.sct
'�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12formformForm1�DataSession = 2
Height = 305
Width = 394
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 3
Caption = "Get Version Information"
MaxButton = .F.
HelpContextID = 198
Name = "Form1"
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
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)

THISFORM.cmdRefresh.click
ENDPROC
�� ��z-%S5�U9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP
�����UTHISC_SOLUTIONS1SAVEHELP�%�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�����
�����UTHISSETALLTHISFORM
CMDREFRESHCLICK
Deactivate,��Activate���Init���1Q�A2�2d	��A��1d���	)�libsethere
shapeshapeShape3Form1bTop = 13
Left = 11
Height = 58
Width = 373
BackStyle = 0
SpecialEffect = 0
Name = "Shape3"
textboxtextboxtxtfilenameForm1oFontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 35
Top = 80
Width = 324
Name = "txtfilename"
7PROCEDURE Init
This.Value = _VFP.FullName

ENDPROC
�� ��k�%\pj�UT����C���UTHISVALUEFULLNAMEInit,��1!2,)�
commandbutton
commandbuttonCommand1Form1�AutoSize = .F.
Top = 80
Left = 360
Height = 22
Width = 23
FontName = "MS Sans Serif"
FontSize = 8
Caption = "..."
Name = "Command1"
�PROCEDURE Click
#DEFINE FILEVER_LOC	'File for version information'
ThisForm.txtfilename.value = getfile('exe,dll,fll',FILEVER_LOC)

ENDPROC
�� ���f%����UB?T����C�exe,dll,fll�File for version information���UTHISFORMTXTFILENAMEVALUEClick,��1�2�)�labellabelLabel1Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "File:"
Height = 15
Left = 12
Top = 84
Width = 21
Name = "Label1"

commandbutton
commandbutton
cmdrefreshForm1�Top = 273
Left = 226
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Refresh"
Name = "cmdrefresh"
PROCEDURE Click
#DEFINE FILENOTFOUND_LOC			"File or version resource not found: "
#DEFINE FILEVER_COMMENT_LOC 		"Comments: "
#DEFINE FILEVER_COMPANY_LOC 		"Company Name: "
#DEFINE FILEVER_FILEDESC_LOC 		"File Description: "
#DEFINE FILEVER_FILEVER_LOC 		"File Version: "
#DEFINE FILEVER_INTERNAL_LOC		"Internal Name: "
#DEFINE FILEVER_COPYRIGHT_LOC	 	"Legal Copyright: "
#DEFINE FILEVER_TRADMARK_LOC		"Legal Trademarks: "
#DEFINE FILEVER_FILENAME_LOC	 	"Original Filename: "
#DEFINE FILEVER_PRIVATE_LOC 		"Private Build: "
#DEFINE FILEVER_PRODUCTNAME_LOC		"Product Name: "
#DEFINE FILEVER_PRODUCTVER_LOC	 	"Product Version: "
#DEFINE FILEVER_SPECIAL_LOC			"Special Build: "
#DEFINE FILEVER_LANGUAGE_LOC		"Language: "
#DEFINE FILEVER_NOVERSION_LOC		"No version information found."
#DEFINE MSG_FILEVERSION_LOC			"Version information for: "

thestring = ""
IF FILE(thisform.txtfilename.value)
	DIMENSION averarray(1)
	ntheval = aGetFileVersion(averarray,alltrim(thisform.txtfilename.value))
	IF ntheval # 0
		IF NOT EMPTY(averarray(1))
			thestring =  FILEVER_COMMENT_LOC + ALLT(averarray(1))
		ENDIF
		IF NOT EMPTY(averarray(2))
			thestring = thestring+chr(10)+FILEVER_COMPANY_LOC + ALLT(averarray(2))
		ENDIF
		IF NOT EMPTY(averarray(3))
			thestring =  thestring+chr(10)+FILEVER_FILEDESC_LOC + ALLT(averarray(3))
		ENDIF
		IF NOT EMPTY(averarray(4))
			thestring = thestring+chr(10)+FILEVER_FILEVER_LOC + ALLT(averarray(4))
		ENDIF
		IF NOT EMPTY(averarray(5))
			thestring = thestring+chr(10)+FILEVER_INTERNAL_LOC+ ALLT(averarray(5))
		ENDIF
		IF NOT EMPTY(averarray(6))
			thestring = thestring+chr(10)+FILEVER_COPYRIGHT_LOC+ ALLT(averarray(6))
		ENDIF
		IF NOT EMPTY(averarray(7))
			thestring = thestring+chr(10)+FILEVER_TRADMARK_LOC+ ALLT(averarray(7))
		ENDIF
		IF NOT EMPTY(averarray(8))
			thestring = thestring+chr(10)+FILEVER_FILENAME_LOC+ ALLT(averarray(8))
		ENDIF
		IF NOT EMPTY(averarray(9))
			thestring = thestring+chr(10)+FILEVER_PRIVATE_LOC + ALLT(averarray(9))
		ENDIF
		IF NOT EMPTY(averarray(10))
			thestring = thestring+chr(10)+FILEVER_PRODUCTNAME_LOC+ ALLT(averarray(10))
		ENDIF
		IF NOT EMPTY(averarray(11))
			thestring = thestring+chr(10)+FILEVER_PRODUCTVER_LOC+ ALLT(averarray(11))
		ENDIF
		IF NOT EMPTY(averarray(12))
			thestring = thestring+chr(10)+FILEVER_SPECIAL_LOC+ ALLT(averarray(12))
		ENDIF
		IF NOT EMPTY(averarray(14))
			thestring = thestring+chr(10)+FILEVER_LANGUAGE_LOC+ ALLT(averarray(14))
		ENDIF
		IF EMPTY(thestring)
			thestring =  FILEVER_NOVERSION_LOC+allt(thisform.txtfilename.value)
		ENDIF
	ELSE
		thestring =  FILEVER_NOVERSION_LOC+allt(thisform.txtfilename.value)
	ENDIF
ELSE
	messagebox(FILENOTFOUND_LOC+thisform.txtfilename.value)
ENDIF
ThisForm.editverinfo.value = ALLTRIM(thestring)
ThisForm.Refresh

ENDPROC
W�� >>h�%r�:��U�
T�����%�C���0����
�����T��C��C������%�����E�%�CC���
����!T���
Comments: CC������%�CC���
����/T���C�
 �Company Name: CC������%�CC���
��$�3T���C�
 �File Description: CC������%�CC���
��k�/T���C�
 �File Version: CC������%�CC���
����0T���C�
 �Internal Name: CC������%�CC���
����2T���C�
 �Legal Copyright: CC������%�CC���
��H�3T���C�
 �Legal Trademarks: CC������%�CC���
����4T���C�
 �Original Filename: CC������%�CC�	��
����0T���C�
 �Private Build: CC�	�����%�CC�
��
��#�/T���C�
 �Product Name: CC�
�����%�CC���
��m�2T���C�
 �Product Version: CC������%�CC���
����0T���C�
 �Special Build: CC������%�CC���
����+T���C�
 �
Language: CC������%�C����A�6T���No version information found.C����������6T���No version information found.C����������:��C�$File or version resource not found: ����x���T����C����
����U	THESTRINGTHISFORMTXTFILENAMEVALUE	AVERARRAYNTHEVALEDITVERINFOREFRESHClick,��1�Q��AAA�AA1AA�AAAA!AA1AAAAAAA�AA!AAAA�A�aA�aA��AQ�2)>editboxeditboxEditverinfoForm1qFontName = "MS Sans Serif"
FontSize = 8
Height = 139
Left = 10
Top = 127
Width = 373
Name = "Editverinfo"
behindscenes..\solution.vcx
commandbutton
Behindscenes1Form1<Top = 273
Left = 13
TabIndex = 2
Name = "Behindscenes1"
cmdclose..\solution.vcx
commandbutton	Cmdclose2Form19Top = 273
Left = 311
TabIndex = 5
Name = "Cmdclose2"
c_solutions..\solution.vcxcustomC_solutions1Form1FTop = 279
Left = 45
Height = 18
Width = 25
Name = "C_solutions1"
labellabelLabel2Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Version Information:"
Height = 15
Left = 13
Top = 112
Width = 95
Name = "Label2"
labellabelLabel7Form1OFontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "You can add file version information to your EXE and DLL files during the build process with the aGetFileVersion() function.  Select a file by clicking the dialog button."
Height = 43
Left = 23
Top = 24
Width = 349
TabIndex = 0
Name = "Label7"
labellabelLabel8Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 21
Top = 8
Width = 62
TabIndex = 0
Name = "Label8"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Height = 305
Width = 394
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 3
Caption = "Get Version Information"
MaxButton = .F.
HelpContextID = 1231584
Name = "Form1"