1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
begin
 lpdisplaydevice.cb := sizeof(lpdisplaydevice);
 dwflags := 0;
 cc:= 0;
 while EnumDisplayDevices(nil, cc, lpDisplayDevice , dwFlags) do
  begin
    inc(cc);
    listbox1.items.add(lpdisplaydevice.DeviceString);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button2Click(Sender: TObject);
var
 DeviceMode: TDeviceModeA;
begin

 DeviceMode.dmPelsWidth := 1280;
 DeviceMode.dmPelsHeight := 720;
 DeviceMode.dmBitsPerPel := 32;

 ChangeDisplaySettingsEx(pchar(listbox1.items[0]), DeviceMode, NULL, CDS_SET_PRIMARY, 0);

end;					

1:

Variante des Typs (Null) konnte nicht in Typ(Int64) konvertiert werden.					

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:

Function TOScrMonitor.SetScreenMode(AModeNum: Integer): Boolean;
Var
    Dev: TDevMode;
Begin
    // Neo: we think that M$ always make errors
    Result := False;
    // Neo: reset os error
    DbgResetOSError;
    // Neo: we reset to desktop
    If AModeNum = -1 Then
    Begin
        // Neo: call api for reset, also give NUL value
        Result := ChangeDisplaySettingsEx(PChar(DeviceName), TDevMode(Nil^), 0, 0, Nil) = disp_Change_Successful;
        // Neo: mark monitor for desktop mode
        FullScreen := False;
        // Neo: ?? an error
        DbgLastOSError;
        // Neo: have a nice day, leave this code
        Exit;
    End;
    // Neo: chack max bound for required screenmode
    If AModeNum > ModeCount Then
        Exit;
    // Neo: konvert screenmode data to devmode record
    Dev := OScrScreenModeToDevMode(Modes[AModeNum]);
    // Neo: call api and report error if required
    Case ChangeDisplaySettingsEx(PChar(DeviceName), Dev, 0, CDS_FULLSCREEN, Nil) Of
        disp_Change_Successful: Result := True;
        //      disp_Change_BadDualView: OmorphiaDebugStr(vl_Error, '', 'The settings change was unsuccessful because the system is DualView capable.');
        disp_Change_BadFlags: OmorphiaDebugStr(vl_Error, '', 'An invalid set of flags was passed in.');
        disp_Change_BadMode: OmorphiaDebugStr(vl_Error, '', 'The graphics mode is not supported.');
        disp_Change_BadParam: OmorphiaDebugStr(vl_Error, '', 'An invalid parameter was passed in in. This can include an invalid flag or combination of flags.');
        DISP_CHANGE_FAILED: OmorphiaDebugStr(vl_Error, '', 'The display driver failed the specified graphics mode.');
        disp_Change_NotUpdated: OmorphiaDebugStr(vl_Error, '', 'Unable to write settings to registry.');
        disp_Change_Restart: OmorphiaDebugStr(vl_Error, '', 'The Computer must be restarted for the graphics mode to work. (This may show an error for use tScrScreen Class)')
    Else
        // Neo: if we run this, an error not known is present
        DbgLastOSError;
    End;
    // Neo: mark monitor as fullscreen
    FullScreen := Result;
End;