#include <GUIConstantsEx.au3>

GUICreate("FileCreateShortcut", 300, 200)

Local $idFileMenu = GUICtrlCreateMenu("Файл")
Local $idFileItem = GUICtrlCreateMenuItem("Создать ярлык", $idFileMenu)

GUISetState(@SW_SHOW)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $idFileItem
Local $sFileOpenDialog = FileOpenDialog("FileOpenDialog", @DesktopDir & "\", "All files (*.exe*)")
FileCreateShortcut($sFileOpenDialog,@DesktopDir &"\hello.lnk")
EndSwitch
WEnd