是EnumDisplaySettings() 和ChangeDisplaySettings()，下面这个例子就是了 <br><br>function DynamicResolution(X, Y: word): BOOL; <br>var <br>lpDevMode: TDeviceMode; <br>begin <br>Result := EnumDisplaySettings(nil, 0, lpDevMode); <br>if Result then <br>begin <br>lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT; <br>lpDevMode.dmPelsWidth := X; <br>lpDevMode.dmPelsHeight := Y; <br>Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL; <br>end <br>end; <br><br>procedure TForm1.Button1Click(Sender: TObject); <br>begin <br>if DynamicResolution(640, 480) then <br><br>ShowMessage('Now is 640*480'); <br>end; <br><br>procedure TForm1.Button2Click(Sender: TObject); <br>begin <br>if DynamicResolution(800, 600) then <br>ShowMessage('Now is 800*600'); <br>end;<br>看来的。
