Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 240931 (2367)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Schirm-Auflösung unter XP
Stefan Marcel Caillet
| Datum:23.08.02 20:59 (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