Jump to content

TheDcoder

Active Members
  • Posts

    7,103
  • Joined

  • Days Won

    88

Everything posted by TheDcoder

  1. Any kind of interaction with games is not allowed in this forums, Please read the forum rules!
  2. It happens in Avast too..., It blocks the script file
  3. Remarks in the Documentation for RunWait
  4. @JohnOne Snapshot restores all the data on the disk + RAM... Its like a picture taken with a camera Or a Time Machine
  5. If you don't mind, I modified the UDF for you #include-once #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7 ; #INDEX# ======================================================================================================================= ; Title .........: _ShellFile ; AutoIt Version : v3.2.12.1 or higher ; Language ......: English ; Description ...: Create an entry in the shell contextmenu when selecting an assigned filetype, includes the program icon as well. ; Note ..........: ; Author(s) .....: guinness ; Remarks .......: ; =============================================================================================================================== ; #INCLUDES# ==================================================================================================================== #include <Constants.au3> ; #GLOBAL VARIABLES# ============================================================================================================ ; None ; #CURRENT# ===================================================================================================================== ; _ShellFile_Install: Creates an entry in the 'All Users/Current Users' registry for displaying a program entry in the shell contextmenu, but only displays when selecting an assigned filetype to the program. ; _ShellFile_Uninstall: Deletes an entry in the 'All Users/Current Users' registry for displaying a program entry in the shell contextmenu. ; =============================================================================================================================== ; #INTERNAL_USE_ONLY#============================================================================================================ ; None ; =============================================================================================================================== ; #FUNCTION# ==================================================================================================================== ; Name ..........: _ShellFile_Install ; Description ...: Creates an entry in the 'All Users/Current Users' registry for displaying a program entry in the shell contextmenu, but only displays when selecting an assigned filetype to the program. ; Syntax ........: _ShellFile_Install($sText, $sFileType[, $sName = @ScriptName[, $sProgramPath = @ScriptFullPath[, $sIconPath = @ScriptFullPath[, ; $iIcon = 0[, $bAllUsers = False[, $bExtended = False]]]]]]) ; Parameters ....: $sText - Text to be shown in the contextmenu. ; $sFileType - Filetype to be associated with the application e.g. .autoit or autoit. ; $sName - [optional] Name of the program. Default is @ScriptName. ; $sProgramPath - [optional] Location of the program executable. Default is @ScriptFullPath. ; $sCommandline - [optional] The commandline parameters which should be passed to the program (%1 substitutes for the path of the executed file). Default is "%1". ; $sIconPath - [optional] Location of the icon e.g. program executable or dll file. Default is @ScriptFullPath. ; $iIcon - [optional] Index of icon to be used. Default is 0. ; $bAllUsers - [optional] Add to Current Users (False) or All Users (True) Default is False. ; $bExtended - [optional] Show in the Extended contextmenu using Shift + Right click. Default is False. ; Return values .: Success - Returns True ; Failure - Returns False and sets @error to non-zero. ; Author ........: guinness ; Modified ......: TheDcoder ; Example .......: Yes ; =============================================================================================================================== Func _ShellFile_Install($sText, $sFileType, $sName = @ScriptName, $sProgramPath = Default, $sCommandline = '"%1"', $sIconPath = @ScriptFullPath, $iIcon = 0, $bAllUsers = False, $bExtended = False) Local $s64Bit = '', $sRegistryKey = '' If $sProgramPath = Default Then $sProgramPath = @AutoItExe If Not @Compiled Then $sCommandline = ' "' & @ScriptFullPath & '" ' & $sCommandline EndIf If @OSArch = 'X64' Then $s64Bit = '64' EndIf If $bAllUsers Then $sRegistryKey = 'HKEY_LOCAL_MACHINE' & $s64Bit & '\SOFTWARE\Classes\' Else $sRegistryKey = 'HKEY_CURRENT_USER' & $s64Bit & '\SOFTWARE\Classes\' EndIf $sFileType = StringRegExpReplace($sFileType, '^\.+', '') $sName = StringLower(StringRegExpReplace($sName, '\.[^.\\/]*$', '')) MsgBox(0, 0, FileExists($sProgramPath)) If StringStripWS($sName, $STR_STRIPALL) = '' Or FileExists($sProgramPath) = 0 Or StringStripWS($sFileType, $STR_STRIPALL) = '' Then Return SetError(1, 0, False) EndIf _ShellFile_Uninstall($sFileType, $bAllUsers) Local $iReturn = 0 $iReturn += RegWrite($sRegistryKey & '.' & $sFileType, '', 'REG_SZ', $sName) $iReturn += RegWrite($sRegistryKey & $sName & '\DefaultIcon\', '', 'REG_SZ', $sIconPath & ',' & $iIcon) $iReturn += RegWrite($sRegistryKey & $sName & '\shell\open', '', 'REG_SZ', $sText) $iReturn += RegWrite($sRegistryKey & $sName & '\shell\open', 'Icon', 'REG_EXPAND_SZ', $sIconPath & ',' & $iIcon) $iReturn += RegWrite($sRegistryKey & $sName & '\shell\open\command\', '', 'REG_SZ', '"' & $sProgramPath & '" ' & $sCommandline) $iReturn += RegWrite($sRegistryKey & $sName, '', 'REG_SZ', $sText) $iReturn += RegWrite($sRegistryKey & $sName, 'Icon', 'REG_EXPAND_SZ', $sIconPath & ',' & $iIcon) $iReturn += RegWrite($sRegistryKey & $sName & '\command', '', 'REG_SZ', '"' & $sProgramPath & '" ' & $sCommandline) If $bExtended Then $iReturn += RegWrite($sRegistryKey & $sName, 'Extended', 'REG_SZ', '') EndIf Return $iReturn > 0 EndFunc ;==>_ShellFile_Install ; #FUNCTION# ==================================================================================================================== ; Name ..........: _ShellFile_Uninstall ; Description ...: Deletes an entry in the 'All Users/Current Users' registry for displaying a program entry in the shell contextmenu. ; Syntax ........: _ShellFile_Uninstall($sFileType[, $bAllUsers = False]) ; Parameters ....: $sFileType - Filetype to be associated with the application e.g. .autoit or autoit. ; $bAllUsers - [optional] Add to Current Users (False) or All Users (True) Default is False. ; Return values .: Success - Returns True ; Failure - Returns False and sets @error to non-zero. ; Author ........: guinness ; Example .......: Yes ; =============================================================================================================================== Func _ShellFile_Uninstall($sFileType, $bAllUsers = False) Local $s64Bit = '', $sRegistryKey = '' If @OSArch = 'X64' Then $s64Bit = '64' EndIf If $bAllUsers Then $sRegistryKey = 'HKEY_LOCAL_MACHINE' & $s64Bit & '\SOFTWARE\Classes\' Else $sRegistryKey = 'HKEY_CURRENT_USER' & $s64Bit & '\SOFTWARE\Classes\' EndIf $sFileType = StringRegExpReplace($sFileType, '^\.+', '') If StringStripWS($sFileType, $STR_STRIPALL) = '' Then Return SetError(1, 0, False) EndIf Local $iReturn = 0, $sName = RegRead($sRegistryKey & '.' & $sFileType, '') If @error Then Return SetError(2, 0, False) EndIf $iReturn += RegDelete($sRegistryKey & '.' & $sFileType) $iReturn += RegDelete($sRegistryKey & $sName) Return $iReturn > 0 EndFunc ;==>_ShellFile_Uninstall
  6. Hello, I just discovered a new bug: It fixed itself automatically after restarting ISN AutoIt Studio
  7. @guinness Looks like you have forgot about it , Here is some advice for cleaning up: 1. Code from line 50 to 61 is not necessary 2. Change $fAllUsers to $bAllUsers and $fExtended to $bExtended 3. Change $i64Bit to $s64Bit 4. Change $sFilePath to $sProgramPath or $sScriptPath 5. Add a optional $sCommandline = ' "%1"' parameter. TD
  8. @NiceBoy1234 I already told you that 2 times in Chatbox
  9. Run(@WindowsDir & '\explorer.exe')P.S Use ProcessClose instead of executing taskkill.exe
  10. Updated the first post
  11. I think I found a bug... The folding of #Regions is messed up TD
  12. Nice one
  13. @Quantumation Remember that UDF-spec is not complete, some exceptions can be made
  14. @kcvinu Was joking
  15. Is he a thief or something?
  16. https://www.autoitscript.com/wiki/UDF-spec
  17. @Melba23 Just what I was looking for, Thanks you!
  18. Each Item has a path associated... That is what I was looking for
  19. This is a perfect situation to use maps, I hope it may release soon!
  20. Hello! I want to keep track of all the ListViewItems in a ListView: #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 267, 206, 192, 124) $ListView1 = GUICtrlCreateListView("Col 1|Col 2", 8, 8, 250, 150) $Button1 = GUICtrlCreateButton("Get Extended", 8, 168, 251, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUICtrlCreateListViewItem("Foo|Bar", $ListView1) ; Extended: Comman Placeholders GUICtrlCreateListViewItem("Baz|Qux", $ListView1) ; Extended: Rare Placeholders While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 ; ...? EndSwitch WEndIn the above example situation, I want to get the extended text (commented after each ListViewItem) for the the ListViewItem... If I select Foo & Bar (1st Item) and press "Get Extended" a MsgBox should display "Comman Placeholders" Thanks in Advance, TD P.S The items are dynamically created in my program and the extended information is stored in a array
  21. @Trong You don't need to fear that HTML5 will eat everything , It will *probably* eat its competitors in the web... for example Adobe Flash which IIRC is going down soon... Mozilla did create a OS entirely based on HTML5... But it failed (I mean the experiment), Its discontinued now. GUIs with HTML5, CSS3 & Javascript(ver. ?) are possible... in the web ... Not in OS's GUIs ... If you want to create a GUI in HTML5 for desktop apps that badly, you can use IE UDF to do that... TD P.S Bạn không cần phải sửa đổi nói tiếng việt chưa được dịch của bạn trong tin nhắn của bạn, chúng tôi không thể đọc được, này sẽ chỉ gánh nặng máy chủ của diễn đàn P.P.S Sorry if you don't understand the above Vietnamese text, I use google translate P.P.P.S After pasting the foreign text, english text is automatically been written in Italic for some reason , I can't get it to normal no matter what P.P.P.P.S OMG, it looks normal when I press submit but its is different while editing
  22. @Trong How are you gonna implement it in AutoIt?
×
×
  • Create New...