mainform.cpp

来自「C++ BUILDER精彩编程实例集锦(源码)3 第五部分 系统编程 第六部」· C++ 代码 · 共 74 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
   if(MessageBox(Handle,"是否将当前显示模式设置为：1024*768*32 ?","信息提示",MB_YESNO)==IDNO)
      return;
   DEVMODE *lpDevMode;
   lpDevMode=new DEVMODE;
   int  i=0,nIndex;
   BOOL Result=EnumDisplaySettings(NULL,i,lpDevMode);
   while(Result)
   {
     if(lpDevMode->dmPelsWidth==1024&&lpDevMode->dmPelsHeight==768&&lpDevMode->dmBitsPerPel==32)
     {
      	lpDevMode->dmFields=DM_BITSPERPEL|DM_PELSWIDTH|DM_PELSHEIGHT;
       	LONG lResult=ChangeDisplaySettings(lpDevMode,0);
      	if(lResult==DISP_CHANGE_SUCCESSFUL)
	    MessageBox(Handle,"设置显示模式成功","信息提示",MB_OK);
	else if(lResult==DISP_CHANGE_RESTART)
	    MessageBox(Handle,"设置显示模式成功","信息提示",MB_OK);
	else
	    MessageBox(Handle,"设置显示模式失败","信息提示",MB_OK);
     }
     lpDevMode=new DEVMODE;
     Result=EnumDisplaySettings(NULL,++i,lpDevMode);
   }
   delete lpDevMode;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
   if(MessageBox(Handle,"是否将当前显示模式设置为：800*600*32?","信息提示",MB_YESNO)==IDNO)
      return;
   DEVMODE *lpDevMode;
   lpDevMode=new DEVMODE;
   int  i=0,nIndex;
   BOOL Result=EnumDisplaySettings(NULL,i,lpDevMode);
   while(Result)
   {
     if(lpDevMode->dmPelsWidth==800&&lpDevMode->dmPelsHeight==600&&lpDevMode->dmBitsPerPel==32)
     {
      	lpDevMode->dmFields=DM_BITSPERPEL|DM_PELSWIDTH|DM_PELSHEIGHT;
       	LONG lResult=ChangeDisplaySettings(lpDevMode,0);
      	if(lResult==DISP_CHANGE_SUCCESSFUL)
	    MessageBox(Handle,"设置显示模式成功","信息提示",MB_OK);
	else if(lResult==DISP_CHANGE_RESTART)
	    MessageBox(Handle,"设置显示模式成功","信息提示",MB_OK);
	else
	    MessageBox(Handle,"设置显示模式失败","信息提示",MB_OK);
     }
     lpDevMode=new DEVMODE;
     Result=EnumDisplaySettings(NULL,++i,lpDevMode);
   }
   delete lpDevMode;
}
//---------------------------------------------------------------------------