Приветик, Carlos!
20 Aug 97, Carlos Sanchez Garcia wrote to Alex Shepetko:
 AS>> From the registry section:
 AS>> Key: HKEY_CURRENT_CONFIG\Display\Settings
 AS>> Value: BitsPerPixel
 CG>     Ummm... it must work also under Win 3.1 :?. I've got Screen.width 
nd
 CG> screen.height for resoultion, but I wonder what to use for number of
 CG> colors :?
The GetDeviceCaps maybe help you!!!!
procedure TForm1.Button2Click(Sender: TObject);
var
dc:hwnd;
begin
 dc:=getdc(0);
 label1.caption:=inttostr(getdevicecaps(dc,logpixelsx));
 label2.caption:=inttostr(getdevicecaps(dc,logpixelsy));
end;
And try to see help on GetDeviceCaps.
Пишите письма: dummy_mot@minas.rosmail.com
Рулезов вам всяких.....
                        Tanayeff Dannys
--- GoldED/386 2.50.A0307+
---------------