델초보 wrote:

> 안녕하세요.

> 전 초보 임다-_-; 오늘로 델파이 2달쯤...사용중

>

> 넘 궁금한게 있어서요~

> 가로 얼마.. 세로얼마... 하는 해상도는 어떻게 구할수 있나요?

> 예제 좀 부탁 드립니다.

>



안녕하세여~ 홍세빕니다.



현재 해상도를 구하는 가장 간단한 방법은..

Edit1.Text := IntToStr(Screen.Width) + '*' + IntToStr(Screen.Height);

하시면 되구여~



아래 소스는 각종비디오 정보를 얻어오는 프로시저입니당...

분석해 보세여~



procedure TVideoForm.GetVideoInfo;

var

DC : THandle; // Display context

Bits : Integer; // Bits per pixel

HRes : Integer; // Horizontal resolution

VRes : Integer; // Vertical resolution

DM : TDevMode; // To Save EnumDisplaySettings

ModeNum : LongInt; // Video Mode Number

begin

// 현재 video mode 를 알아냅니다

DC := Canvas.Handle;

Bits := GetDeviceCaps(DC, BITSPIXEL); // 각 pixel당 칼러의 비트수

HRes := GetDeviceCaps(DC, HORZRES); // 화면의 폭(Width)의 비트수

VRes := GetDeviceCaps(DC, VERTRES); // 화면의 높이(Height)의 비트수

// 내 PC의 video mode 정보

Edit1.Text := Format('%d bits, %d x %d',[Bits, HRes, VRes]);



// 현재 내 PC가 지원할 수 있는 video mode 를 구한다

ModeNum := 0; // 첫번째 video mode의 번호(0번부터 시작)

while True do

begin

// nil 이면 현재 표시장치(display device)를 나타냅니다

if not EnumDisplaySettings(nil, ModeNum, DM) then // False이면 더이상 없다

Break;

VideoInfo.Items.Add(Format('%d bits, %d x %d',

[DM.dmBitsPerPel, DM.dmPelsWidth, DM.dmPelsHeight]));

Inc(ModeNum); // 다음번 video mode의 번호를 나타냅니다

end;

end;

조규춘씨가 알려준겁니다



var

MyPC_Bits: Integer;

MyPC_HRes: Integer;

MyPC_VRes: Integer;

begin

MyPC_Bits := GetDeviceCaps(Canvas.Handle, BITSPIXEL); // 각 pixel당 칼러의 비트수

MyPC_HRes := GetDeviceCaps(Canvas.Handle, HORZRES); // 화면의 폭(Width)의 비트수

MyPC_VRes := GetDeviceCaps(Canvas.Handle, VERTRES); // 화면의 높이(Height)의 비트수



델초보 wrote:

> 안녕하세요.

> 전 초보 임다-_-; 오늘로 델파이 2달쯤...사용중

>

> 넘 궁금한게 있어서요~

> 가로 얼마.. 세로얼마... 하는 해상도는 어떻게 구할수 있나요?

> 예제 좀 부탁 드립니다.

>

델초보 wrote:

> 안녕하세요.

> 전 초보 임다-_-; 오늘로 델파이 2달쯤...사용중

>

> 넘 궁금한게 있어서요~

> 가로 얼마.. 세로얼마... 하는 해상도는 어떻게 구할수 있나요?

> 예제 좀 부탁 드립니다.

>



자료실에서 xProject를 다운받아서 설치하시고 X107.pas Unit에 보시면 해상도변경에

대해서 소스와 함께 자세히 나와있으니 참고하시기 바랍니다.