uses
Windows, SysUtils;
// 这个函数返回的显示刷新率是以Hz为单位的
function GetDisplayFrequency: Integer;
var
DeviceMode: TDeviceMode; begin
EnumDisplaySettings(nil, Cardinal(-1), DeviceMode);
Result := DeviceMode.dmDisplayFrequency;
end;
Windows, SysUtils;
// 这个函数返回的显示刷新率是以Hz为单位的
function GetDisplayFrequency: Integer;
var
DeviceMode: TDeviceMode; begin
EnumDisplaySettings(nil, Cardinal(-1), DeviceMode);
Result := DeviceMode.dmDisplayFrequency;
end;
另:怎样关闭一个进程???