XProfan

trop 1. Welches Installprogramm utilise Du car? là simple dans qui Doku blättern.

trop 2. Hardwaredefekte? [...]

Nachtrag: qui absolu einfachste variante zum Anlegen eines à gauche ist une .url Dossier - im Format einer INI. Bien sûr seulement si Du pas juste une Shortcut (.lnk) anlegen veux.

Schreibe dans un Dossier nommé meinProgramm.url folgende Zeilen:

[InternetShortcut]
URL=c:meinprogrammprogramm.exe

et déjà ist es un brauchbarer Link (si aussi avec falschem Icon)

GDL

@iF

merci pour qui Hinweise.
Werde den Code de deinem Link testen.

Pour langen chercher, fand Je l' sous Snippet gesaugten Code wieder, qui mir avant long Zeit chez einem anderen Prog Schwierigkeiten machte.
Kompilieren Marque Séparation

 $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 Fin

avec diesem Code ging es chez 3 meiner calculateur bien, beim 4ten Gabs ensuite bunte Streifen am Monitor et un helles siffler.So vite habe je ensuite encore nie den Resetknopf gedrückt.

trop dem Shortcut: ca heist, si mon Proggi nen Schortcut beim ersten Aufruf anlegt, wird mon Proggi ensuite anschliessend chez chaque Windowsstart automatisch gestartet?

salut
Georg

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

Jörg
Sellmeyer

allô Georg,
avec cela funktioniert es zumindest de W95 jusqu'à XP:
Kompilieren Marque Séparation

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

Vue pourrait oui la fois simple quelqu'un bestätigen ou bien verneinen, ensuite savons wir wieder plus.
Salut
Jörg

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

Rolf
Koch

sous Vue bekomme je korrekt den Eintrag zurückgeliefert.

@Georg: Wirst arrêt ne Auflösung eingestellt avons qui qui Monitor pas brachte - juste abîmé sollte mais aussi un Monitor en pas aller - sei car c'est ne Uraltkiste qui mais genauso bien à Altersschwäche dahinvegetieren pourrait.

Einen alten Monitor serait je eh pas trop avec Auflösungsänderungen tracasser.

Frank
Abbing

Psssiooong!

GDL

allô iF,

je weis oui pas quelle Grafikkarten, bzw. Monitore à den Kisten hängen.et cela es ältere jusqu'à Steinzeitkisten sommes ;davon peux on sortir.
on devrait irgendwie ermitteln peut quoi qui Kiste peux.

salut
Georg

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

qui Proc Enumdisplay tut oui c'est ca ca.

Frank Abbing

Psssiooong!

Rattaplöhm!

GDL

Irgendwie peux es mais pas aller, là mon Code oui alle Opportunités anscheinend abfrägt et quand même pfeifts avec Streifenbild. Stelle je mais qui Schrift de grosse Schriften sur kleine Schriften et qui Zeilenfrequenz manuel um gehts.
Irgendwie haut cela ganze pas hin.

salut
Georg

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