Cambiar el modo de la Pantalla

[JOSE NARANJO]

Hola todos.

Tengo la siguiente función para cambiar el modo de video de 800 x 600 a otra resolución. En este caso la cambio a 1024x 768. en windows XP, funciona pefectamente, pero en un windows 2000 ó 98, la barra de inicio se ubica en la mitad la pantalla y se ve mas pequeña de lo normal.

QUE PUEDO HACER.

LA FUNCION ES LA SIGUIENTE

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);

   function NuevaRes(XRes, YRes: DWord):integer;
   var
     lpDevMode : TDeviceMode;
   begin
       EnumDisplaySettings(nil, 0, lpDevMode);
       lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
       lpDevMode.dmPelsWidth:=XRes;
       lpDevMode.dmPelsHeight:=YRes;
       NuevaRes:=ChangeDisplaySettings(lpDevMode, 0);
   end;

 begin
   NuevaRes(1024,768);
 end;

[dec]

Hola,

No respondo a tu pregunta. Sin embargo, me parece que sería bueno conocer las resoluciones de pantalla disponibles, por si acaso tuviera algo que ver el problema conque tratemos de cambiar a una resolución, sencillamente, no disponible.

El siguiente código lo recogí "por ahí",... de veras no apunté de dónde y ahora no lo recuerdo. Necesitas un formulario, un botón, un "listbox" y un "edit".

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  DC: THandle;    // display context
  Bits: Integer;    // bits per pixel
  HRes: Integer;    // horizontal resolution
  VRes: Integer;    // vertical resolution
  DM: TDevMode;   // to Save EnumDisplaySettings
  ModeNum: Longint;    // video mode number
  Ok: Bool;
  fre: Integer;    // refresh rate
begin
  DC := GetDC(Handle);
  Bits := GetDeviceCaps(DC, BITSPIXEL);
  HRes := GetDeviceCaps(DC, HORZRES);
  VRes := GetDeviceCaps(DC, VERTRES);
  fre := GetDeviceCaps(DC, VREFRESH);
  // Show Current Resolution
  Edit1.Text := Format('%d bit, %d x %d', [Bits, HRes, VRes]);
  ReleaseDC(Handle, DC); // Show all modes available ModeNum := 0;  // The 1st one
  ModeNum := 0;
  EnumDisplaySettings(nil, ModeNum, DM);
  ListBox1.Items.Add(Format('%d bit, %d x %d bei %d Hz', [DM.dmBitsPerPel,
    DM.dmPelsWidth, DM.dmPelsHeight, Dm.dmDisplayFrequency]));
  Ok := True;
  while Ok do
  begin
    Inc(ModeNum); // Get next one
    Ok := EnumDisplaySettings(nil, ModeNum, DM);
    ListBox1.Items.Add(Format('%d bit, %d x %d bei %d Hz', [DM.dmBitsPerPel,
      DM.dmPelsWidth, DM.dmPelsHeight, Dm.dmDisplayFrequency]));
  end;
end;

En el "listbox" te aparecerá una lista con las resoluciones soportadas (o eso creo) y en el "edit" la que esté en uso. Siempre puedes adaptar el código más o menos según tus necesidades.

[JOSE NARANJO]

Hola,

Estuve implementado la rutina, pero desafortunadamente solo sirve para saber que resoluciones soporta el computador en donde se instala el programa.

Sigo con el problema que la barra de herramientas se ubica en la mitad de la pantalla. pareciera un problema de refrech.