Como mudar a resolução via programa?

05/11/2005

0

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


Orlando Frade

Orlando Frade

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar