掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
SetWindowPos で ウィンドウのサイズをデスクトップのサイズ以上にする方法 (ID：48976)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
標記のとおり SetWindowPos で ウィンドウのサイズをデスクトップのサイズ以上にする方法を教えてください。 下記では、（例えば高さが）デスクトップのサイズ以上にはなりません。。。 宜しくお願いします。 //----------- function FindWindowExtd(partialTitle: string): HWND; var hWndTemp: HWND; iLenText: Integer; cTitletemp: array [0 .. 254] of Char; sTitleTemp: string; begin hWndTemp := FindWindow(nil, nil); while hWndTemp <> 0 do begin iLenText := GetWindowText(hWndTemp, cTitletemp, 255); sTitleTemp := cTitletemp; sTitleTemp := UpperCase(copy(sTitleTemp, 1, iLenText)); partialTitle := UpperCase(partialTitle); if pos(partialTitle, sTitleTemp) <> 0 then Break; hWndTemp := GetWindow(hWndTemp, GW_HWNDNEXT); end; result := hWndTemp; end; //--------- var hw: HWND; begin hw := FindWindowExtd('IrfanView'); //適当に if hw > 0 then begin SetWindowPos(hw, 0, // 0, 0, 500, 1900, // X, Y, cx, cy: Integer; SWP_NOMOVE or SWP_NOZORDER {or SWP_FRAMECHANGED}); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.