更改显示器分辨率为非标准的960*720(50分)

是否可以将显示器的分辨率改为960*720，怎么改？程序代码或工具都行，HZ Tool不行。Win2000系统。

提前一下

可以改的,Const
Orignwidth=800;
Orignheight=600;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
scaled:=true;
if (screen.width<>orignwidth) then
begin
height:=longint(height)*longint(screen.height) div orignheight;
width:=longint(width)*longint(screen.width) div orignwidth;
scaleby(screen.width , orignwidth);
end;
end;