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#
|