Aplicativo alterar configuração do windows 1024 por 768

[lfernandocabral 0]

Como fazer um pequeno aplicativo para controlar configuração 1024 por 768

 

Um abraços para todos

[Waldinho 0]

Este é um exemplo bem simples. A aplicação vai utilizar um ListBox e um Button. No ListBox vão ser relacionados os tipos de resolução de vídeo suportados por sua placa. Com um clique no Button a opção selecionada vai ser aplicada.

 

- Crie uma aplicação.

- Coloque um ListBox no form.

 

- No OnCreate do form adicione:

 

procedure TForm1.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 Colors',

[dmPelsWidth,dmPelsHeight, 1 shl dmBitsperPel]));

Inc(i);

end;

end;

 

- Coloque um botão no form.

- No evento OnClick do botão altere conforme abaixo:

 

procedure TForm1.Button1Click(Sender: TObject);

var

DevMode : TDevMode;

begin

EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode);

ChangeDisplaySettings(DevMode,0);

end;

 

Qualquer dúvida posta aqui novamente, ok?