Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Bildschirmauflösung ändern
Autor: Jens (---.dip0.t-ipconnect.de)
Datum:   02.11.18 16:30

Tjo, ich komm da irgendwie nicht so recht weiter...
Kennt einer von Euch das, was bei XProfan dabei is - unter der Hilfe von Bildschirmschonern...
Es ist als kleiner Quelltext vorhanden, der bei mir. auch nicht mit gutem Zureden, nicht laufen möchte. Win10 /x ProfanX4

Für diejenigen die ihn nicht kennen - ich poste ihn mal kurz...

    '-Begin-----------------------------------------------------------------
   '-HeaderFiles---------------------------------------------------------
 
     $H Windows.ph
     $H Structs.ph
 
   '-GlobalVariables-----------------------------------------------------
     Declare OldWidth&, OldHeight&
   '-Procedure ChangeScreenResolution------------------------------------
     Proc ChangeScreenResolution
       Parameters NewWidth&, NewHeight&
       Declare i&, Result&
       Declare DevMode#
       Struct DevMode = ~DEVMODE
       Dim DevMode#, DevMode
       Clear i&
       Repeat
       Result& = ~EnumDisplaySettings(0, i&, DevMode#)
       Inc i&
 
       Until Result& = 0
       With DevMode#
         .dmFields& = ~DM_PELSWIDTH | ~DM_PELSHEIGHT
         .dmPelsWidth& = NewWidth&
         .dmPelsHeight& = NewHeight&
       EndWith
 
       Result& = ~ChangeDisplaySettings(DevMode#, 0)
 
       Dispose DevMode#
       Return Result&
     EndProc
  
   '-Main----------------------------------------------------------------
 
     OldWidth& = %MaxX
     OldHeight& = %MaxY
 
 
     '-Die Bildschirmaufloesung wird auf 800 mal 600 Pixel geändert------
       If ChangeScreenResolution(800, 600) = ~DISP_CHANGE_SUCCESSFUL
         MessageBox("Auflösung auf vorherigen Wert ändern?", \
           "Rückfrage", ~MB_ICONQUESTION)
         ChangeScreenResolution(OldWidth&, OldHeight&)
      EndIf
 '-End-------------------------------------------------------------------
 


Wenn das zum laufen kommen könnte, würde mir das evtl. schon mal etwas weiterhelfen. Dann kann ich damit weitere Nächte damit rumexperimentieren...

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Bildschirmauflösung ändern  Neu
Georg Jablonowski 26.10.05 01:31 
 Re: Bildschirmauflösung ändern  Neu
Horst Horn 26.10.05 06:51 
 Re: Bildschirmauflösung ändern  Neu
dieter schmitz 27.10.05 10:58 
 Re: Bildschirmauflösung ändern  Neu
Horst Horn 27.10.05 11:39 
 Re: Bildschirmauflösung ändern  Neu
Jens 26.10.18 21:30 
 Re: Bildschirmauflösung ändern  Neu
Jörg Sellmeyer 27.10.18 20:12 
 Danke!  Neu
Georg Jablonowski 26.10.05 21:17 
 Re: Bildschirmauflösung ändern  Neu
Jens 27.10.18 20:27 
 Re: Bildschirmauflösung ändern  Neu
Jens 02.11.18 16:30 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org