procedure TForm1.Button9Click(Sender: TObject);
var
frameh,captionh,menuh: Integer;
str:string;
begin
//边框高
frameh := GetSystemMetrics(SM_CXFRAME);
//标题高
captionh := GetSystemMetrics(SM_CYCAPTION);
//菜单高
menuh:=GetSystemMetrics(SM_CYMENU);
str:= inttostr( frameh)+' '+inttostr(captionh)+' '+inttostr(menuh) ;
memo1.text:=str;
end;