设置多个屏幕分辨率.docxVIP

设置双屏显示器的分辨率： //传入参数为设置第几个屏幕 function TFormMain.ChangeResolution(nNum: Integer): Boolean; var X, Y, Frequency: Cardinal; lpDevMode: TDeviceMode; lpDisDev : TDisplayDevice; DevNum: Integer; begin result := True; DevNum := 0; ZeroMemory(@lpDisDev, SizeOf(TDisplayDevice)); lpDisDev.cb := SizeOf(TDisplayDevice); while EnumDisplayDevices(nil, DevNum, lpDisDev, 0) do begin if lpDisDev.DeviceName = (\\.\DISPLAY + IntToStr(nNum)) then begin ZeroMemory(@lpDevMode,Sizeof(TDeviceMode)); lpDevMode.dmSize := Sizeof(TDeviceMode); result := EnumDisplaySettings(lpDisDev.DeviceName, 0, lpDevMode); if result th