Si deseas asociar un programa a una extensión especifica debes escribir en el registro del sistema y guardar las entradas respectivas....para eso vamos a utiliza WSH (Windows Script Hos)
DO AsociarArchivo WITH
".aaa", "MiPrograma", "C:RutaMiExecutable.exe"
PROCEDURE AsociarArchivo (sExtension, sFileDescription, sExecutable)
LOCAL sErrorHandler
sErrorHandler = ON("error")
ON ERROR
oShell = CreateObject("wscript.shell")
oShell.Regwrite ("HKCR" + sExtension + "", sFileDescription)
oShell.Regwrite ("HKCR" + sFileDescription + "", "MY PROJECT")
oShell.Regwrite ("HKCR" + sFileDescription + "DefaultIcon",
sExecutable)
oShell.Regwrite ("HKCR" + sFileDescription + "shellopencommand",
sExecutable + " %1")
oShell.Regdelete ("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerFileExts"
+ sExtension + "Application")
oShell.Regwrite ("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerFileExts"+sExtension
+ "Application", sExecutable)
oShell.Regdelete ("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerFileExts"
+ sExtension + "OpenWithList")
oShell.Regwrite("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerFileExts"+sExtension+"OpenWithLista",
sExecutable)
ON ERROR &sErrorHandler
ENDPROC
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
