【请教高手】：如何设置工作区(WorkArea)大小?分不够再加^_^～～！！！！

[coolfire729]

delphi中可以用Screen.WorkAreaRect属性来获得工作区得大小，
我现在得问题是：如何设置WorkAreaRect的大小？
请高手赐教，分不够再加^_^～～！！！！

[coolfire729]

呵呵,不好意思,刚才查了下msdn好像有点眉目了,

这样吧,哪位高手能给在下一段示例代码,在下就马上揭帖给分拉~~~~

在线等哦:)

[12rain]

不好意思、为了这100分、我也去查了一下MSDN、哈哈哈
SystemParametersInfo(SPI_SETWORKAREA, 0, @Rect, 0);

[GameWeaverDummy]

不好意思，我不懂

[coolfire729]

^_^ 好的马上用 12rain的代码试试,马上回来:)

[coolfire729]

^_^搞定,多谢, 12rain 日后多指教小弟哦^_^
揭帖~ :)

[12rain]

我发现有时候看Delphi的代码比查MSDN快~
Screen.WorkAreaRect (read GetWorkAreaRect)

function TScreen.GetWorkAreaRect: TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @Result, 0);
end;

嘿嘿、猜一下就出来了吧:P