logo

.
Wednesday 08th of September 2010    

Ankety

Co tu není dobré ?
 

Přihlášení



Provoz stránek

návštěv dnes: 59
návštěv včera: 62
návštěv za měsíc: 486
návštěv celkem: 17790

Home Tipy, triky, návody VZHLED, GRAFIKA Změna rozlišení obrazovky
Změna rozlišení obrazovky Tisk Email
Hodnocení uživatelů: / 0
NejhoršíNejlepší 
Napsal uživatel Administrator   
Úterý, 05 Květen 2009 12:01

function ChangeResolution(XResolution, YResolution, Depth: DWORD): BOOL;
var
  
DevMode: TDeviceMode;
  i: Integer;
begin
  
Result := False;
  i      := 0;
  while EnumDisplaySettings(nil, i, DevMode) do
    with 
DevMode do
    begin
      if 
(dmPelsWidth = XResolution) and
        
(dmPelsHeight = YResolution) and
        
(dmBitsPerPel = Depth) then
        if 
ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY) =
          DISP_CHANGE_SUCCESSFUL then
        begin
          
Result := True;
          SendMessage(HWND_BROADCAST, WM_DISPLAYCHANGE, SPI_SETNONCLIENTMETRICS, 0);
          Break;
        end;
      Inc(i);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if 
ChangeResolution(800, 600, 32) then ShowMessage('Resolution changed!');
end;

 Zdroj: http://www.swissdelphicenter.ch/en/showcode.php?id=158 

 

Přidejte svůj komentář

Vaše jméno:
Titulek:
Komentář:
bottom

top

kolik vás je ?

Právě připojeni - hostů: 7 

bottom

Založeno na Joomla!. Designed by: Free Joomla 1.5 Template, dns. Valid XHTML and CSS.