Sign in to follow this  
Followers 0
TomV

Choose Icon dialog UDF

11 posts in this topic

Hi,

I'm new with DLL's, and this is my first UDF:

The UDF:

; #FUNCTION# ;===============================================================================
;
; Name...........: _ChooseIcon
; Description ...: Let the user choose an icon from a file (*.dll or *.exe)
; Syntax.........: _ChooseIcon($Dll_File = "\shell32.dll")
; Parameters ....: $sDll_File - The DLL or EXE file what contains icons
; Return values .: Success - Returns the icon index
;                  Failure - Returns -1 and Sets @Error:
;                  |0 - No error.
;                  |1 - DLL/EXE file don't exists!
;                  |2 - Can not call the DLL file 'shell32.dll'
;                  |3 - Can not get DLL struct data!
; Author ........: Tom Valk
; Modified.......:
; Remarks .......:
; Related .......: _ChooseColor, _ChooseFont
; Link ..........;
; Example .......; Yes
;
; ;==========================================================================================
Func _ChooseIcon($sDll_File = "\shell32.dll")
    $sDll_File = @SystemDir & $sDll_File
    If Not FileExists($sDll_File) Then
        SetError(1)
        Return -1
    EndIf
    Local $sscInt = DllStructCreate("int")
    Local $sscString = DllStructCreate("wchar[260]")
    Local $sstructsize = DllStructGetSize($sscString) / 2
    DllStructSetData($sscString, 1, $sDll_File)
    DllCall("shell32.dll", "none", 62, "hwnd", 0, "ptr", DllStructGetPtr($sscString), "int", $sstructsize, "ptr", DllStructGetPtr($sscInt))
    If @error Then
        SetError(2)
        Return -1
    EndIf
    Local $nIconIndex = DllStructGetData($sscInt, 1)
    If @error <> 0 Then
        SetError(3)
        Return -1
    EndIf
    Return $nIconIndex
EndFunc   ;==>_ChooseIcon

An example:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <IconChoose.au3>
Global $iIconIndex

; Example:

$iIconIndex = _ChooseIcon("\shell32.dll") ; Loads the DLL file: [@SystemDir]\shell32.dll

MsgBox(64, "_ChooseIcon Example", "Icon ID: " & $iIconIndex)

And if you like, you can add it to the Misc.au3 include file

Regards, Tom V


[font="Comic Sans MS"][size="4"]My UDF's:[/size]1. _ChooseIconAnd this is just the beginning[/font]

Share this post


Link to post
Share on other sites



Has been done already, and with few more options ;) (including proper error checking, wich is not the case in this function).

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites

As far as first UDF's go, you really came out swinging. Nicely documented, clean code, functional script. You're definitely heading down the right track man, keep it up!

Share this post


Link to post
Share on other sites

Nice.

Just one note:

Instead of

next time use

You are wrong Zedna.

This function is better to call by ordinal. It's exported by name in version 6.0 or later of shell32.dll.

This way it's supported for all supporting systems for AutoIt.


♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

You are wrong Zedna.

This function is better to call by ordinal. It's exported by name in version 6.0 or later of shell32.dll.

This way it's supported for all supporting systems for AutoIt.

Oh really? That is something to know. Where may you find the ordinal values?

Share this post


Link to post
Share on other sites

Oh really? That is something to know. Where may you find the ordinal values?

I'm using this nice script.

In fact that is very old version. The one I run is much faster. I should update that post.

... No, no I won't... yet.


♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

You are wrong Zedna.

This function is better to call by ordinal. It's exported by name in version 6.0 or later of shell32.dll.

This way it's supported for all supporting systems for AutoIt.

Interesting information.

As far as I know calling functions by their number is faster.

but on different OS that number (maybe) may change.

So I expect it's better to use name instead of number.

It's also better for code readability.

As about support for Shell version < 6.0 I think it's not much problem because Autoit dropped support for older Win9x OS systems.

Share this post


Link to post
Share on other sites

Interesting information.

As far as I know calling functions by their number is faster.

but on different OS that number (maybe) may change.

So I expect it's better to use name instead of number.

It's also better for code readability.

As about support for Shell version < 6.0 I think it's not much problem because Autoit dropped support for older Win9x OS systems.

For readability I suppose a comment explaining would be enough.

I believe XP (No SP) is below requirements.


♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0