delphi2007 教程

//沙发先  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
  var  
    i               :   Integer;  
    DevMode   :   TDevMode;  
  begin  
    i:=0;  
    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;  
  end;  
   
 

//刷新率为dmDisplayFrequency    
  procedure   TForm1.FormCreate(Sender:   TObject);  
  var  
      I:   Integer;  
      vDevMode:   TDevMode;  
  begin  
      I   :=   0;  
      while   EnumDisplaySettings(nil,   I,   vDevMode)   do  
      begin  
          ListBox1.Items.Add(Format('%dx%d   %d   Colors   %d   Hz',   [  
              vDevMode.dmPelsWidth,   //   宽  
              vDevMode.dmPelsHeight,   //   高  
              1   shl   vDevMode.dmBitsperPel,   //   颜色  
              vDevMode.dmDisplayFrequency   //   刷新率  
          ]));  
          Inc(I);  
      end;  
  end;  
 

答案都出来了  
   
   
  ^_^,看样来晚了,呵呵

谢谢。