获取屏幕颜色数的代码在windows98下失效(100分)

H

hguhgu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #1

function EnumDisplaySettings(lpszDeviceName: LPCWSTR; iModeNum: DWORD;
var lpDevMode: DEVMODEW): BOOL; stdcall; forward;
function EnumDisplaySettings; external 'user32.dll' name 'EnumDisplaySettingsW';


procedure TForm1.Button1Click(Sender: TObject);
var
lpszDeviceName: LPCWSTR;
iModeNum: DWORD;
lpDevMode: DEVMODEW;
begin
EnumDisplaySettings(nil,$FFFFFFFF,lpDevMode);
caption := inttostr(lpDevMode.dmBitsPerPel);
end;

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #2

win98下可能要把'EnumDisplaySettingsW'改成'EnumDisplaySettingsA'：
function EnumDisplaySettingsA; external 'user32.dll' name 'EnumDisplaySettingsA';

 

H

hguhgu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #3

不行

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #4

改成这样呢，这是从注册表中读：
EnumDisplaySettings(nil,$FFFFFFFE,lpDevMode);

 

H

hguhgu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #5

抱歉，好像还是不行啊！

 

卡

卡色

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #6

把'EnumDisplaySettingsW'改成'EnumDisplaySettings'

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #7

其实GetDeviceCaps()更方便。

procedure TForm1.Button2Click(Sender: TObject);
var
DC: HDC;
begin
DC := GetDC(HWND(nil));
caption := inttostr(GetDeviceCaps(DC,BITSPIXEL));
end;

 

H

hguhgu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #8

谢谢，不过user32.dll中没有EnumDisplaySettings
只有：EnumDisplaySettingsA,EnumDisplaySettingsW,EnumDisplaySettingsExA,
EnumDisplaySettingsExW

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #9

试过GetDeviceCaps()了？

 

H

hguhgu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #10

谢谢zw84611，高手！

 

卡

卡色

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #11

function EnumDisplaySettings(lpszDeviceName: LPCWSTR; iModeNum: DWORD;
var lpDevMode: DEVMODEW): BOOL; stdcall; forward;
function EnumDisplaySettings; external 'user32.dll' name 'EnumDisplaySettingsA'
or
function EnumDisplaySettings(lpszDeviceName: LPCWSTR; iModeNum: DWORD;
var lpDevMode: DEVMODEW): BOOL; stdcall; external 'user32.dll' name 'EnumDisplaySettingsA'

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #12

不需要自己声明，在 windows 单元中有！！！！！！

直接用：

procedure TForm1.Button2Click(Sender: TObject);
var
lpszDeviceName: LPCWSTR;
iModeNum: DWORD;
lpDevMode: TDeviceMode; ///////////类型声明是这样的。
begin
EnumDisplaySettings(nil,$FFFFFFFF,lpDevMode);
caption := inttostr(lpDevMode.dmBitsPerPel);
end;