[AutoIt]Glass style window or border

1234hotmaster · 11-06-2011, 10:46 PM

Code:
Func _CompExtendFrame($hWnd,$Left=-1,$Top=-1,$Right=-1,$Bottom=-1)
;by 1234hotmaster
	If @OSVersion = Chr(87)&Chr(73)&Chr(78)&Chr(95)& _
		Chr(55) Or @OSVersion = Chr(87)&Chr(73)&Chr(78)&Chr(95)& _
		Chr(86)&Chr(73)&Chr(83)&Chr(84)&Chr(65) Then
		$tRect = DllStructCreate(Chr(108)&Chr(111)&Chr(110)&Chr(103)& _
		Chr(32)&Chr(76)&Chr(101)&Chr(102)&Chr(116)& _
		Chr(59)&Chr(108)&Chr(111)&Chr(110)&Chr(103)& _
		Chr(32)&Chr(84)&Chr(111)&Chr(112)&Chr(59)& _
		Chr(108)&Chr(111)&Chr(110)&Chr(103)&Chr(32)& _
		Chr(82)&Chr(105)&Chr(103)&Chr(104)&Chr(116)& _
		Chr(59)&Chr(108)&Chr(111)&Chr(110)&Chr(103)& _
		Chr(32)&Chr(66)&Chr(111)&Chr(116)&Chr(116)& _
		Chr(111)&Chr(109))
		DllStructSetData($tRect, Chr(76)&Chr(101)&Chr(102)&Chr(116), $Left)
		DllStructSetData($tRect, Chr(84)&Chr(111)&Chr(112), $Top)
		DllStructSetData($tRect, Chr(82)&Chr(105)&Chr(103)&Chr(104)& _
		Chr(116), $Right)
		DllStructSetData($tRect, Chr(66)&Chr(111)&Chr(116)&Chr(116)& _
		Chr(111)&Chr(109), $Bottom)
	Return DllCall(Chr(100)&Chr(119)&Chr(109)&Chr(97)& _
		Chr(112)&Chr(105)&Chr(46)&Chr(100)&Chr(108)& _
		Chr(108), Chr(108)&Chr(111)&Chr(110)&Chr(103), Chr(68)&Chr(119)&Chr(109)&Chr(69)& _
		Chr(120)&Chr(116)&Chr(101)&Chr(110)&Chr(100)& _
		Chr(70)&Chr(114)&Chr(97)&Chr(109)&Chr(101)& _
		Chr(73)&Chr(110)&Chr(116)&Chr(111)&Chr(67)& _
		Chr(108)&Chr(105)&Chr(101)&Chr(110)&Chr(116)& _
		Chr(65)&Chr(114)&Chr(101)&Chr(97), Chr(104)&Chr(119)&Chr(110)&Chr(100),$hWnd , Chr(108)&Chr(111)&Chr(110)&Chr(103), DllStructGetPtr($tRect))
  EndIf
EndFunc

Works on Windows Vista and up.

Normal Window:
[altimg=http://i.minus.com/iS0ncBQNqP4nE.png]Normal Window[/altimg]

10 for top, bottom, left, right:
[altimg=http://i.minus.com/isvCB0zxRiolS.png]All 10[/altimg]

20 for top, bottom, left, right:
[altimg=http://i.minus.com/i7iqQaR7roSNz.png]All 20[/altimg]

20 for top, left, right. 0 for bottom:
[altimg=http://i.minus.com/ibjOAX1ZU73fg7.png]All 20 except for bottom[/altimg]

Full Glassed Window: ( top, bottom, left, right all = -1 )
[altimg=http://i.minus.com/ifiiqh1R8RP.png]Full Screen Glassed[/altimg]

ReaperX · 12-02-2011, 01:21 PM

Thats Cool. I Will Definetly Use this. Wink