Custom Query

Hi All,

The following code does not write hex ffffffff but hex 7fffffff.

$HKCU = "HKEY_CURRENT_USER"
If @OSArch = "X64" Then
	$HKCU &= "64"
EndIf

Msgbox (64, "HEX", Hex(4294967295))

RegWrite($HKCU & "\Software\Microsoft\Test", "Test", "REG_DWORD", "4294967295")
MsgBox(64, "Information",  RegRead($HKCU & "\Software\Microsoft\Test\", "Test"))

Hi,

The code below with "_GUICtrlListView_AddItem" does not allow a listview item to be removed from the listview. If i use GUICtrlCreateListViewItem the item can be removed.

Thanks

Best regards,

Emiel

#Region
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Add_Constants=n
#EndRegion

#include <GUIConstantsEx.au3>
#Include <GuiListView.au3>
#Include <GuiImageList.au3>

Local $exStyles = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES,$LVS_EX_CHECKBOXES)

$GUI = GUICreate ("Test", 400,300)
$Tab = GUICtrlCreateTab(10,10, 380,280)
$Tab1 = GUICtrlCreateTabItem("Tab1")

$List = GUICtrlCreateListView ("", 20,40,360,200, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER, $LVS_REPORT))
_GUICtrlListView_SetExtendedListViewStyle($list, $exStyles)

_AddDrives ()


$Button1 = GUICtrlCreateButton("Delete", 280, 260, 100, 20)
$Button2 = GUICtrlCreateButton("Add", 180, 260, 100, 20)
$Tab2 = GUICtrlCreateTabItem("Tab2")
GuiCtrlCreateLabel("Tab 2", 20,40,100,20)

GUISetState ()

$hImage = _GUIImageList_Create(16, 16, 5, 3)
For $i = 1 to 26
	_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110 + $i)
Next
_GUICtrlListView_SetImageList($list, $hImage, 1)

_GUICtrlListView_AddColumn($list, "Drive", 85)
_GUICtrlListView_AddColumn($list, "Column 2", 85)
_GUICtrlListView_AddColumn($list, "Column 3", 85)
_GUICtrlListView_AddColumn($list, "Column 4", 85)

While 1
 $msg = GUIGetMsg()
	If $msg = $GUI_EVENT_CLOSE Then Exit
 	Switch $msg
		Case -3
			ExitLoop
		Case -50 To 0
			ContinueLoop
		Case $msg = 0
		Case $Button1
			_GUICtrlListView_DeleteAllItems($list)
		Case $Button2
			_AddDrives()
	EndSwitch
Wend

Func _AddDrives ()
	$DriveSet = ""
	$DriveSet = DriveGetDrive("ALL")
	For $i = 1 to $DriveSet[0]
		 ; Unable to delete lines created with this
		_GUICtrlListView_AddItem($list, StringUpper($driveset[$i]), 0 + $i)
		; But able to delete lines created with this, disable the above line
		; GUICtrlCreateListViewItem(StringUpper($DriveSet[$i]), $list)
	Next
EndFunc

The function _InetMail needs some improvements

Install Outlook 2007 and Windows Live Mail, make Windows Live Mail the default client.

If i take a look at the function _InetMail i see the line RegRead('HKCR\mailto\shell\open\command', "") This retrieves information about Outlook 2007 (in my case) but if i check RegRead('HKCU\Software\Clients\Mail', "") which retrieves the current user default email client i see that Windows Live Mail is default.

So when you use the function it will open outlook instead of Windows Live Mail

I changed the code to add support for Windows Live Mail (see below) but maybe there is a better way..

Func _INetMail($s_MailTo, $s_MailSubject, $s_MailBody)
	Local $prev = Opt("ExpandEnvStrings", 1)
	Local $dflt = RegRead($HKCU & '\Software\Clients\Mail', "")

	If $dflt = "Windows Live Mail" Then
		Local $var = RegRead($HKCR & '\WLMail.Url.Mailto\Shell\open\command', "")
	Else
		Local $var = RegRead($HKCR & '\mailto\shell\open\command', "")
	EndIf
	Local $ret = Run(StringReplace($var, '%1', _INetExplorerCapable('mailto:' & $s_MailTo & '?subject=' & $s_MailSubject & '&body=' & $s_MailBody)))
	Opt("ExpandEnvStrings", $prev)
	Return $ret
EndFunc   ;==>_INetMail