Utwórz konto Logowanie

Delphi FAQ

Jak zmienić rozdzielczość

Adam Boduch

Oto kod:

var
  Mode: TDeviceMode;
begin
  with Mode do
  begin
    dmSize:=SizeOf(Mode);
    dmBitsPerPel:=16;
    dmPelsWidth:=640;
    dmPelsHeight:=480;
    dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
    ChangeDisplaySettings(Mode,0)
  end;
end;
FAQ

4 komentarzy

Wycofuję pytanie, znalazłem na Torry.....

Działa bardzo dobrze ale niestety ma wadę. Po zmianie rozdzielczości spada częstotliwość monitora np. z 85 Hz na 60. Jak uzupełnić kod ?...

działa bardzo dobrze, ale jak wyłączam program to rozdzielczość ma być poprzednia... poszperam :)

Przydało mi sie do mojego Przypominacza który ustawia sobie grafikę ;-)
Ukaże się wkródce w downloadzie ;-)

Ps. Niezły Patent