Mega Code Archive

 

Categories / Delphi / Graphic

 

Ekran cözünürlügünün degistirilmesi

procedure SetRes(XRes, YRes: DWord); var lpDevMode : TDeviceMode; begin EnumDisplaySettings(nil, 0, lpDevMode); lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT; lpDevMode.dmPelsWidth:=XRes; lpDevMode.dmPelsHeight:=YRes; ChangeDisplaySettings(lpDevMode, 0); end; // Kullanimi: Setres(800, 600);