获取及设置屏幕分辨率

//获取屏幕分辨率
Function TForm1.Get_ScreenVal():String;
var
    X,Y :longint;
    A,B :string;
begin
    x := GetSystemMetrics(SM_CXSCREEN);
    Str(X,A);
    Y := GetSystemMetrics(SM_CYSCREEN);
    Str(Y,B);
    Result := A+'*'+B;
end;

//设置屏幕分辨率
function TForm1.SetSize(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;