اضافه کردن ایتم های مختلف به منوی استارت ویندوز 7

[n1ma]

درود
با تشکر از دوستان عزیز
و اینجاست که نیما و AutoIt خود را نشان می دهند!
فایل زیر، کار را برای تان انجام می دهد! (اگر هم کار نکرد نیاین نگین، ابروم میره!)

خدمت دوستان ( ضمیمه شد )

کد استفاده شده :

$UserSID = _GetSID()
Func _GetSID($sComputerName = @ComputerName, $sUsername = @UserName)
    Local $oWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!//" & $sComputerName & "/root/cimv2")
    Local $oColItems = $oWMIService.ExecQuery("Select * From Win32_UserAccount")
    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            If $sUsername = $oObjectItem.Name Then
                Return $oObjectItem.SID
            EndIf
        Next
    EndIf
    Return SetError(1, 0, 0)
 EndFunc
$var= "HKEY_USERS" & "\" & $UserSID & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
RegWrite($var, "Start_ShowRun", "REG_DWORD", "1")
ProcessClose("explorer.exe")
WinMinimizeAll()

روز خوش