TaskBarHeight() >>Function TaskBarHeight >>Declare Integer GetWindowRect In user32; >> INTEGER HWnd, String lpRect >>Declare Integer FindWindow In user32; >> STRING lpClassName,; >> STRING lpWindowName >> >>Local cBuffer >> cBuffer = Replicate(Chr(0), 16) >> hWindow= FindWindow('Shell_TrayWnd', '') >> cRect = GetWinRect(hWindow) >> ? "The height of the taskbar is: "+trans(buf2dword(Substr(cRect, 13,4))-buf2dword(Substr(cRect, 5,4))) >>Function GetWinRect(hWindow) >>Local cBuffer >> cBuffer = Replicate(Chr(0), 16) >> = GetWindowRect(hWindow, @cBuffer) >>Return cBuffer >>Function buf2dword(lcBuffer) >>Return Asc(Substr(lcBuffer, 1,1)) + ; >> BitLShift(Asc(Substr(lcBuffer, 2,1)), 8) +; >> BitLShift(Asc(Substr(lcBuffer, 3,1)), 16) +; >> BitLShift(Asc(Substr(lcBuffer, 4,1)), 24)