XProfan

Français

Hans-Jürgen
Trog

Allen un gesundes nouveau l'an.

dans RGH's Forum habe je qui Frage déjà gestellt, eh bien aussi ici:

dans meinem kleinen Funktionstool habe je verschiedene Direktaufrufe bisher sous Windows XP. cet voudrais je gern pour Windows 8 anpassen:

Kompilieren Marque Séparation

proc benutzernamen

    @winexec("rundll32.exe keymgr.dll,KRShowKeyMgr",1)

endproc

proc montre

    @winexec("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl",0)

endproc

proc syssteuerung

    @winexec("rundll32.exe shell32.dll,Control_RunDLL",1)

endproc

proc hardwareentfernen

    @winexec("rundll32.exe shell32.dll,Control_RunDLL hotplug.dll",1)

endproc

proc drucker

    @winexec("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder",1)

endproc

proc schriftarten

    @winexec("RUNDLL32.exe SHELL32.DLL,SHHelpShortcuts_RunDLL FontsFolder",1)

endproc

'0 Allgemein
'1 Computername
'2 Hardware
'3 Erweitert
'4 Systemwiederherstellung
'5 Automatique Updates
'6 Remote

proc systemeigenschaften

    @winexec("RUNDLL32.exe SHELL32.DLL,Control_RunDLL sysdm.cpl @0,0",1)

endproc

proc systComputername

    @winexec("RUNDLL32.exe SHELL32.DLL,Control_RunDLL sysdm.cpl @0,1",1)

endproc

proc systHardware

    @winexec("RUNDLL32.exe SHELL32.DLL,Control_RunDLL sysdm.cpl @0,2",1)

endproc

proc systErweitert

    @winexec("RUNDLL32.exe SHELL32.DLL,Control_RunDLL sysdm.cpl @0,3",1)

endproc

proc systWiederherst

    @winexec("RUNDLL32.exe SHELL32.DLL,Control_RunDLL sysdm.cpl @0,4",1)

endproc

proc systUpdates

    @winexec("RUNDLL32.exe SHELL32.DLL,Control_RunDLL sysdm.cpl @0,5",1)

endproc

proc systRemote

    @winexec("RUNDLL32.exe SHELL32.DLL,Control_RunDLL sysdm.cpl @0,6",1)

endproc

proc wiederherstellung

    declare sys$
    sys$= $WinPath +"\\System32\\restore\\rstrui.exe"
    @WinExec(sys$,1)

endproc

proc systemkonfiguration

    declare konf$
    konf$= $WinPath +"\\PCHealth\\HelpCtr\\Binaries\\msconfig.exe"
    @WinExec(konf$,1)

endproc

proc modem

    @winexec("RUNDLL32.exe SHELL32.DLL,Control_RunDLL modem.cpl @0,1",1)

endproc

PROC FORMATieren

    WinExec("RUNDLL32 SHELL32.DLL,SHFormatDrive",1)

ENDPROC

Proc diskcopy

    WinExec("RUNDLL32 DISKCOPY.DLL,DiskCopyRunDll",1)

ENDPROC

PROC SUCHEN

    ShellExec("C:\\","find",1)

ENDPROC

PROC Arbeitsplatz

    WinExec("explorer /n,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}",1)

ENDPROC

PROC corbeille à papier

    WinExec("explorer /n,::{645FF040-5081-101B-9F08-00AA002F954E}",1)

ENDPROC

proc internet

    @RunControl("INETCPL","@1")

endproc

proc software

    @winexec("RUNDLL32.exe shell32.dll,Control_RunDLL appwiz.cpl",1)

endproc

proc Design

    @winexec("RUNDLL32.exe shell32.dll,Control_RunDLL desk.cpl @0,-1",1)endproc

    proc Hintergrundeinstellung

        @winexec("RUNDLL32.exe shell32.dll,Control_RunDLL desk.cpl @0,0",1)

    endproc

    proc Schonerwahl

        @winexec("RUNDLL32.exe shell32.dll,Control_RunDLL desk.cpl @0,1",1)

    endproc

    proc représentation

        @winexec("RUNDLL32.exe shell32.dll,Control_RunDLL desk.cpl @0,2",1)

    endproc

    proc Einstellungen

        @winexec("RUNDLL32.exe shell32.dll,Control_RunDLL desk.cpl @0,3",1)

    endproc

    proc defragmentierung

        @ShellExec($WinPath+"\\system32\\dfrg.msc","open",1)

    endproc

    proc bereinigen

        @ShellExec($WinPath+"\\system32\\cleanmgr.exe","open",1)

    endproc