XProfan

Français

Michael
Axtmann

Salut,

je serait mon Profan Programme volontiers beim Computerstart appel et mach deswegen un Eintrag avec Pfad zur .exe Anwendung des Profan Programms sous:
HKey_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run --> Pfad\Anwendung.exe

cependant meldet sich Profan beim Computerstart avec einem Absturz et cela wars! Könnte cela jm. aussi la fois essayer? Bzw. sais jm. quoi je faux fais?

Salut
Michael

02.03.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Pour cette doit on déjà quelque chose plus savons. Z. B.: quelle Version la hâte Du et encore viel wichtiger: quoi pouvoir Dein Programme. si Du avec Deinem Programme sur quelque chose zugreifst, quoi zum Windowsstart encore pas initialisiert ist, peux cela problematisch son.
Teste doch la fois selber avec einem Minimalprogramm, cela seulement un la fenêtre avec Fenêtre ... erzeugt.
si cela abstürzt, liegt es wahrscheinlich à Profan, sonst ist wohl Dein weiterer Code pour responsable.

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

02.03.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

ici la fois un funktionierendes Beispiel. Vlt hilft es dir plus...
Kompilieren Marque Séparation

Def @Regopenkeyex(5) !"ADVAPI32","RegOpenKeyExA"
Def @Regdeletevalue(2) !"ADVAPI32","RegDeleteValueA"
Def @Regclosekey(1) !"ADVAPI32","RegCloseKey"
Def DateiName(1) SubStr$(@$(1),-1,"\\")
Def DateiPfad(1) Translate$(@$(1),("\\" + DateiName(@$(1))),"")
DEF GetSysColor(1)!"USER32","GetSysColor"
var Programm$=Par$(Par$(If((Upper$(SubStr$(Par$(0), -1, "\\"))="PROFAN.EXE") or (Upper$(SubStr$(Par$(0), -1, "\\"))="XPROFAN.EXE"),1,0)))
Set("ErrorLevel", 0)
Window 100,120-400,200
Windowstyle "Beispiel-Programm zum Autostart"
cls GetSysColor(15)
var speichern&=Create("Button",%hwnd,"Speichern",width(%hwnd)-120,height(%hwnd)-45,110,35)
var abbrechen&=Create("Button",%hwnd,"Abbrechen",10,height(%hwnd)-45,110,35)
Create("GroupBox",%hwnd,"Autorun:",10,10,width(%hwnd)-20,60)
var autorun&=Create("CheckBox",%hwnd,"Programm mit Windows starten?",30,35,230,20)
case Readini$("HKEY_1","Software\Microsoft\Windows\CurrentVersion\Run","Beispiel-Programm")<>"" : SetCheck autorun&,1

whilenot (getfocus(abbrechen&) or iskey(27))

    waitinput

    if getfocus(speichern&)

        if GetCheck(autorun&)=1'autorun

            Writeini "HKEY_1","Software\Microsoft\Windows\CurrentVersion\Run","Beispiel-Programm"=DateiPfad(Programm$) + "\Beispiel.exe"

        else

            DeleteRegEintrag("$80000001","Software\Microsoft\Windows\CurrentVersion\Run","Beispiel-Programm")

        Endif

        break

    Endif

Endwhile

end

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$
    Print Regopenkeyex(hkey$,Key#,0,$2,Handle#)
    Print Regdeletevalue(@Long(Handle#,0),Name#)
    Print Regclosekey(@Long(Handle#,0))
    Dispose Handle#
    Dispose Key#
    Dispose Name#

/../funktionsreferenzen/XProfan/endproc/'>ENDPROC