#include <File.au3>

_Main()

Func _Main()
	Local $from, $to, $path, $sRes
	Local $Wow64 = ""
	If @AutoItX64 Then $Wow64 = "\Wow6432Node"
	Local $sFile = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE" & $Wow64 & "\AutoIt v3\AutoIt", "InstallDir")

	$from = @ScriptDir
	$sRes &= "Путь источник: " & $from & @CRLF
	$to = $sFile & "\autoit3.exe"
	$sRes &= "Путь назначения: " & $to & @CRLF
	$path = _PathGetRelative($from, $to)
	If @error Then
		$sRes &= "Ошибка: " & @error & @CRLF
		$sRes &= "Путь: " & $path & @CRLF
	Else
		$sRes &= "Относительный путь: " & $path & @CRLF
		$sRes &= "Полный путь: " & _PathFull($from & "\" & $path) & @CRLF
	EndIf
	MsgBox(0, 'Сообщение', $sRes)
EndFunc