Como mudar a resolução via programa?

Delphi

05/11/2005

Amigos,
como faço para q o meu programa mude a resolução do computador?


Orlando Frade

Orlando Frade

Curtidas 0

Respostas

Martins

Martins

05/11/2005

[quote:6f7f0c05a8=´Orlando Frade´]Amigos,
como faço para q o meu programa mude a resolução do computador?[/quote:6f7f0c05a8]

Será q isso ajuda?

[b:6f7f0c05a8]No OnCreate do formulário[/b:6f7f0c05a8]
procedure TFxxxxx.FormCreate(Sender: TObject); 
var 
  i : Integer; 
  DevMode : TDevMode; 
begin 
  i := 0; 
  while EnumDisplaySettings(nil, i, Devmode) do begin 
  with Devmode do 
  ListBox1.Items.Add(Format(´¬dx¬d ¬d Cores´, 
  [dmPelsWidth, dmPelsHeight, 1 shl dmBitsperPel])); 
  Inc(i); 
  end; 
end;

[b:6f7f0c05a8]Coloque um botão no formulário e insira no evento OnClick o código abaixo[/b:6f7f0c05a8]

procedure TFxxxxx.Button1Click(Sender: TObject); 
var 
  DevMode : TDevMode; 
begin 
  EnumDisplaySettings(nil, Listbox1.ItemIndex, Devmode); 
  ChangeDisplaySettings(DevMode,0); 
end;


Espero q seja útil.

Boa sorte!!


GOSTEI 0
POSTAR