1.此篇文章的目的為何??
  主要的目的在示範如何動態取得及設定解析度、色彩、頻率    2.是否有完整的範例 Project (包含 Source Code) 可以下載??
  http://delphi.ktop.com.tw/loadfile.php?TOPICID=12630815&CC=282485    3.該如何操作這個範例??
  (1)下載及解壓縮檔案 Resolution1.zip，並執行檔案 Resolution1.exe
  (2)在「Resolution」ComboBox 選擇特定的解析度、色彩、頻率
  (3)按「Change」Button 即可看到設定後的結果    4.此範例可以在哪一個作業系統執行??
  理論上在 Windows 9X/ME/NT/2000/XP/2003 都可以執行，不過目前只有在
  Windows 2000 實際測試過，有興趣的會員，也請幫忙測試看看    5.有沒有相關的參考文件??
  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/devcons_84oj.asp
  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/devcons_7gz7.asp    6.如果寫得不好，或是有不對的地方，請大家多多指教
    -- 
        

 void __fastcall TForm1::EnumResolution(void)
{
   DEVMODE dmResolution;
   int iCurrentMode=ENUM_CURRENT_SETTINGS;
   int iCurWidth=0;
   int iCurHeight=0;
   int iCurBitsPixel=0;
 //  int iCurFrequency=0;
   AnsiString szResolution;
   int iIndex=0;       ZeroMemory(&dmResolution, sizeof(DEVMODE));
   EnumDisplaySettings(NULL, iCurrentMode, &dmResolution);
   iCurWidth=dmResolution.dmPelsWidth;
   iCurHeight=dmResolution.dmPelsHeight;
   iCurBitsPixel=dmResolution.dmBitsPerPel;
  // iCurFrequency=dmResolution.dmDisplayFrequency;       iCurrentMode=0;
   ZeroMemory(&dmResolution, sizeof(DEVMODE));
   ComboBox1->Items->Clear();
   while(EnumDisplaySettings(NULL, iCurrentMode  , &dmResolution))
   {
      szResolution=IntToStr(dmResolution.dmPelsWidth) "x" 
         IntToStr(dmResolution.dmPelsHeight) ", " 
         IntToStr(dmResolution.dmBitsPerPel) " Bits ";// 
       //  IntToStr(dmResolution.dmDisplayFrequency) " Hz";
        if(dmResolution.dmPelsWidth>=800)
        { if(dmResolution.dmPelsHeight>=600)
          { if(dmResolution.dmBitsPerPel>=16)
           // {  if(dmResolution.dmDisplayFrequency<=0)
              {ComboBox1->Items->Add(szResolution);}
           // }
          }
        }
      if(dmResolution.dmPelsWidth==(DWORD)iCurWidth &&
         dmResolution.dmPelsHeight==(DWORD)iCurHeight &&
         dmResolution.dmBitsPerPel==(DWORD)iCurBitsPixel)// &&
        // dmResolution.dmDisplayFrequency==(DWORD)iCurFrequency)
      {
         ComboBox1->ItemIndex=iIndex;
      }
      iIndex  ;
      ZeroMemory(&dmResolution, sizeof(DEVMODE));
   }
}    void __fastcall TForm1::ChangeResolution(void)
{
   DEVMODE dmResolution;
   ZeroMemory(&dmResolution, sizeof(DEVMODE));
   int iCurrentMode=0;
   int iResult=DISP_CHANGE_BADMODE;
   AnsiString szResolution;       while(EnumDisplaySettings(NULL, iCurrentMode  , &dmResolution))
   {
      szResolution=IntToStr(dmResolution.dmPelsWidth) "x" 
         IntToStr(dmResolution.dmPelsHeight) ", " 
         IntToStr(dmResolution.dmBitsPerPel) " Bits ";// 
        // IntToStr(dmResolution.dmDisplayFrequency) " Hz";
      if(ComboBox1->Items->Strings[ComboBox1->ItemIndex]==szResolution)
      {
         dmResolution.dmFields=DM_PELSWIDTH | DM_PELSHEIGHT |
            DM_BITSPERPEL ;//| DM_DISPLAYFREQUENCY;
         iResult=ChangeDisplaySettings(&dmResolution, CDS_TEST);
         if(iResult==DISP_CHANGE_SUCCESSFUL)
         {
            ChangeDisplaySettings(&dmResolution, CDS_UPDATEREGISTRY);
         }
         break;
      }
   }
}