Search the Community

I was looking for a way to use AutoIt to register my EXE as an AutoPlay when I stick a DVD or BluRay in. I searched a bit but couldn't find anything, so I decided to write one. I'm posting it in in case ( a ) it can be improved or generalized and ( b ) someone else might like to use it. $script = StringSplit(@ScriptName,'.') $list = ProcessList(@ScriptName) If MsgBox(1,$script[1],'Register as AutoPlay Handler?') <> 1 Then Exit $keyname = 'HKEY_CURRENT_USER\Software\Classes\'&$script[1]&'.exe_autoplay_handler\shell\'&$script[1]&'_verb\command' RegWrite($keyname,'', 'REG_SZ', '"' & @ScriptFullPath & '" "%1"') $keyname = 'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\AutoplayHandlers\Handlers\'&$script[1]&'_using_'&$script[1]&'.exe' RegWrite($keyname, 'Action', 'REG_SZ', $script[1]) RegWrite($keyname, 'DefaultIcon', 'REG_SZ', @ScriptFullPath) RegWrite($keyname, 'InvokeProgID', 'REG_SZ', $script[1]&'.exe_autoplay_handler') RegWrite($keyname, 'InvokeVerb', 'REG_SZ', $script[1]&'_verb') RegWrite($keyname, 'Provider', 'REG_SZ', $script[1]&'.exe') $keyname = 'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\AutoplayHandlers\EventHandlers\' RegWrite($keyname & 'PlayDVDMovieOnArrival', $script[1]&'_using_'&$script[1]&'.exe', 'REG_SZ', '') RegWrite($keyname & 'PlayBluRayOnArrival', $script[1]&'_using_'&$script[1]&'.exe', 'REG_SZ', '') If MsgBox(1,$script[1],'Set as Default for DVDs and BluRay?') <> 1 Then Exit $keyname = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlersDefaultSelection\' RegWrite($keyname & 'PlayDVDMovieOnArrival', $script[1]&'_using_'&$script[1]&'.exe', 'REG_SZ', '') RegWrite($keyname & 'PlayBluRayOnArrival', $script[1]&'_using_'&$script[1]&'.exe', 'REG_SZ', '')