Mudar a resolução do Windows

Mudar a resolução do Windows usando Delphi, você pode fazê-lo usando as funções da API do Windows.

Tenha em mente que isso deve ser feito com muito cuidado e somente com a permissão do usuário, pois pode causar problemas se não for feito corretamente.

Além disso, você deve restaurar a resolução original quando seu programa terminar.

Aqui está um exemplo de como você pode usar as funções da API do Windows para definir a resolução da tela:

 

   
uses
  Windows, SysUtils;

procedure SetScreenResolution(Width, Height: Integer);
var
  DevMode: TDeviceMode;
begin
  ZeroMemory(@DevMode, SizeOf(TDeviceMode));
  DevMode.dmSize := SizeOf(TDeviceMode);
  DevMode.dmPelsWidth := Width;
  DevMode.dmPelsHeight := Height;
  DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;

  if ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY) <> DISP_CHANGE_SUCCESSFUL then
    raise Exception.Create('Falha ao definir a resolução da tela.');

  MessageBox(0, 'A resolução da tela foi alterada. Certifique-se de restaurá-la depois.', 'Aviso', MB_ICONWARNING or MB_OK);
end;

procedure RestoreScreenResolution;
begin
  ChangeDisplaySettings(nil, 0);
end;

begin
  try
    SetScreenResolution(1920, 1080); // Substitua pelos valores desejados
    // Faça o que você precisa fazer com a nova resolução aqui

    // Ao terminar o programa, restaure a resolução original
    RestoreScreenResolution;
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end.

  
 
      

Este código define a resolução da tela usando a função ChangeDisplaySettings da API do Windows e, em seguida, exibe um aviso para restaurar a resolução original após o término do programa.

Certifique-se de substituir os valores de largura (Width) e altura (Height) pelos valores desejados. Lembre-se de que essa operação pode afetar a experiência do usuário e deve ser usada com cuidado.

17/04/2026 05:04 Delphi 188
Topo