Delphi dicas

Trocar resolução de video automatico.

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.