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?
como faço para q o meu programa mude a resolução do computador?
Orlando Frade
Curtir tópico
+ 0
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]
[b:6f7f0c05a8]Coloque um botão no formulário e insira no evento OnClick o código abaixo[/b:6f7f0c05a8]
Espero q seja útil.
Boa sorte!!
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
Clique aqui para fazer login e interagir na Comunidade :)