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

어떤 종류의 프로그램을 만드시는지, 그리고 어싱크 컴포넌트를 사용하시는지,



좀 더 구체적으로 써주시면 감사하겠습니다.. 어떤 내용을 질문하시는건지 잘



모르겠네요..



최진숙 wrote:

> 안녕하세요

> 저는 델파이를 이용하여 어플리케이션 프로그램 작업을 하고있는데

> 모뎀으로 파일을 전송하여 하이텔이나 천리안의 게시판에 올리는 작업을 하려고 합니다

> 어떻게 해야하는지 답변부탁 드립니다

> 꼭이요

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

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

////////

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

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

////

전역변수

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;