Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Ekran Çözünürlüğünü Değiştirmek  (Okunma sayısı 1493 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Ekran Çözünürlüğünü Değiştirmek
« : 21 Ekim 2005 15:56:18 »
Kod:  (Unknown Language)
  1. Procedure SetRes(XRes, YRes: DWord);
  2. var
  3.    lpDevMode : TDeviceMode;
  4. Begin
  5. EnumDisplaySettings(nil, 0, lpDevMode);
  6. lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
  7. lpDevMode.dmPelsWidth:=XRes;
  8. lpDevMode.dmPelsHeight:=YRes;
  9. ChangeDisplaySettings(lpDevMode, 0);
  10. End;



Kullanım Şekli
Kod:  (Unknown Language)
  1. Setres(1024, 768);
« Son Düzenleme: 10 Haziran 2009 22:30:34 by Kocaturk »
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::
Sayfa: [1]   Yukarı git
« önceki sonraki »