[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;