win 7 desktop manipulation

[corgano]

I am running win 7 and cannot make the desktop window to go bigger than the screen (I was able to do this on win xp). The only computer I have access to has win 7 on it, could someone with win XP and vista check the script to see if it will make the desktop window bigger on those OS's. If anyone knows how to make it work on win 7 (32 bit) it would help. thx

expandcollapse popup

Opt("MouseCoordMode",1)
HotKeySet("{ESC}","OnAutoItExit")
#Include <GuiListView.au3>


HotKeySet("{1}","one")
HotKeySet("{2}","two")


Global Const $hDesk = ControlGetHandle("Program Manager", "", "SysListView321")
Global Const $hight = @DesktopHeight
Global Const $width = @DesktopWidth

Global $bkg = _GUICtrlListView_GetBkImage($hdesk)

While 1
    Sleep(123)
WEnd

Func _DesktopMove_Restore()
WinMove($hDesk,'',0,0)
EndFunc

Func OnAutoItExit ( )
_DesktopMove_Restore()
Exit
EndFunc

Func one()
WinMove($hDesk, '', 0, 0, $width * 1)
;~ _GUICtrlListView_SetBkImage($hdesk, $bkg[1],0,$bkg[2],$bkg[3])
EndFunc

Func two()
WinMove($hDesk, '',$width / 2, 0, $width  * 1.5)
;~ _GUICtrlListView_SetBkImage($hdesk, $bkg[1], 0, $bkg[2], $bkg[3])
EndFunc

[corgano]

This will be my only bump in this topic.

So noone knows?

[corgano]

NEW INFO:

I have confirmed it to work on win xp SP2 but NOT win xp SP3. anyone have an idea on how to make this work?

[AdmiralAlkex]

If you don't mind me asking, what is the purpose of this? >_

Edited August 4, 2009 by AdmiralAlkex

[corgano]

If you don't mind me asking, what is the purpose of this? >_<

A while back someone made a script that when you move your mouse to the edge of the screen it would scroll, giveing you more space. this does not work on win 7