用au3制作快捷方式菜单！

用au3制作快捷方式菜单！

网管TOP论坛脚本区招募斑竹
http://admintop.com/thread.php?fid-50.html
 
制作快捷方式菜单！

记得ban_r过去做过类似的菜单，做得非常好，但没有脚本！今天我做了个实验脚本，主要是用桌面的快捷方式来做菜单！做得不是十分理想！请朋友们提出意见和建设！也算是抛砖引玉！

#include <GuiConstants.au3>
#include <Array.au3>
Dim $FGS_cut[1]
Dim $my_lnk[10]
GUICreate(" 快捷方式图标", 500,400,400 ,200)
;;;======下面的变量可变为INI文件的数据==========
$my_lnk[1] = @DesktopDir&"\腾讯QQ.lnk"
$my_lnk[2] = @DesktopDir&"\木马杀客.lnk"
$my_lnk[3] = @DesktopDir&"\Windows优化大师.lnk"
$my_lnk[4] = @DesktopDir&"\QQ音乐.lnk"
$my_lnk[5] = @DesktopDir&"\QQ游戏.lnk"
$my_lnk[6] = @DesktopDir&"\超级解霸3000.lnk"
$my_lnk[7] = @DesktopDir&"\Totalcmd.lnk"
$my_lnk[8] = @DesktopDir&"\FastAIT.exe.lnk"
;;;==============================================
$x=45
$y=30  
For $i = 1 To 6
 $FGS_cut = FileGetShortcut($my_lnk[$i])
 GUICtrlCreateIcon($FGS_cut[0], 0,$x,$y)
 GUICtrlSetCursor(-1, 0)
 For $ii = 1 To 7
  $i=$i+1
  if $ii*$x < 185 Then
  $FGS_cut = FileGetShortcut($my_lnk[$i])
  GUICtrlCreateIcon($FGS_cut[0], 0,50+$ii*$x,$y)
  GUICtrlSetCursor(-1, 0)
  Else
   $FGS_cut = FileGetShortcut($my_lnk[$i])
      GUICtrlCreateIcon($FGS_cut[0], 0,($i-5)*$x,$y+50)
   GUICtrlSetCursor(-1, 0)
  EndIf
  
 Next
 $y=$y+35
Next
GUISetState () 
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
 
 $msg = GUIGetMsg()
 
 if $msg >2 Then 
  $FGS_cut = FileGetShortcut($my_lnk[$msg-2])
  Run($FGS_cut[0])
 EndIf
Wend
讨论一：在鼠标指向快捷方式图标时，在菜单内同时显示图标的文字说明！
讨论二：如果变换形式，用GUICtrlCreateCheckbox等选文字说明，在菜单内同时显示图标！
　　希望朋友们参与讨论交流！