Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 241819 (3255)
  Suchen
 Zurück zur Übersicht
 AutorThema: Schirm-Auflösung unter XP
Stefan Marcel Caillet
Datum:23.08.02 20:59 Antwortenals Email verschicken (desitron_5@bluewin.ch) 


Ich arbeite mit Profan 7.0f unter Windows XP. Wie kann ich mit PROFAN die Bildschirm-Auflösung ändern? Ich habe zwar irgendwo in einem Profan-Forum eine Lösung gefunden, die funktioniert unter XP nur im RUN-MODUS vom Profan EDITOR - und auch da nicht ganz Korrekt. Wenn ich das Programm als EXE-Datei laufen lasse oder als PRC-Datei mit der PROFRUN32.EXE Aufrufe Klappt es nicht. Teilweise Stürzt dabei sogar Windows XP ab. (so nach dem 2. oder 3. Umschaltversuch.) Auch der DESKTOP-Hintergrund wird nicht richtig angezeigt.
Weiss jemand rat?. Herzlichen Dank im Voraus.

Hier das Programm:

declare a%,dev#,altf%,altx%,alty%
dim dev#,148
cls
def ChangeDisplaySettings(2)!"USER32","ChangeDisplaySettingsA"
def EnumDisplaySettings(3)!"USER32","EnumDisplaySettingsA"

let a%=0
while EnumDisplaySettings(0,a%,dev#)
inc a%
endwhile

let altf%=%bitspixel
let altx%=%maxx
let alty%=%maxy

long dev#,104=32
long dev#,108=1280
long dev#,112=1024
long dev#,0=$1C0000
ChangeDisplaySettings(dev#,0)

cls
print "taste drücken"
waitinput

long dev#,104=altf%
long dev#,108=altx%
long dev#,112=alty%

let a%=ChangeDisplaySettings(dev#,0)

dispose dev#



 Zurück zur Übersicht