Como mudar a resolução via programa?

05/11/2005

1

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


Responder

Posts

05/11/2005

Martins

[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!!


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira