Italia
Fonte/ Codesnippets

Autorun Autostart Entfernen Hinzufügen Programm Regdeletevalue Regopenkeyex

 

Julian
Schmidt

KompilierenMarkierenSeparieren
Def @Regopenkeyex(5) !"ADVAPI32","RegOpenKeyExA"
var Programm$=Par$((Upper$(DateiName(Par$(0)))="PROFAN.EXE") or (Upper$(DateiName(Par$(0)))="XPROFAN.EXE"))
CLS
Set("ErrorLevel", 0)
Var AutoRun_Name$="Programm"
var autorun&=Create("CheckBox",%hwnd,"Programm mit Windows starten?",10,20,230,20)
case Readini$("HKEY_1","Software\\Microsoft\\Windows\\CurrentVersion\\Run",AutoRun_Name$)<>"" : SetCheck autorun&,1

WhileNot iskey(27)

    waitinput

    If getfocus(autorun&)

        If GetCheck(autorun&)=1'autorun

            Writeini "HKEY_1","Software\\Microsoft\\Windows\\CurrentVersion\\Run",AutoRun_Name$=Programm$'Autostart-Programm eintragen

        else

            DeleteRegEintrag("$80000001","Software\\Microsoft\\Windows\\CurrentVersion\\Run",AutoRun_Name$)'Autostart-Programm entfernen

        Endif

    Endif

Endwhile

Proc DeleteRegEintrag

    Parameters hkey$, schluessel$, name_eintrag$
    Declare Handle#
    Dim Handle#,4
    Declare Key#
    Dim Key#,100
    String Key#,0=schluessel$
    Declare Name#
    Dim Name#,100
    String Name#,0=name_eintrag$
    @Regopenkeyex(hkey$,Key#,0,$2,Handle#)
    External("ADVAPI32","RegDeleteValueA",Long(Handle#,0),Name#)
    External("ADVAPI32","RegCloseKey",Long(Handle#,0))
    Dispose Handle#
    Dispose Key#
    Dispose Name#

EndProc

 
XProfan X2
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
23.06.2012  
 



Genau + fast sehr cool!

Bei Stringkonstanten wie z.B.: Software\Microsoft\Windows\CurrentVersion\Run
übersiehst oft die Backslashes richtig zu repräsentieren per Doppel-Backslash
einfach zur Vermeidung vom Problemen in Bezug auf Escape-Sequenzen.

Software\\Microsoft\\Windows\\CurrentVersion\\Run
 
25.06.2012  
 




Julian
Schmidt
Ok, abgeändert!
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
25.06.2012  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

9.622 Views

Untitledvor 0 min.
p.specht21.11.2021
R.Schneider20.11.2021
Uwe Lang20.11.2021
Manfred Barei19.11.2021
Di più...

Themeninformationen

Dieses Thema hat 2 subscriber:

Julian Schmidt (2x)
iF (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie