تغییر Resolution صفحه نمایش

[SReza1]

سلام
چطور میتونم resoltion را به 640*480 تنظیم کنم! یعنی هر وقت برنامم اجرا شه تغییر rESOLTIO بدم
ممنون


عنوان این بحث توسط کاربر DELPHIAREA تغییر داده شد.

[(امید)]

SetResolution(x,y);

[SReza1]

باید چه چیزی رو use کنیم تا این دستور کار کنه
در کدوم دلفی ها کار میکنه؟

[Mashatan]

برای این کار میتونی از ChangeDisplaySettings استفاده کنی
توی Help دلفی کامل توضیح داده
ارادتمند مشاطان

[(امید)]

با سلام
من تو دلفی 5 با اون کد کار می کنم .یونیتی هم لازم به یوزز کردن نبود.

[SReza1]

اینم جواب :lol:
procedure TForm1.Button1Click(Sender: TObject);
Var DM : DEVMODE;
begin
DM.dmSize := Sizeof(DEVMODE);
DM.dmPelsWidth := 640;
DM.dmPelsHeight := 480;
DM.dmBitsPerPel := 16;
DM.dmDisplayFlags := DM_PELSHEIGHT Or DM_PELSWIDTH Or DM_BITSPERPEL;
ChangeDisplaySettings(DM,CDS_FULLSCREEN Or CDS_UPDATEREGISTRY Or CDS_RESET);
end;


ولی آقا امید منکه تو delphi 7 نتونستم اون دستوریو که گفتی اجرا کنم!! اگه کسی تونست به منم بگه!!!
:twisted: :P :shock: :D :lol: