ts-soft hat geschrieben:Habe es jetzt mit beiden Codes, sowie mit TweakUi unter XP
SP2 probiert. Es geht nicht.
Template unter "Dokumente und Einstellungen\Ich\Anwendungsdaten\Vorlagen"
Probier mal ob Dir mein erster Code einen Fehler bringt:
Code: Alles auswählen
If RegCreateKeyEx_(#HKEY_CLASSES_ROOT,".pb",0,0,#REG_OPTION_NON_VOLATILE,#KEY_ALL_ACCESS,0,@key,@Disposition) = #ERROR_SUCCESS
Value$ = "PureBasic Source"
RegSetValueEx_(key,"",0,#REG_SZ,Value$,Len(Value$)+1)
RegCloseKey_(key)
Else
MessageRequester("ERROR","Eintrag 1 fehlgeschlagen")
EndIf
If RegCreateKeyEx_(#HKEY_CLASSES_ROOT,".pb\ShellNew",0,0,#REG_OPTION_NON_VOLATILE,#KEY_ALL_ACCESS,0,@key,@Disposition) = #ERROR_SUCCESS
Value$ = ""
RegSetValueEx_(key,"NullFile",0,#REG_SZ,Value$,Len(Value$)+1)
RegCloseKey_(key)
Else
MessageRequester("ERROR","Eintrag 2 fehlgeschlagen")
EndIf
If RegCreateKeyEx_(#HKEY_CLASSES_ROOT,"PureBasic Source",0,0,#REG_OPTION_NON_VOLATILE,#KEY_ALL_ACCESS,0,@key,@Disposition) = #ERROR_SUCCESS
Value$ = "PureBasic Source"
RegSetValueEx_(key,"",0,#REG_SZ,Value$,Len(Value$)+1)
RegCloseKey_(key)
Else
MessageRequester("ERROR","Eintrag 3 fehlgeschlagen")
EndIf
If RegCreateKeyEx_(#HKEY_CLASSES_ROOT,"PureBasic Source\shell\open\command",0,0,#REG_OPTION_NON_VOLATILE,#KEY_ALL_ACCESS,0,@key,@Disposition) = #ERROR_SUCCESS
Value$ = "" ; Chr(34)+OpenFileRequester("PB OPEN COMMAND","PureBasic.exe",".EXE|*.exe",0)+Chr(34)
RegSetValueEx_(key,"",0,#REG_SZ,Value$,Len(Value$)+1)
RegCloseKey_(key)
Else
MessageRequester("ERROR","Eintrag 4 fehlgeschlagen")
EndIf
Und führe den Code mal als Admin aus, danach reboot.
Alternativ habe ich beim letzten Eintrag einen Kommentar
drin, so daß man damit die Verknüpfung für "open" auswählen
kann (das OpenFileRequester(..PureBasic.exe..)).
Ich habe keine weiteren Einträge für PB drin, außer die des
Standard-PB-Editors und dann diesen Code.
Das ganze als Admin auf Win2k, und funktioniert einwandfrei.