有關顯示器解析度設定函數? |
|
|
|
bcb902146
一般會員   發表：67 回覆：33 積分：22 註冊：2002-07-20 發送簡訊給我 |
|
|
axsoft
版主   發表：681 回覆：1056 積分：969 註冊：2002-03-13 發送簡訊給我 |
|
|
jackkcg
站務副站長 發表：891 回覆：1050 積分：848 註冊：2002-03-23 發送簡訊給我 |
此為轉貼資料 delphi 範例 interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls; type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
procedure WMDisplayChange(var Message: TMessage); message WM_DISPLAYCHANGE;
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM}
procedure TForm1.WMDisplayChange(var Message: TMessage);
begin
ShowMessage('Changes in display detected!');
inherited;
end; procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
DevMode : TDeviceMode;
begin
i:=0;
{$IFOPT R }
{$DEFINE CKRANGE}
{$R-} //range-checking of
{$ENDIF}
while EnumDisplaySettings(nil,i,DevMode) do begin
with Devmode do
ListBox1.Items.Add(Format('%dx%d %d Colors',[dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel]));
Inc(i);
end;
{$IFDEF CKRANGE}
{$UNDEF CKRANGE}
{$R } //range-checking on
{$ENDIF}
end; procedure TForm1.ListBox1Click(Sender: TObject);
begin
Button1.Enabled := Listbox1.ItemIndex >= 0;
end; procedure TForm1.Button1Click(Sender: TObject);
var
DevMode : TDeviceMode;
liRetValue : Longint;
begin
{$IFOPT R }
{$DEFINE CKRANGE}
{$R-} //range-checking of
{$ENDIF}
if EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode) then
liRetValue := ChangeDisplaySettings(DevMode,0); SendMessage(HWND_BROADCAST,
WM_DISPLAYCHANGE,
SPI_SETNONCLIENTMETRICS,
0); {$IFDEF CKRANGE}
{$UNDEF CKRANGE}
{$R } //range-checking on
{$ENDIF} case liRetValue of
DISP_CHANGE_SUCCESSFUL: ShowMessage('DISP_CHANGE_SUCCESSFUL: The settings change was successful.');
DISP_CHANGE_RESTART : ShowMessage('DISP_CHANGE_RESTART: The computer must be restarted in order for the graphics mode to work.');
DISP_CHANGE_BADFLAGS : ShowMessage('DISP_CHANGE_BADFLAGS: An invalid set of flags was passed in.');
DISP_CHANGE_FAILED : ShowMessage('DISP_CHANGE_FAILED: The display driver failed the specified graphics mode');
DISP_CHANGE_BADMODE : ShowMessage('DISP_CHANGE_BADMODE: The graphics mode is not supported');
DISP_CHANGE_NOTUPDATED: ShowMessage('DISP_CHANGE_NOTUPDATED: Unable to write settings to the registry.');
end;
end; end.
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
|
Cooky Kid
初階會員 發表：5 回覆：68 積分：44 註冊：2002-07-11 發送簡訊給我 |
|
|
pcboy
版主  發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
下面不是該在 listbox 列出所有解析度供選擇
但是在小弟電腦上並沒有列出 while EnumDisplaySettings(nil,i,DevMode) do begin with Devmode do ListBox1.Items.Add(Format('%dx%d %d Colors',[dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel])); Inc(i); end;
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
發表時間：2002-08-05 23:11:47
IP:61.70.xxx.xxx 未訂閱
系統時間：2024-05-04 21:34:13
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |