procedure TForm1.Button6Click(Sender: TObject);
var
hwnd: Integer;
Rect: TRect;
begin
hwnd := FindWindow('SciCalc',nil);//找到计算器窗口
if hwnd<>0 then
begin
GetWindowRect(hwnd,Rect);//获得窗口位置
SetWindowPos(hwnd,HWND_TOP,Rect.Left-10,Rect.Top-10,-1,-1,SWP_NOSIZE);
end;//向左，向上移动10
end;
