如何用SetWindowPos函数（有其他办法更好）设置窗口大小 大于 屏幕分辨率 ？ 急！！(50分)

//如何用SetWindowPos函数（有其他办法更好）设置窗口大小 大于 屏幕分辨率 ？ 急！！
//下面的100，100窗口的大小最大是屏幕的分辨率，再大就不起作用了，如何让他能大于屏幕的分辨率呢？？
var
Wnd: HWND;
begin
Wnd := FindWindow('notepad',nil);
if Wnd <> 0 then
begin
SetWindowPos(Wnd,HWND_NOTOPMOST,0,0,100,100,SWP_NOACTIVATE );
end;
end;

使用你的代码测试过，如果太宽就自动缩小。是不是这个函数本身进行了大小对比。

简单把SetWindowPos(Wnd,HWND_NOTOPMOST,0,0,100,100,SWP_NOACTIVATE );

改成SetWindowPos(Wnd,HWND_NOTOPMOST,0,0,2000(随意),2000(随意),SW_SHOW);