Hi Fellow programmers!

Does anyone know how can I change win95 screen resolution & font size
through delphi? (with or without restarting my computer).

thank you,

Nadav.

On Mon, 22 Dec 1997 10:45:06 +0200, Nadav Lebovitch

This snippet uses the API and works fine as I've seen from other
people, and works on my machine at work.  For some reason, it does not
work on my home machine:

var
  i : integer;
  devmode : tDeviceMode;
  hasMode : boolean;
begin
  i := 0;
  hasMode := false;
  { Check for presence of 640x480 16 colors (8 bit pixel depth) }
  while EnumDisplaySettings(nil, i, devmode) do begin
    with devmode do begin
      if (dmBitsPerPel = 8) and (dmPelsWidth=640) and
(dmPelsHeight=480)
then
        hasMode := true;
    end;
    inc(i);
  end;
  if hasMode then
    with devmode do begin
      dmBitsPerPel := 8;
      dmPelsWidth := 640;
      dmPelsHeight := 480;
      dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;

      ChangeDisplaySettings(devmode, 0);
    end
  else
    ShowMessage('Sorry - cannot run this program - requirements not
met!');
end;

Regards,
Mark

On Mon, 22 Dec 1997 10:45:06 +0200, Nadav Lebovitch