掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
他のアプリのウィンドウサイズの取得および変更をするには? (ID：9519)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> ところで、フォームが最大化されている他のアプリのサイズは、変更(最大時のサイズ)できるのでしょうか? ウィンドウが最大化されているかどうかは IsZoomed() で判断できます。また、 元のサイズにもどすには、 SendMessage(hMemochou,WM_SYSCOMMAND,SC_RESTORE,0); のようにします。 procedure TForm1.Button1Click(Sender: TObject); var hMemochou:HWND; r:TRect; begin hMemochou := FindWindow('Notepad',nil); if hMemochou <> 0 then begin if IsZoomed(hMemochou) then SendMessage(hMemochou,WM_SYSCOMMAND,SC_RESTORE,0); GetWindowRect(hMemochou,r); Label1.Caption := 'Width = '+IntToStr(r.Right-r.Left); Label2.Caption := 'Height = '+IntToStr(r.Bottom-r.Top); end; end; procedure TForm1.Button2Click(Sender: TObject); var hMemochou:HWND; begin hMemochou := FindWindow('Notepad',nil); if hMemochou <> 0 then if IsZoomed(hMemochou) then SendMessage(hMemochou,WM_SYSCOMMAND,SC_RESTORE,0); SetWindowPos(hMemochou,0,0,0,300,300,SWP_NOMOVE or SWP_NOZORDER); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.