XProfan

a 1. Welches Installprogramm nutzt Usted porque? Dort simplemente en el Doku blättern.

a 2. Hardwaredefekte? [...]

Apéndice: El absolut einfachste Variante para Anlegen uno Links es una .url Expediente - en el Formato uno INI. Natürlich sólo si no es igual una Shortcut (.lnk) invertir willst.

Schreibe en un Expediente nombre meinProgramm.url folgende Zeilen:

[InternetShortcut]
URL=c:meinprogrammprogramm.exe

y ya es una brauchbarer Link (si auch con falschem Icon)

GDL

@IF

Gracias para el Hinweise.
Werde el código de deinem Link testen.

Nach langen Suchen, fand Yo, el bajo Snippet gesaugten Code otra vez, el me antes langer Tiempo en una otro Prog Schwierigkeiten machte.
Kompilieren Marca Separación

 $H Windows.ph
 $H Structs.ph
 $H Messages.ph
 $H Commctrl.ph
 $H Shellapi.ph
Declare Bbpsettings$,Hsettings$,Wsettings$,X&
Declare Dev#,Static&,Cb&,Dummy$,Ok&,Change&,Ende&,Gc&,F$

Proc Getcurrentsettings

    Georg   Declare Retstring$,C$,Whx$,Why$,Co$
    C$ = Str$(~Getdevicecaps(~Getdc(0),~Bitspixel))
    Whx$ = Str$(~Getdevicecaps(~Getdc(0),~Horzres))
    Why$ = Str$(~Getdevicecaps(~Getdc(0),~Vertres))

    If C$ = 4

        Co$ = 16 Farben

    Elseif C$ = 8

        Co$ = 256 Farben

    Elseif C$ = 16

        Co$ = HightColor

    Elseif C$ = 32

        Co$ = TrueColor

    Endif

    Retstring$ = Whx$ +  *  + Why$ +  -  + Co$
    Return Retstring$

Endproc

Proc Enumdisplay

    Declare F$,Dd$

    While ~Enumdisplaysettings(0,X&,Dev#)

        If Long(Dev#,104) = 4

            F$ = 16 Farben

        Elseif Long(Dev#,104) = 8

            F$ = 256 Farben

        Elseif Long(Dev#,104) = 16

            F$ = HightColor

        Elseif Long(Dev#,104) = 32

            F$ = TrueColor

        Endif

        Bbpsettings$ = Bbpsettings$ + Str$(Long(Dev#,104))+|
        Hsettings$ = Hsettings$ + Str$(Long(Dev#,108))+|
        Wsettings$ = Wsettings$ + Str$(Long(Dev#,112))+|
        Dd$ = Str$(Long(Dev#,108)) +  *  + Str$(Long(Dev#,112)) +  -  + F$
        Addchoice(Cb&,Dd$)
        Inc X&

    Wend

Endproc

Windowstyle 20
Windowtitle Display-Changer
Window 10,10-250,150
Cls ~Getsyscolor(~Color_btnface)
Setdialogfont ~Getstockobject(~Default_gui_font)
Dummy$ = Getcurrentsettings()
Static& = Create(TEXT,%Hwnd,Current Settings : +Dummy$,10,10,300,24)
Cb& = ~Createwindowex($200,COMBOBOX,,~Ws_child | ~Ws_visible | ~Cbs_dropdown | ~Ws_vscroll ,10,40,220,300,%Hwnd,100,%Hinstance,0)
Sendmessage(Cb&,~Wm_setfont,~Getstockobject(~Default_gui_font),1)
Ok& = Create(BUTTON,%Hwnd,Ende,10,70,80,24)
Change& = Create(BUTTON,%Hwnd,Change,150,70,80,24)
Dim Dev#,156
Enumdisplay()
Sendmessage(Cb&,~Cb_setcursel,Sendmessage(Cb&,~Cb_findstring,0,Addr(Dummy$)),0)

Whilenot Ende&

    Waitinput

    If Getfocus(Change&)

        Setfocus(%Hwnd)
        Gc& = Sendmessage(Cb&,~Cb_getcursel,0,0)
        Long Dev#,40 = ~Dm_pelsheight | ~Dm_pelswidth | ~Dm_bitsperpel
        Long Dev#,104 = Val(Substr$(Bbpsettings$,Gc&+1,|))
        Long Dev#,108 = Val(Substr$(Hsettings$,Gc&+1,|))
        Long Dev#,112 = Val(Substr$(Wsettings$,Gc&+1,|))

        If Gettext$(Cb&) <> Mid$(Gettext$(Static&),20,100)

            If ~Changedisplaysettings(Dev#,~Cds_updateregistry) = ~Disp_change_restart

                If Long(Dev#,104) = 4

                    F$ = 16 Farben

                Elseif Long(Dev#,104) = 8

                    F$ = 256 Farben

                Elseif Long(Dev#,104) = 16

                    F$ = HightColor

                Elseif Long(Dev#,104) = 32

                    F$ = TrueColor

                Endif

                Settext Static&,Current Settings :  + Str$(Long(Dev#,108)) +  *  + Str$(Long(Dev#,112)) +  -  + F$
                External(setupapi.dll,SetupPromptReboot,0,0,0)

            Else

                Settext Static&,Current Settings : +Getcurrentsettings()

            Endif

        Else

            Messagebox(Auflösung muss nicht geändert werden,Meldung,0)

        Endif

    Elseif Getfocus(Ok&)

        Dispose Dev#
        Ende& = 1

    Endif

ass=s4 href='./../../function-references/XProfan/endwhile/'>Endwhile End

Mit diesem Code ging lo en 3 meiner Rechner bien, beim 4ten gabs entonces bunte Streifen al Monitor y una helles Pfeifen.So rápidamente Yo entonces nie el Resetknopf gedrückt.

Zu el Shortcut: Dies heist, si mein Proggi nen Schortcut beim ersten Aufruf anlegt, se mein Proggi entonces anschliessend cada Windowsstart automáticamente comenzó?

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

¡Hola Georg,
Damit funktioniert lo zumindest de W95 a XP:
Kompilieren Marca Separación

Def StartMenueAutostart(0) ReadIni$(Hkey_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,Startup)

Vista podría sí veces simplemente alguien bestätigen oder verneinen, entonces wissen wir otra vez mehr.
Saludo
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Rolf
Koch

Bajo Vista bekomme Yo korrekt el Eintrag zurückgeliefert.

@Georg: Wirst sólo ne Auflösung eingestellt haben el el Monitor no brachte - igual kaputt debería aber auch una Monitor su no ir - sei porque es ne Uraltkiste el aber genauso bien a Altersschwäche dahinvegetieren podría.

Einen alten Monitor sería Yo eh no a muy con Auflösungsänderungen quälen.

Frank
Abbing

Psssiooong!

GDL

Hola si,

Yo weis sí no welche Grafikkarten, o. Monitore a el Kisten hängen.Und el lo ältere a Steinzeitkisten son ;davon puede ser ausgehen.
Man debería irgendwie ermitteln puede lo que el Kiste kann.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

El Proc Enumdisplay tut genau dies.

Frank Abbing

Psssiooong!

Rattaplöhm!

GDL

Irgendwie kann lo pero no ir, como mein Code sí todos Möglichkeiten anscheinend abfrägt y trotzdem pfeifts con Streifenbild. Punto Yo aber el Schrift de grosse Schriften en kleine Schriften y el Zeilenfrequenz manuell en gehts.
Irgendwie haut todos no hin.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]