🚀 go-pugleaf

Ti do un codice semplice da usare : ) cmq cerca in giro il registro.bas e
capisci come usarlo � un modulo indispensabile per agire sul registro.

'                                              -----------Metti in un
Modulo--------
'*
'          Esempio di creazione chiave per l'autopartenza di un exe tramite
registro /run
'
Attribute VB_Name = "mdlAutoRun"
'PUT THIS IN A .BAS MODULE, OR CHANGE DECLARATIONS TO PRIVATE

Public Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As _
String, ByVal ulOptions As Long, ByVal samDesired As Long, _
phkResult As Long) As Long

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
  hKey As Long) As Long

Public Declare Function RegSetValueEx Lib "advapi32.dll" _
 Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName _
 As String, ByVal Reserved As Long, ByVal dwType As Long, _
 lpData As Any, ByVal cbData As Long) As Long

Public Const HKEY_CURRENT_USER = &H80000001
Public Const KEY_WRITE = &H20006
Public Const REG_SZ = 1
'
'                ----------------------------Fine
Modulo-----------------------------

Da mettere nel codice :

'                                              ----------Inserire nel
codice--------
'*
'          Esempio di creazione chiave per l'autopartenza di un exe tramite
registro /run
'
Dim hregkey As Long
Dim subkey As String
Dim stringbuffer As String

subkey = "Software\Microsoft\Windows\CurrentVersion\Run"

retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, _
  KEY_WRITE, hregkey)
If retval <> 0 Then
    Debug.Print "Can't open the subkey"
    Exit Sub
End If
r$ = "c:\programmi\gryfappunti"
stringbuffer = r$ & "\" & App.EXEName & ".exe" & vbNullChar
retval = RegSetValueEx(hregkey, "My App", 0, REG_SZ, _
  ByVal stringbuffer, Len(stringbuffer))

RegCloseKey hregkeySub
'
'                               ---------Fine Codice------------

Il codice crea la kiave  in "Software\Microsoft\Windows\CurrentVersion\Run"
per autoavviare  il proramma "c:\programmi\gryfappunti" che  ho fatto per
farmi apaprire un post it ad ogni avvio di winz ^_^ tu puoi modificare le
HKEY  path a secondo di come servano a te per cgggiungere la chiave che
vuoi.