Can't thank you enough :)
Not only works like a charm, it is much more simple.
I wonder why this issue (file types in Windows) is almost ignored in the
RB documentation... or am I mistaken??
Thanks a lot again!
Best regards
Mario Buchichio escribió:
I'll give it a shot.
Thanks a lot!!
Brian Rathbone escribió:
You could try something more like this: (I tested this with 5.5.5 on
XP Pro)
dim theAppName as String
dim theExtension as string
dim exten as Registryitem
exten = new RegistryItem( "HKEY_CLASSES_ROOT" )
theExtension = "aaa"
theExtension = "." + theExtension
theAppName = nthField( App.ExecutableFile.Name, ".", 1 )
///add extension
exten = new RegistryItem( "HKEY_CLASSES_ROOT\" + theExtension)
exten.defaultValue = theAppName
///add handler
exten = new RegistryItem( "HKEY_CLASSES_ROOT\" + theAppName +
"\Shell\Open\Command" )
exten.DefaultValue = App.ExecutableFile.ShellPath + " ""%1"""
hth,
Brian
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
