Hallo Robert,
I have changed these Procedur.
Quote:
Sub RegisterPath
Dim key
reg.RootKey(reg.rtCurrentUser)
key = "Software\RBSoft\Kokai"
reg.CreateSubKey("",key)
reg.SetStringValue(key,"Path",AppPath & "\anjin.exe")
End Sub
|
__________________
PPC: MDA Pro, 2GB SD
PPC: HTC Touch Diamond, 4GB
______________________
|