掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
他のアプリのウィンドウサイズの取得および変更をするには? (ID：9517)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> 他のアプリのウィンドウサイズの取得および変更をするには? 目標のウィンドウのハンドルを取得して、サイズは GetWindowRect() で取得 変更は SetWindowPos() を使います。 例えば、あらかじめメモ帳を起動しておいて、そのサイズを取得するには procedure TForm1.Button1Click(Sender: TObject); var hMemochou:HWND; r:TRect; begin hMemochou := FindWindow('Notepad',nil); if hMemochou <> 0 then begin GetWindowRect(hMemochou,r); Label1.Caption := 'Width = '+IntToStr(r.Right-r.Left); Label2.Caption := 'Height = '+IntToStr(r.Bottom-r.Top); end; end; サイズを 300,300 に設定するには procedure TForm1.Button2Click(Sender: TObject); var hMemochou:HWND; r:TRect; begin hMemochou := FindWindow('Notepad',nil); if hMemochou <> 0 then SetWindowPos(hMemochou,0,0,0,300,300,SWP_NOMOVE or SWP_NOZORDER); end; とします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.