AutoHotkey Community

#Include %A_ScriptDir%\Script.ahk ;works fine :)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; THIS SCRIPT REQUIRES AutoHotkeyU ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#NoEnv

; Sample text here
text =
(
This is just a demo that shows off AutoHotkeyU and the Vista/7 TaskDialogs.

There's not much at the moment but this will support more controls!

Hello World in Japanese: こんにちは、世界！
Hello World in Chinese: 你好，世界！
Hello World in Greek: Γεια σου, κόσμος!
Hello World in Russian: Здравствуй, Мир!
Hello World in Arabic: مرحبا ، العالم!
)

Loop{
   var := TaskDialog("AutoHotkeyU TaskDialog demo", "Hello World", text, "ok|cancel|yes|no|retry|close")
   MsgBox You clicked on %var%
   if(var = "Cancel" or var = "Close")
      ExitApp
}

; TaskDialog function
TaskDialog(title, instruction, text, buttons=0x01, icon=0){
   /* http://msdn.microsoft.com/en-us/library/bb760540(VS.85).aspx
   HRESULT TaskDialog(     
      HWND hWndParent,
      HINSTANCE hInstance,
      PCWSTR pszWindowTitle,
      PCWSTR pszMainInstruction,
      PCWSTR pszContent,
      TASKDIALOG_COMMON_BUTTON_FLAGS dwCommonButtons,
      PCWSTR pszIcon,
      int *pnButton
   );
   */

   if A_OSVersion not in WIN_VISTA,WIN_7 ; WIN_7 put in for possible future implementation in AutoHotkey
   {
      MsgBox, 16, %A_ScriptName%, This script requires Windows Vista or later.
      OnExit
      ExitApp
   }

   If buttons is not integer
      buttons := TaskDialog_ParseButtons(buttons)
   If icon is not integer
      icon := TaskDialog_ParseIcon(icon)
   ErrorLevel := DllCall("comctl32\TaskDialog", "uint", 0, "uint", 0, "str", title, "str", instruction, "str", text, "uint", buttons, "uint", icon, "int*", ret)
   Return TaskDialog_GetReturnString(ret)
}

; Internal TaskDialog function
TaskDialog_ParseButtons(but){
   var := 0
   StringLower, but, but
   Loop, Parse, but, |, %A_Space%
   {
      if A_LoopField = ok
         var |= 0x01
      else if A_LoopField = yes
         var |= 0x02
      else if A_LoopField = no
         var |= 0x04
      else if A_LoopField = cancel
         var |= 0x08
      else if A_LoopField = retry
         var |= 0x10
      else if A_LoopField = close
         var |= 0x20
   }
   return var
}

; Internal TaskDialog function
TaskDialog_ParseIcon(ico){
   StringLower, ico, ico
   ico = %ico%
   if ico =
      return 0
   else if(ico = "info" or ico = "information")
      return 0xFFFF - 2
   else if ico = warning
      return 0xFFFF
   else if(ico = "stop" or ico = "error")
      return 0xFFFF - 1
   else if ico = sec_warning
      return 0xFFFF - 5
   else if ico = sec_error
      return 0xFFFF - 6
   else if ico = sec_success
      return 0xFFFF - 7
   else if ico = sec_shield
      return 0xFFFF - 3
   else if ico = sec_shield_blue
      return 0xFFFF - 4
   else if(ico = "sec_shield_gray" or ico = "sec_shield_grey")
      return 0xFFFF - 8
   else
      return 0
}

; Internal TaskDialog function
TaskDialog_GetReturnString(but){
   static IDOK = 1
   static IDYES = 6
   static IDNO = 7
   static IDCANCEL = 2
   static IDRETRY = 4
   static IDCLOSE = 8
   
   if(but = IDOK)
      return "OK"
   else if(but = IDYES)
      return "Yes"
   else if(but = IDNO)
      return "No"
   else if(but = IDCANCEL)
      return "Cancel"
   else if(but = IDRETRY)
      return "Retry"
   else if(but = IDCLOSE)
      return "Close"
   else
      return ""
}

Hello World in Japanese: こんにちは、世界！
Hello World in Chinese: 你好，世界！
Hello World in Greek: Γεια σου, κόσμος!
Hello World in Russian: Здравствуй, Мир!
Hello World in Arabic: مرحبا ، العالم!