10-12-2009, 09:03 AM
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
ipdevicemode:_devicemodeA;
begin
ipdevicemode.dmColor:=clRed;
ipdevicemode.dmPelsWidth:=800;
ipdevicemode.dmPelsHeight:=600;
ChangeDisplaySettings(ipdevicemode,0);
end;