AutoHotkey Community

 icon="c:\Art\Icons\icons\editcopy.ico"
 if CmnDlg_ChooseIcon(icon, idx := 4)
       msgbox Icon:   %icon%`nIndex:  %idx%

;----------------------------------------------------------------------------------------------
; Function:     Find / Replace
;               Display standard Find and Replace dialog boxes
;
; Parameters:
;               hGui    - Handle to parents HWND
;               lbl     - Label used for communication with dialog. CmnDlg_Event, CmnDlg_FindWhat and CmnDlg_Flags hold the dialog data
;               flags   - Creation flags
;               deff    - Default text to be displayed at the start of the dialog box in find edit box
;               defr    - Default text to be displayed at the start of the dialog box in replace edit box
;
; Flags:        String containing list of creation flags. You can use "-" infronto of the flag to hide that GUI field
;               d - down radio button selected in Find dialog
;               w - whole word selected
;               c - match case selected
;
; Globals:      Dialog box is not modal, so it communicates with the script using 4 global variables:
;                   Event    - close, find, replace, replace_all
;                   Flags    - string contaning flags about user selection; each letter means user has selected that particular GUI element.
;                   FindWhat - user find text
;                ReplaceWith - user replace text
;   
; Returns:     
;               Handle of the dialog or 0 if dialog can't be created. Can also return "Invalid Label" if lbl is not valid.
;
CmnDlg_Find( hGui, lbl, flags="d", deff="")
CmnDlg_Replace( hGui, lbl, flags="", deff="", defr="")
 

#persistent
 Gui, +lastfound
 hDlg := CmnDlg_Find( WinExist(), "OnFind")
return

OnFind:
     Msgbox % CmnDlg_FindWhat
     WinClose, ahk_id %hDlg%
return

;----------------------------------------------------------------------------------------------
; Function:  Open / Save
;            Display standard Open / Save dialog
;
; Parameters:
;            hGui            - Parent's handle, positive number by default 0 (influences dialog position)
;            Title          - Dialog title
;            Filter          - Specify filter as with FileSelectFile. Seperate multiple filters with "|"
;            DefultFilter    - Index of default filter, by default 1
;            Root          - Specifies startup directory and initial content of "File Name" edit.
;                        Directory must have trailing "\".
;            DefaulltExt     - Extension to append when none given
;            Flags           - White space separated list of flags, by default "FILEMUSTEXIST HIDEREADONLY ENABLEXPLORER"
; 
;  Flags:
;         ALLOWMULTISELECT   - Specifies that the File Name list box allows multiple selections ...
;         CREATEPROMPT      - If the user specifies a file that does not exist, this flag caus ...
;         DONTADDTORECENT      - Prevents the system from adding a link to the selected file in t ...
;         EXTENSIONDIFFERENT   - Specifies that the user typed a file name extension that differs ...
;         FILEMUSTEXIST      - Specifies that the user can type only names of existing files in ...
;         FORCESHOWHIDDEN      - Forces the showing of system and hidden files, thus overriding t ...
;         HIDEREADONLY      - Hides the Read Only check box.                           ...
;         NOCHANGEDIR         - Restores the current directory to its original value if the user ...
;         NODEREFERENCELINKS   - Directs the dialog box to return the path and file name of the s ...
;         NOVALIDATE         - Specifies that the common dialog boxes allow invalid characters  ...
;         OVERWRITEPROMPT      - Causes the Save As dialog box to generate a message box if the s ...
;         PATHMUSTEXIST      - Specifies that the user can type only valid paths and file names ...
;         READONLY         - Causes the Read Only check box to be selected initially when the ...
;         SHOWHELP         - Causes the dialog box to display the Help button. The hGui recei ...
;         NOREADONLYRETURN   - Specifies that the returned file does not have the Read Only che ...
;         NOTESTFILECREATE   - Specifies that the file is not created before the dialog box is  ...
;
;  Returns:
;            Selected FileName or Emtpy when cancelled. If more then one file is selected they are separated by new line character.
;
;  Example:
;         CmnDlg_Open(0, "", "Text Files (*.txt)", "", "c:\Windows\setuplog", ".ahk")
;      

CmnDlg_Icon(ByRef sIcon, ByRef idx, hGui=0)
{                             
   VarSetCapacity(wIcon, 1025, 0)
   If !DllCall("MultiByteToWideChar", "UInt", 0, "UInt", 0, "Str", sIcon, "Int", StrLen(sIcon), "UInt", &wIcon, "Int", 1025)
   Return, 0
      
   idx--
   If !DllCall(DllCall("GetProcAddress", "Uint", DllCall("LoadLibrary", "Str", "shell32.dll"), "Uint", 62), "UInt", hGui, "UInt", &wIcon, "UInt", 1025, "Intp", idx)
   Return, 0
   idx++

   Len := DllCall("lstrlenW", "UInt", &wIcon)
   VarSetCapacity(sIcon, Len, 0)
   Return, DllCall("WideCharToMultiByte", "UInt", 0, "UInt", 0, "UInt", &wIcon, "Int", Len, "Str", sIcon, "Int", Len, "UInt", 0, "UInt", 0) ? 1 : 0
}