English
Forum

Regsitry Sign in "Run"

 

Michael
Axtmann
Hi,

i'd my Profan Program gladly at Computerstart Call and mach therefore one entry with way to .exe application the Profan Program under:
HKey_Local_Machine\software\Microsoft\windows\CurrentVersion\Run --> way\application.exe

however reports itself Profan at Computerstart with a crash and the wars! might the jm. too time try? or. white jm. I wrong make?

Greeting
Michael
 
03/02/12  
 




Jörg
Sellmeyer
For this must one already little more know. Z. B.: which Version have You and yet plenty importent: what power your Program. If you of your program on something zugreifst, what to that Windowsstart not yet initialized is, can the problematically his.
Teste still time yourself with a basic program, the only one Window with Window ... created.
If the crashes, lying it probably to profane, otherwise is well your Another code for Responsible.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
03/02/12  
 




Julian
Schmidt
here time one funktionierendes example. Perhaps helps it to you moreover...
CompileMarkSeparation
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#

/../Function-References/XProfan/endproc/'>ENDPROC


1.242 kB
Hochgeladen:03/02/12
Downloadcounter99
Download
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
03/02/12  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

4.543 Views

Untitledvor 0 min.
p.specht04/03/16
Heiko Dix06/25/13
Gary1234506/10/13
mein05/31/13
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie