المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : لتغيير دقة الشاشة

issamdnn
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;
karamofweb
13-12-2010, 04:22 PM
شكرا على المبادرة لكن الكود فيه مشكل لانه غير شغال