CoD4を仮想フルスクリーンモードっぽくするやつ

Delphiコード。新しいバージョンだとuses Windowsとか動かないかも。RAD Studio2010しか持ってないのでわからないけど。

program cod4vf;

{$APPTYPE CONSOLE}

uses
  Windows;

function CoD4Handle:HWND;
begin
  Result:= FindWindow('CoD4', nil);
end;

procedure main;
var
  ws: Integer;
begin
  ws := WS_VISIBLE;
  SetWindowLong(CoD4Handle, GWL_STYLE, ws);
  SetWindowPos(CoD4Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE or SWP_SHOWWINDOW or SWP_FRAMECHANGED);
end;

begin
  main;
end.

CoD4の解像度をディスプレイ解像度と同じ設定にしてウィンドウモードで起動すると、通常ではウインドウのフレームの分だけゲーム画面がディスプレイからはみ出てしまうが、 そのウィンドウフレームを消して左上に移動することで、ウィンドウモードのままゲーム画面をディスプレイぴったりにはめることができる。 これの何が良いってゲーム中に他のウィンドウに移動した時に、フルスクリーンモードだとガクガクしてしまうんだけど、それが解消されること。

WindowsデスクトップのHDDの具合が悪いのでロストしないようにメモ。