Ver Mensaje Individual
  #3  
Antiguo 05-05-2011
Avatar de Diego827
Diego827 Diego827 is offline
Miembro
NULL
 
Registrado: oct 2010
Posts: 157
Reputación: 16
Diego827 Va por buen camino
Wink Gracias!!!

Código:
 Have  you ever wondered what display devices are available to your  application? Here are some good starting points. But you should remember  to further investigate this avenue, as it's more to using the display  settings than detecting them. 
  
procedure TForm1.ButtonClick(Sender: TObject); 
var 
  lpDisplayDevice: TDisplayDevice; 
  dwFlags: DWORD; 
  cc: DWORD; 
begin 
 lpDisplayDevice.cb := sizeof(lpDisplayDevice); 
 dwFlags := 0; 
 cc:= 0; 
 while EnumDisplayDevices(nil, cc, lpDisplayDevice , dwFlags) do 
  begin 
    Inc(cc); 
    aListbox.Items.Add(lpDisplayDevice.DeviceString); {there is also additional information in lpDisplayDevice} 
  end; 
end; 
  

Another way to detect video card settings is to read them from the registry, under the following registry key(s) : 
  
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\Display 
  
However, if you previously had other videocards installed, you will still 
have keys for the older videocards as well 
%HKLM%\System\CurrentControlSet\Services\Class\Display\0000 
%HKLM%\System\CurrentControlSet\Services\Class\Display\0001 
%HKLM%\System\CurrentControlSet\Services\Class\Display\0002 
..... 



   Bogdan Grigorescu - [email protected] 
   BG Remote Programming Group
Excelente amigo, muy agradecido por tu atención.
Responder Con Cita