如何解决显示图象问题?谢谢了

Question

那delphi5的启动屏是两幅图么?
用两幅图会使程序增大不少呢!
如何解决,最好使转换!
用什么函数可以判断当前系统的色彩呢?
用tscreen类如何实现?

Answer 1

辨率：
    Width := GetSystemMetrics(SM_CXSCREEN); 
    Height := GetSystemMetrics(SM_CYSCREEN);颜色数：
  var 
  BPP: Integer; // Bits per pixel 
  begin 
    BPP := GetDeviceCaps(GetDC(GetDesktopWindow),BITSPIXEL); 
    if(BPP > 2) and (BPP < 8) then 
    begin 
      ShowMessage('16color'); 
    end 
    else if(BPP = 8) then 
    begin 
      ShowMessage('256color'); 
    end 
    else if(BPP = 16) then 
    begin 
      ShowMessage('16bit'); 
    end 
    else if(BPP = 24) then 
    begin 
      ShowMessage('24bit'); 
    end; 
  end

Answer 2

也可以用 screen变量：screen.Width;
screen.Height;
screen.PixelsPerInch;