#AutoIt3Wrapper_Version=B
#AutoIt3Wrapper_Run_Au3Stripper=Y
#Au3Stripper_Parameters=/MO
#include <File.au3>

Global Const $ES_MULTILINE = 4
Global Const $ES_AUTOVSCROLL = 64
Global Const $ES_WANTRETURN = 4096
Global Const $ECM_FIRST = 0X1500
Global Const $EM_CHARFROMPOS = 0xD7
Global Const $EM_GETLINECOUNT = 0xBA
Global Const $EM_HIDEBALLOONTIP = ($ECM_FIRST + 4)
Global Const $EM_LIMITTEXT = 0xC5
Global Const $EM_LINESCROLL = 0xB6
Global Const $EM_REPLACESEL = 0xC2
Global Const $EM_SCROLL = 0xB5
Global Const $EM_SCROLLCARET = 0x00B7
Global Const $EM_SETLIMITTEXT = $EM_LIMITTEXT
Global Const $EM_SETREADONLY = 0xCF
Global Const $EM_SETSEL = 0xB1
Global Const $EM_SHOWBALLOONTIP = ($ECM_FIRST + 3)
Global Const $GUI_SS_DEFAULT_EDIT = 0x003010c0
Global Const $ES_READONLY = 2048
Global Const $WS_BORDER = 0x00800000
Global Const $WS_EX_CLIENTEDGE = 0x00000200
Global Const $WS_EX_STATICEDGE = 0x00020000
Global Const $GUI_EVENT_CLOSE = -3


_Test()


Func _Test()
	Local $sText = ''
	$sText &= _Diagnostic('================== @ScriptFullPath:')
	$sText &= _Diagnostic(@ScriptFullPath)
	$sText &= _Diagnostic('================== Au3.3.10.2')
	Local $sAutoIt_InstallDir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE" & ((@OSArch = 'X64') ? "\Wow6432Node" : "") & "\AutoIt v3\AutoIt", "InstallDir")
	Local $aIncludeList = _FileListToArray($sAutoIt_InstallDir & '\Include\', '*.au3', $FLTA_FILES, True)
	For $iFile = 1 To $aIncludeList[0]
		$sText &= _Diagnostic($aIncludeList[$iFile])
	Next

	$sText &= _Diagnostic('================== Au3.3.13.20')
	Local $sAutoIt_InstallDir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE" & ((@OSArch = 'X64') ? "\Wow6432Node" : "") & "\AutoIt v3\AutoIt", "InstallDir")
	Local $aIncludeList = _FileListToArray($sAutoIt_InstallDir & '\Beta\Include\', '*.au3', $FLTA_FILES, True)
	For $iFile = 1 To $aIncludeList[0]
		$sText &= _Diagnostic($aIncludeList[$iFile])
	Next
	$sText &= _Diagnostic('==================')
	Local $iEncoding = FileGetEncoding(@ScriptFullPath) ; Retrieve the file encoding of the current script.
	_Attention("Nie można uruchamiać programu wielokrotnie w tym samym czasie" & @CRLF & @CRLF & $sText)
EndFunc   ;==>_Test

Func _Diagnostic($sFileFullPath_or_CommentString)
	If FileExists($sFileFullPath_or_CommentString) Then
		Return FileGetEncoding($sFileFullPath_or_CommentString) & '  ' & $sFileFullPath_or_CommentString & @CRLF
	Else
		Return $sFileFullPath_or_CommentString & @CRLF
	EndIf
EndFunc   ;==>_Diagnostic



Func _Attention($s_text)
	Local $hGUI_Attention = GUICreate('Attention', 574, 532, 286, 134, -1, -1, 0)
	Local $idEdit = GUICtrlCreateEdit($s_text , 0, 0, 569, 497, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY, $WS_BORDER), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
	GUICtrlSetLimit($idEdit, 64 * 1024)
	GUICtrlSetFont($idEdit, 10)
	GUISetState(@SW_SHOW)
	Local $nMsg
	While 1
		Sleep(10)
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				ExitLoop
		EndSwitch
	WEnd
	GUIDelete($hGUI_Attention)
EndFunc   ;==>_Attention