DefaultIcon in a file asociated with my program

[MaRiØ]

I´ve created a file association to my app, when I click the file, my
app launchs OK.But the file don´t show the ICON that I push in Registry
What´s the problem??

sKeyName = "CIMDFile"
sKeyValue = "bla bla bla"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
' fILE extension sKeyName = ".cim"
sKeyValue = "CIMDFile"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
' executable path
sKeyName = "CIMDFile"
sKeyValue = App.Path & "\" & "CIMDApp.EXE ""%1""" 'parametters
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, _
sKeyValue, MAX_PATH)
' icon
sKeyValue = App.Path & "\Ani\CIMDFile.ICO"
ret& = RegSetValue&(lphKey&, "DefaultIcon", REG_SZ, _
sKeyValue, MAX_PATH)

[Dean Earley]

You have created a string value called DefaultIcon. You need to create a Key and set the default string value

--
Dean Earley (dean.earley@icode.co.uk)
Assistant Developer

iCode Systems
"MaRiØ" <mgonzalez@grupocimd.com> wrote in message news:3bcfdd97$1@news.devx.com...
>
> I´ve created a file association to my app, when I click the file, my
> app launchs OK.But the file don´t show the ICON that I push in Registry
> What´s the problem??
>
> sKeyName = "CIMDFile"
> sKeyValue = "bla bla bla"
> ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
> ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
> ' fILE extension sKeyName = ".cim"
> sKeyValue = "CIMDFile"
> ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
> ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
> ' executable path
> sKeyName = "CIMDFile"
> sKeyValue = App.Path & "\" & "CIMDApp.EXE ""%1""" 'parametters
> ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
> ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, _
> sKeyValue, MAX_PATH)
> ' icon
> sKeyValue = App.Path & "\Ani\CIMDFile.ICO"
> ret& = RegSetValue&(lphKey&, "DefaultIcon", REG_SZ, _
> sKeyValue, MAX_PATH)

[Dean Earley]

You have created a string value called DefaultIcon. You need to create a Key and set the default string value

--
Dean Earley (dean.earley@icode.co.uk)
Assistant Developer

iCode Systems
"MaRiØ" <mgonzalez@grupocimd.com> wrote in message news:3bcfdd97$1@news.devx.com...
>
> I´ve created a file association to my app, when I click the file, my
> app launchs OK.But the file don´t show the ICON that I push in Registry
> What´s the problem??
>
> sKeyName = "CIMDFile"
> sKeyValue = "bla bla bla"
> ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
> ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
> ' fILE extension sKeyName = ".cim"
> sKeyValue = "CIMDFile"
> ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
> ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
> ' executable path
> sKeyName = "CIMDFile"
> sKeyValue = App.Path & "\" & "CIMDApp.EXE ""%1""" 'parametters
> ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
> ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, _
> sKeyValue, MAX_PATH)
> ' icon
> sKeyValue = App.Path & "\Ani\CIMDFile.ICO"
> ret& = RegSetValue&(lphKey&, "DefaultIcon", REG_SZ, _
> sKeyValue, MAX_PATH)