박형진 께서 말씀하시기를...

> 프로그램과 일치하지 않는 해상도에서 실행시켰을때 해상도를 프로그램에 맞도록 변환시켜주는 함수를 알고 싶습니다.

////////

다음 코딩을 참고하셔요. 이 예제는 해상도를 윈도우에 세팅된 값으로

바꿔주는 예제입니다. 아마 조금만 수정하시면 될듯...

////

전역변수

DevMode : TDevMode;



procedure TForm1.FormCreate(Sender: TObject);

var

OldColor: integer;

DC : HDC;

begin

DC := GetDC ( GetDesktopWindow );

OldColor := GetDeviceCaps ( DC, BITSPIXEL );

ReleaseDC ( GetDesktopWindow, DC );



with DevMode do

begin

dmSize := SizeOf ( TDevMode );

dmPelsWidth := Screen.Width;

dmPelsHeight := Screen.Height;

dmBitsPerPel := OldColor;

dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ChangeDisplaySettings ( DevMode, 0 );

end;