1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Function ChangeResolution(sizex,sizey,bpp:DWORD):Boolean;
var
  DeviceMode:TDeviceModeA;
  i:Integer;
Begin
  i:=0;
  Result:=False;
  while EnumDisplaySettings(nil,i,DeviceMode) do begin
    with DeviceMode do
      if (dmPelsWidth=sizex) and 
         (dmPelsHeight=SizeY) and 
         (dmBitsPerPel=bpp) then begin
        // erst testen, bevor wir umschalten!
        case ChangeDisplaySettings(DeviceMode, CDS_TEST) of 
          // es wird klappen!
          DISP_CHANGE_SUCCESSFUL: 
            Result:=True;

          // Neustart erforderlich.
          DISP_CHANGE_RESTART:
            Showmessage('You have to restart'); 

          // Nicht unbedingt ein Fehler,
          DISP_CHANGE_BADFLAGS:
            Showmessage('Bad display mode flags');

          // es klappt nicht, ohne nähere Begründung
          DISP_CHANGE_FAILED:
            Showmessage('Failed in changing resolution');

          // diese Auflösung gibt es nicht
          DISP_CHANGE_BADMODE:
            Showmessage('Display mode not supported');

          // Nur Windows NT
          DISP_CHANGE_NOTUPDATED:
            Showmessage('Registry could not be updated');

        else Result:=true;
        end;

        if Result then 
          //jetzt wird umgeschaltet
          ChangeDisplaySettings(DeviceMode, CDS_FULLSCREEN)
      end;
    Inc(i);
  end;
End;                    

1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeResolution(1027,768,16);

end;