Resolucion del monitor, Puedo saber cual es?

[Loviedo]

Encontrado en algún sitio

X := GetSysTemMetrics(SM_CXSCREEN); {Ancho}
Y := GetSysTemMetrics(SM_CYSCREEN); {Alto}

Para cambiar resolución:

function DynamicResolution(X, Y: word): BOOL;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0)= DISP_CHANGE_SUCCESSFUL;
end;
end;

[slat]

tambien puedes obtener la resolucion con las propiedades width y height del objeto Tscreen

Código Delphi [-]
function Resolucion: string;
var
x, y: integer;
begin
x:=screen.Width;
y:=screen.Height;
result:=inttostr(x)+' x '+inttostr(y);
end;

[Jorge Taveras]

Estimados amigos, las dos ayudas me fueron muy utiles. hice un formulario donde se informa la resolucion del monitor y un moton que la mueve de 800 x 600 a 1024 x768, lo que hace que el usuario pueda jugar con la resulucion desde el mismo programa. Me falta el origen de mi inquietud que es ajustar el programa a la resolucion, pero voy por buen camino. Gracias mil.