تابعی برای تغییر وصوح صفحه نمایش

function ChangeRisol (PixelOriz,PixelVert,BitPixel : Integer) : Boolean;
var
    Dev : TDevMode;
    Chng : Integer;
begin
    Result:=False;
    Dev.dmSize:=SizeOf(Dev);
    Dev.dmPelsWidth:=PixelOriz;
    Dev.dmPelsHeight:=PixelVert;
    Dev.dmBitsPerPel:=BitPixel;
    Dev.dmDisplayFrequency:=60;
    Chng:=ChangeDisplaySettings(Dev,0);
    if (Chng=DISP_CHANGE_SUCCESSFUL) or (Chng=DISP_CHANGE_RESTART) Then
    Result:=True;
end;