@olamoree I found some code on AutoIt3 forum that can open a tab in the property page for a file. Could you try it out?
You can download AutoIt3 here:
http://www.autoitscr...te/autoit/downloads/What should happen is the Property Page for notepad.exe should be open to the Comment Tab when you run it. That's all it does. You'll see a black round icon in the Task Tray. Just right click and click Exit to kill the test program. As soon as the program that opened the Property Page stops running, the Property Page will close. That's why I plan to implement it as a hotkey sitting in the Tray. if it works you can set it up to start with Windows.
If it works you can just select file(s) in Explorer and hit the hotkey. All the selected files should open Property Page to the Comment tab. I tried the function on my Windows 7 machine and it seems to work ok.
If you don't have or wish to download AutoIt3 to run the test script let me know and I can compile it to exe. That's no problem.
I just want to make sure it works for you before adding hotkey stuff.
Global Const $SHOP_PRINTERNAME=1 ; $sObjName = printer friendly name
Global Const $SHOP_FILEPATH=2 ; $sObjName = full pathname to file
Global Const $SHOP_VOLUMEGUID=4 ; $sObjName = Drive Path ("C:\") or Volume GUID ("\\?\Volume\{2eca078d-5cbc-43d3-aff8-7e8511f60d0e}\)")
$notepad = @WindowsDir & "\notepad.exe"
$tab = "Comment"
If Not _FILEPropertiesDialog($notepad,$tab) Then
MsgBox(0x1010,"","Open Property Page for Notepad Failed!")
EndIf
While 1
WEnd
Func _FILEPropertiesDialog($sObjName,$sPropPage="",$iObjType=0x02,$hWnd=0)
Local $sPropPageType="ptr"
If IsString($sPropPage) And $sPropPage<>"" Then
$sPropPageType="wstr"
Else
$sPropPage=0
EndIf
Local $aRet=DllCall("shell32.dll","bool","SHObjectProperties","hwnd",$hWnd,"dword",$iObjType,"wstr",$sObjName,$sPropPageType,$sPropPage)
If @error Then Return SetError(2,@error,False)
If Not $aRet[0] Then Return SetError(3,0,False)
Return True
EndFunc
Recent Posts
