得到系统滚动条的大小：
procedure TForm1.Button1Click(Sender: TObject);
var
; ScrollSize :Integer;
begin
; ScrollSize := GetSystemMetrics(SM_CXVSCROLL);
; ShowMessage(IntToStr(ScrollSize));
end;
修改，您需要改变注册表了.
打开注册表 ：
; HKEY_CURRENT_USER------Control Panel----desktop---WindowMetrics就可以看见了.
至于在程序中实现，你需要利用Registry的相关知识来处理了. ;easy.....
