在本文中，我们将深入探讨如何使用Delphi 7来设置计算机屏幕的分辨率。Delphi 7是一款历史悠久但依然被广泛使用的面向对象的编程环境，它基于Pascal语言，提供了强大的Windows应用程序开发工具。通过学习这个例子，我们可以了解如何利用Delphi 7与Windows API进行交互，实现对屏幕分辨率的控制。
我们需要理解的是，屏幕分辨率的改变是通过调用Windows API函数来完成的。在Windows系统中，这些函数主要包含在`User32.dll`和`Gdi32.dll`库中。例如，我们可以使用`ChangeDisplaySettings`函数来改变显示设备的设置，而`EnumDisplaySettings`则用于获取当前或指定的显示模式。
1. **使用API函数**：
- `ChangeDisplaySettings`：这是核心函数，用于更改显示器的设置，包括分辨率、颜色深度等。该函数需要一个`DEVMODE`结构体，其中包含了我们想要设置的参数。返回值是一个`DWORD`类型，表示操作的结果。
- `EnumDisplaySettings`：用于枚举显示设备的所有可能设置，获取`DEVMODE`结构体，我们可以从中读取当前的屏幕分辨率和色彩深度。
2. **导入API**：
在Delphi中，我们需要使用`uses`关键字导入`Windows`单元，这样我们就可以直接使用Windows API函数了。例如：
```delphi
uses
Windows;
```
然后，我们需要声明并导入我们要使用的API函数：
```delphi
function ChangeDisplaySettings(var lpDevMode: DEVMODE; dwFlags: DWORD): DWORD; stdcall; external 'User32.dll' name 'ChangeDisplaySettingsA';
function EnumDisplaySettings(lpszDeviceName: PChar; iModeNum: Integer; var lpDevMode: DEVMODE): Boolean; stdcall; external 'User32.dll' name 'EnumDisplaySettingsA';
```
3. **定义DEVMODE结构体**：
`DEVMODE`结构体包含了显示器的各种配置信息，如分辨率、色彩深度等。在Delphi中，我们需要创建一个`DEVMODE`类型的变量，并填充相应的字段。例如：
```delphi
var
DevMode: DEVMODE;
...
DevMode.dmSize := SizeOf(DevMode);
DevMode.dmPelsWidth := 新的分辨率宽度;
DevMode.dmPelsHeight := 新的分辨率高度;
DevMode.dmBitsPerPel := 色彩深度;
...
```
4. **设置分辨率**：
在填充好`DEVMODE`结构体后，我们可以调用`ChangeDisplaySettings`函数来改变屏幕分辨率。为了安全起见，通常我们会先保存当前的设置，然后尝试更改，最后再恢复原设置以防出错。
5. **用户界面**：
创建一个简单的用户界面，如一个按钮，当用户点击时调用设置分辨率的函数。确保提供错误处理，以捕获并处理可能出现的问题，如无效的分辨率设置等。
6. **代码示例**：
这是一个简单的示例，展示如何在按钮的点击事件中改变分辨率：
```delphi
procedure TForm1.Button1Click(Sender: TObject);
var
ResultCode: DWORD;
CurrentSettings: DEVMODE;
begin
// 获取当前设置
EnumDisplaySettings(nil, ENUM_CURRENT_SETTINGS, CurrentSettings);
// 设置新的分辨率和色彩深度
CurrentSettings.dmPelsWidth := 1920;
CurrentSettings.dmPelsHeight := 1080;
CurrentSettings.dmBitsPerPel := 32;
// 尝试改变设置
ResultCode := ChangeDisplaySettings(CurrentSettings, CDS_TEST); // 先测试
if ResultCode = DISP_CHANGE_SUCCESSFUL then
begin
// 实际应用设置
ResultCode := ChangeDisplaySettings(CurrentSettings, CDS_UPDATEREGISTRY);
if ResultCode <> DISP_CHANGE_SUCCESSFUL then
// 错误处理...
end
else
// 测试失败的错误处理...
end;
```
通过以上步骤，我们可以编写出一个能够改变屏幕分辨率的Delphi 7程序。虽然这个例子可能比较老旧，但它仍然具有教学价值，让我们了解到如何利用Delphi与底层操作系统进行交互，实现特定的功能。这对于深入理解Delphi编程和Windows API的使用是很有帮助的。
DisplaySettings.rar （5个子文件） 
codesc.net 
Unit1.ddp 51B
