/installer/Lib/Util.ahk

http://github.com/fincs/SciTE4AutoHotkey · AutoHotKey · 87 lines · 66 code · 12 blank · 9 comment · 6 complexity · 2bb54e88201eba9c55e3e4cc9dc5b9d2 MD5 · raw file 

    

  1. Util_GetAhkPath()
    2. 

  2. {
    3. 

  3. 	RegRead, ov, HKLM, SOFTWARE\AutoHotkey, InstallDir
    4. 

  4. 	if !ov && A_Is64bitOS
    5. 

  5. 	{
    6. 

  6. 		q := A_RegView
    7. 

  7. 		SetRegView, 64
    8. 

  8. 		RegRead, ov, HKLM, SOFTWARE\AutoHotkey, InstallDir
    9. 

  9. 		SetRegView, %q%
    10. 

  10. 	}
    11. 

  11. 	return ov
    12. 

  12. }
    13. 

  13. 

  14. Util_GetAhkVer()
    15. 

  15. {
    16. 

  16. 	RegRead, ov, HKLM, SOFTWARE\AutoHotkey, Version
    17. 

  17. 	if !ov && A_Is64bitOS
    18. 

  18. 	{
    19. 

  19. 		q := A_RegView
    20. 

  20. 		SetRegView, 64
    21. 

  21. 		RegRead, ov, HKLM, SOFTWARE\AutoHotkey, Version
    22. 

  22. 		SetRegView, %q%
    23. 

  23. 	}
    24. 

  24. 	return ov
    25. 

  25. }
    26. 

  26. 

  27. Util_GetWinVer()
    28. 

  28. {
    29. 

  29. 	pack := DllCall("GetVersion", "uint") & 0xFFFF
    30. 

  30. 	pack := (pack & 0xFF) "." (pack >> 8)
    31. 

  31. 	pack += 0
    32. 

  32. 	return pack
    33. 

  33. }
    34. 

  34. 

  35. Util_CreateShortcut(Shrt, Path, Descr, Args := "", Icon := "", IconN := "")
    36. 

  36. {
    37. 

  37. 	SplitPath, Path,, Dir
    38. 

  38. 	FileDelete, %Shrt%
    39. 

  39. 	FileCreateShortcut, %Path%, %Shrt%, %Dir%, %Args%, %Descr%, %Icon%,, %IconN%
    40. 

  40. }
    41. 

  41. 

  42. ; Written by Lexikos.
    43. 

  43. Util_UserRun(target, args := "")
    44. 

  44. {
    45. 

  45. 	try
    46. 

  46. 		_ShellRun(target, args)
    47. 

  47. 	catch e
    48. 

  48. 		Run, % args="" ? target : target " " args
    49. 

  49. }
    50. 

  50. 

  51. ; Written by Lexikos.
    52. 

  52. _ShellRun(prms*)
    53. 

  53. {
    54. 

  54. 	shellWindows := ComObjCreate("{9BA05972-F6A8-11CF-A442-00A0C90A8F39}")
    55. 

  55. 	
    56. 

  56. 	; Find desktop window object.
    57. 

  57. 	VarSetCapacity(_hwnd, 4, 0)
    58. 

  58. 	desktop := shellWindows.FindWindowSW(0, "", 8, ComObj(0x4003, &_hwnd), 1)
    59. 

  59. 	
    60. 

  60. 	; Retrieve top-level browser object.
    61. 

  61. 	if ptlb := ComObjQuery(desktop
    62. 

  62. 		, "{4C96BE40-915C-11CF-99D3-00AA004AE837}"  ; SID_STopLevelBrowser
    63. 

  63. 		, "{000214E2-0000-0000-C000-000000000046}") ; IID_IShellBrowser
    64. 

  64. 	{
    65. 

  65. 		; IShellBrowser.QueryActiveShellView -> IShellView
    66. 

  66. 		if DllCall(NumGet(NumGet(ptlb+0)+15*A_PtrSize), "ptr", ptlb, "ptr*", psv:=0) = 0
    67. 

  67. 		{
    68. 

  68. 			; Define IID_IDispatch.
    69. 

  69. 			VarSetCapacity(IID_IDispatch, 16)
    70. 

  70. 			NumPut(0x46000000000000C0, NumPut(0x20400, IID_IDispatch, "int64"), "int64")
    71. 

  71. 			
    72. 

  72. 			; IShellView.GetItemObject -> IDispatch (object which implements IShellFolderViewDual)
    73. 

  73. 			DllCall(NumGet(NumGet(psv+0)+15*A_PtrSize), "ptr", psv
    74. 

  74. 				, "uint", 0, "ptr", &IID_IDispatch, "ptr*", pdisp:=0)
    75. 

  75. 			
    76. 

  76. 			; Get Shell object.
    77. 

  77. 			shell := ComObj(9,pdisp,1).Application
    78. 

  78. 			
    79. 

  79. 			; IShellDispatch2.ShellExecute
    80. 

  80. 			shell.ShellExecute(prms*)
    81. 

  81. 			
    82. 

  82. 			ObjRelease(psv)
    83. 

  83. 		}
    84. 

  84. 		ObjRelease(ptlb)
    85. 

  85. 	}
    86. 

  86. }
    87.