س/ كيفة التحكم بإعدادات العرض ؟

procedure TForm1[color= #339933;].Button2Click[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

[color= #000000; font-weight: bold;]var

Hdc [color= #339933;]: THandle[color= #339933;];

ScreenHeight[color= #339933;],ScreenWidth [color= #339933;]: Real[color= #339933;];

begin

Hdc [color= #339933;]:= Form50[color= #339933;].Canvas[color= #339933;].Handle[color= #339933;];

ScreenHeight [color= #339933;]:= GetDeviceCaps[color= #009900;](Hdc[color= #339933;],VertRes[color= #009900;])[color= #339933;];

ScreenWidth [color= #339933;]:= GetDeviceCaps[color= #009900;](Hdc[color= #339933;],HorzRes[color= #009900;])[color= #339933;];

showmessage[color= #009900;](floattostr[color= #009900;](ScreenHeight[color= #009900;])[color= #339933;]+[color= #0000ff;]'/'[color= #339933;]+floattostr[color= #009900;](ScreenWidth[color= #009900;])[color= #009900;])[color= #339933;];

[color= #990000;]end[color= #339933;];

[color= #666666; font-style: italic;]// Fonction de changement de résolution de l'écran

[color= #000000; font-weight: bold;]Function ChangeResolution[color= #009900;](Width[color= #339933;],Height[color= #339933;]:Integer[color= #339933;];Memoriser[color= #339933;]:Boolean[color= #009900;])[color= #339933;]:Boolean[color= #339933;];

[color= #000000; font-weight: bold;]Var Dev[color= #339933;]:TDeviceMode[color= #339933;];

Flg[color= #339933;]:Cardinal[color= #339933;];

Begin

[color= #666666; font-style: italic;]// Nouvelle résolution choisie

Dev[color= #339933;].dmPelsWidth [color= #339933;]:= Width[color= #339933;];

Dev[color= #339933;].dmPelsHeight [color= #339933;]:= Height[color= #339933;];

Dev[color= #339933;].dmFields [color= #339933;]:= DM_PELSWIDTH Or DM_PELSHEIGHT[color= #339933;];

[color= #666666; font-style: italic;]// Changement de la résolution

[color= #b1b100;]If Memoriser Then Flg[color= #339933;]:=CDS_UPDATEREGISTRY

[color= #b1b100;]Else Flg[color= #339933;]:=[color= #cc66cc;]0[color= #339933;];

Result[color= #339933;]:=ChangeDisplaySettings[color= #009900;](Dev[color= #339933;],Flg[color= #009900;]) [color= #339933;]= DISP_CHANGE_SUCCESSFUL[color= #339933;];

[color= #990000;]End[color= #339933;];

 

procedure TForm1[color= #339933;].Button1Click[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

begin

ChangeResolution[color= #009900;]([color= #cc66cc;]800 [color= #339933;],[color= #cc66cc;]600[color= #339933;],[color= #000000; font-weight: bold;]true[color= #009900;])[color= #339933;];

[color= #990000;]end[color= #339933;];

[color= #990000;]end[color= #339933;].