Français
Source/ Codesnippets

Button non récente Startenmit Windows

 
de Alfrad Wagner:

qui erste Code
Windows récente trop starten,avec oui ou bien non Button zur sélection.
KompilierenMarqueSéparation
 $P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE BUTTON1&,ENDE%
WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW 22,20-351,190
SETTRUECOLOR 1
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
POPUP "Datei"
Appendmenu 100,"&Beenden ..."
Appendmenu 101,"&Windows neustarten ..."
Button1& = @Control("Button","Beenden",$50008000,0240,0110,0090,0020,%HWND,1002,%Hinstance)

PROC BUTTON1_ONCLICK

    GETMESSAGE
    @MessageBox
    ("Die Änderungen werden erst nach dem Neustart des Computers wirksam .
    Soll der Computer jetzt neu gestartet werden ?","Geänderte Systemeinstellungen",36)

    If (%Button = 6) Ja Button

        winexec("SHUTDOWN -r -t 00",0)Für Windows XP
        ExitWindows 1 Für Windows 2k

    Elseif (%Button = 7) Nein Button

        Ende%=1

    Endif

ENDPROC

SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

        BUTTON1_ONCLICK

    ELSEIF Menuitem(100)

        Ende%=1

    ELSEIF Menuitem(101)

        GETMESSAGE
        @MessageBox
        ("Die Änderungen werden erst nach dem Neustart des Computers wirksam .
        Soll der Computer jetzt neu gestartet werden ?
        Diese Meldung kann unter Optionen ausgeschaltet werden .","Geänderte Systemeinstellungen",36)

        If (%Button = 6) Ja Button

            winexec("SHUTDOWN -r -t 00",0)Für Windows XP
            ExitWindows 1 Für Windows 2k

        Elseif (%Button = 7) Nein Button

            Ende%=1

        Endif

    END
WEND
 
09.08.2005  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

2.194 Views

Untitledvor 0 min.
Gast.081526.08.2024
Profanet25.10.2011

Themeninformationen

cet Thema hat 1 participant:

iF (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie