set drivelabel and win rollup

[Gintaras]

Code:

Copy      Help

dll kernel32 #SetVolumeLabel $lpRootPathName $lpVolumeName

SetVolumeLabel "c:\" "label" ;;set label
10
SetVolumeLabel "c:\" 0 ;;remove label


Code:

Copy      Help

def CCHILDREN_TITLEBAR 5
type TITLEBARINFO cbSize RECT'rcTitleBar rgstate[CCHILDREN_TITLEBAR+1]
dll user32 #GetTitleBarInfo hwnd TITLEBARINFO*pti

int h=win("Quick Macros")
RECT r; GetWindowRect h &r ;;save

TITLEBARINFO ti.cbSize=sizeof(TITLEBARINFO)
GetTitleBarInfo h &ti
siz 0 ti.rcTitleBar.bottom-ti.rcTitleBar.top h 1

5
siz 0 r.bottom-r.top h 1 ;;restore