如何在delphi(50分)

如何在delphi中实现一运行程序就改变分辨率，而且使程序全屏

//动态设置分辨率
function DynamicResolution(x, y: WORD): Boolean;
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;


DynamicResolution(640,480);


全屏：
form.borderStyle:=bsNone;
form.WindowState:=wsMaximized;

接受答案了.