Fórum Resoluçao de video #342869
20/06/2007
0
Como eu verifico via codigo se a maquina do cliente tem uma resolução de video igual a 800x600? Obrigado.
Luiz
Luiz
L_carlos
Curtir tópico
+ 0
Responder
Posts
20/06/2007
Nightshade
if (Screen.Width = 800) and (Screen.Height = 600) then
begin
Showmessage(´tem resoluçao 800x600´);
end;
Responder
Gostei + 0
20/06/2007
Nightshade
function TrocaResolucao(X, Y: word): Boolean;
var lpDevMode: TDeviceMode;
begin
Result := False;
if EnumDisplaySettings(nil, 0, lpDevMode) then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight:= Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
end;
end;
função pra ti mudar a resoluçao via programaçao
Responder
Gostei + 0
20/06/2007
L_carlos
Vlw Pessoal. Os dois posts me ajudaram.
Luiz
Luiz
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)