#include <WinAPI.au3>
Local $sPath = FileOpenDialog('Выберите файл', @MyDocumentsDir, "Все (*.*)", 1 + 2)
If Not @error Then
	MsgBox(0, "Получает исполняемый файл", "Выбран файл:" & @LF & $sPath & @LF & @LF & _
			"Ассоциированное приложение (исполняемый файл):" & @LF & _WinAPI_FindExecutable($sPath))
EndIf