Delphi/꿀팁
모니터 해상도가 변경될 때 값 알아오기
type TForm1 = class(TForm) Memo1: TMemo; private { Private declarations } public { Public declarations } procedure ChangeDisplay(var Message: TWMDisplayChange); message WM_DISPLAYCHANGE; end; procedure TForm1.ChangeDisplay(var Message: TWMDisplayChange); const FORMAT_DISPLAY_INFO = '해상도 : %d x %d 비트 : %d'; begin Memo1.Lines.Add( Format( FORMAT_DISPLAY_INFO, [Message.Width, Message.Height, Messag..