Buscar

Trocar resolução de video automatico.

Código

Private
OLD_WIDTH,OLD_HEIGHT :Integer;


No Evento OnCreate do Form principal coloque o código abaixo:

OLD_WIDTH := Monitor.Width;
OLD_HEIGHT := Monitor.Height;

if (OLD_WIDTH>=1024)and(OLD_HEIGHT>=768)then
begin
  SetScreenResolution(800, 600);
end;

// O comando acima esta programado para: Se a resolução for igual ou maior do 1024 por 768, a resoluçâo vai passar para 800x600

No Evento OnClose do Form principal coloque o Códigoi:

SetScreenResolution(OLD_WIDTH , OLD_HEIGHT);

//O resoluçâo do video vai voltar como era antes.

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 21/12/07
Por: Jonathan
Visualizada: 6529 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009