Skærmstørelse

function SetScreenResolution(Width, Height: integer): Longint;
  var
    DeviceMode: TDeviceMode;
  begin
    with DeviceMode do begin
      dmSize := SizeOf(TDeviceMode);
      dmPelsWidth := Width;
      dmPelsHeight := Height;
      dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
    end;
    Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
  end;

læs mere her:

http://www.delphi3000.com/articles/article_1602.asp
http://www.delphipages.com/tips/thread.cfm?ID=43

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;

Kan man gøre sådan så skærm størelsen bliver normal igen når spillet er lukket?

Tak for hjælpen.