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;