delphi 改变外部程序的位置，大小
我想打开DELPHI 打开QQ浏览器，然后根据分辨率自动调整QQ浏览器的大小，位置

例如，分辨率是1440X900　QQ浏览器的位置TOP=66,left=200,width=900,height=400
分辨率是1024X768　QQ浏览器的位置TOP=66,left=200,width=600,height=200
分辨率是800X600　 QQ浏览器的位置TOP=66,left=200,width=400,height=160

要怎么写

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
begin
x:=GetSystemMetrics(SM_CXSCREEN);
y:=GetSystemMetrics(SM_CYSCREEN);
label1.Caption:=inttostr(x)+'X'+inttostr(y);
end;

这个是获取分辨率了


[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  H: HWND;begin  H := FindWindow('QQBrowser_CefBrowserWindow', nil);  if (Screen.Width = 800) and (Screen.Height = 600) then    MoveWindow(H, 200, 66, 400, 160, True);  if (Screen.Width = 1024) and (Screen.Height = 768) then    MoveWindow(H, 200, 66, 600, 200, True);  if (Screen.Width = 1440) and (Screen.Height = 900) then    MoveWindow(H, 200, 66, 900, 400, True);end;