12/11/2004, 14:07
|
| | | Fecha de Ingreso: octubre-2004 Ubicación: COLOMBIA
Mensajes: 240
Antigüedad: 20 años, 5 meses Puntos: 3 | |
NO ESE CODIGO ES PARA C, ESTE ES PARA VB:
Código:
API's RegOpenKey, RegCreateKey, RegCloseKey, RegSetValueEx
CONSTANTES HKEY_CLASSES_ROOT, ERROR_SUCCESS, REG_SZ
Sub GuardarRegistro(hkey As Long, Path As String, Value As String, Data As String)
Dim ret
RegCreateKey hkey, Path, ret
RegSetValueEx ret, Value, 0, REG_SZ, ByVal Data, Len(Data)
RegCloseKey ret
End Sub
Sub Registro()
GuardarRegistro HKEY_CLASSES_ROOT, "txtfile\shell", "NombreValor", "%SystemRoot%\system32\NOTEPAD.EXE /p %1" ' O NO SE QUE LE PONGAS AQUI
End Sub
CHAO |