關於ChangeDisplaySettings 欲回復原設定值

發文回覆瀏覽次數：1154

推到 Plurk!

推到 Facebook!

關於ChangeDisplaySettings 欲回復原設定值

答題得分者是：t27

sives1227
一般會員

發表：24
回覆：19
積分：8
註冊：2007-10-12

發送簡訊給我

#1 引用回覆回覆

發表時間：2012-01-18 17:37:53

IP:114.33.xxx.xxx 訂閱

小弟在設定完解析度時，使用非修改機碼之方式
ChangeDisplaySettings(lpDevMode,0)

成功之後，想要回復原設定值的設定，如下列程式碼
ChangeDisplaySettings(null,0);
出現此錯誤訊息
[Error] Unit1.pas(61): Types of actual and formal var parameters must be identical

想請教大大們，我在回復原設定值時，是哪邊傳參數錯誤了?
謝謝大家回覆。

------
學問~學問~學著發問

t27
中階會員

發表：34
回覆：95
積分：90
註冊：2002-06-19

發送簡訊給我

#2 引用回覆回覆

發表時間：2012-01-19 11:15:59

IP:61.224.xxx.xxx 訂閱

網路上找到的, 參考一下

// 動態改變螢幕解析度

function DynamicResolution(X, Y: word): BOOL;

var

lpDevMode: TDeviceMode;

OldDevice :TDeviceMode;

NewDevice :TDeviceMode;

begin

Result := EnumDisplaySettings(nil, 0, lpDevMode);

if Result then

begin

lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;

lpDevMode.dmPelsWidth := X;

lpDevMode.dmPelsHeight := Y;

//Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;

Result := ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL;

end;

系統時間：2024-05-08 23:09:53

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！