| [8349] Re11:Delphi2010とDelphiXEとの違い | 返信 削除 |
| 2014/12/30 (火) 21:28:13 Mr.XRAY |
|
> ちょっと考えてみます． 前に >Visible で Parent のないウィンドウを検出してやってみました． と書いたのですが，Parent ではなく Owner を持たないウィンドウを 検出していましたが，これはなくてもいいようです． 少なくても私の環境では． テストしたコードと図です． 図の TMemo はテストでハンドル名等を表示するために使用したものです． 下のコードでは，そのコードは削除しています． 動作確認環境は Windows 7 U64(SP1) + Delphi XE(UP1) Pro です． Opera と FireFox で動作することを確認しています． IDE 上でコンパイルして実行しても，作成した EXE を起動しても， 位置とサイズが変更できることを確認しています． //----------------------------------------------------------------------------- // ウィンドウハンドルからウィンドウのクラス名を取得する関数 //----------------------------------------------------------------------------- function GetWindowClassNameStr(hWindow: HWND): String; var Buffer : array[0..MAX_PATH-1] of Char; Len : Integer; begin FillChar(Buffer, SizeOf(Buffer), #0); Len := GetClassName(hWindow, Buffer, Length(Buffer)); if Len > 0 then Result := Buffer else Result := ''; end; //----------------------------------------------------------------------------- // アプリのウィンドウハンドルを取得するためのEnumWindowsのコールバック関数 // クラス名が目的の名前で，VisibleがTrueのウインドウのハンドルを求める //----------------------------------------------------------------------------- function EnumWindowsProc(hWindow: HWND; lp: LPARAM): BOOL; stdcall; var ClassName : String; begin Result := True; ClassName := GetWindowClassNameStr(hWindow); if UpperCase(ClassName) = UpperCase(Trim(Form1.Edit1.Text)) then begin if IsWindowVisible(hWindow) then begin LPDWORD(lp)^ := hWindow; Result := False; end; end; end; //============================================================================= // フォーム生成時の処理 //============================================================================= procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Lines.Clear; Memo1.font.Name := 'ＭＳ ゴシック'; Memo1.Font.Size := 10; Memo1.ScrollBars := ssVertical; end; //============================================================================= // 指定クラス名のウィンドウの位置とサイズを変更してみる //============================================================================= procedure TForm1.Button1Click(Sender: TObject); var hTargetWnd : HWND; Flags : Cardinal; begin hTargetWnd := 0; EnumWindows(@EnumWindowsProc, LPARAM(@hTargetWnd)); if hTargetWnd <> 0 then begin Flags := SWP_NOZORDER or SWP_SHOWWINDOW; SetWindowPos(hTargetWnd, 0, 0, 0, 500, 800, Flags); end; end;  |
