以下のサンプルコードを参考にしてください。<br />
このサンプルアプリケーションは、画面の解像度を変更する方法を示しています。<br />
<em>※注意
このサンプルの使用においては、注意して使用してください。
ハードウェアの対応外の解像度に設定した場合、そのハードウェアに悪影響がある場合があります。</em>
<pre class="code">
<b>procedure</b> SetResolution(ResX, ResY: <b>DWord</b>); 
<b>var</b> 
  lDeviceMode : TDeviceMode; 
<b>begin</b> 
  EnumDisplaySettings(<b>nil</b>, 0, lDeviceMode); 
  lDeviceMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; 
  lDeviceMode.dmPelsWidth := ResX; 
  lDeviceMode.dmPelsHeight := ResY; 
  ChangeDisplaySettings(lDeviceMode, 0); 
<b>end</b>;
</pre>