Código
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.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009