Saya juga pengen tau gimana caranya. Bisa kirimin contoh codingnya ga? :D thx b4
(Made) --- Jimmy <[EMAIL PROTECTED]> wrote: > oke oke thanks > uda berhasil > > regards, > > Jimmy > > --- In [email protected], LiveDeviL > <[EMAIL PROTECTED]> > wrote: > > > > lho... > > kalo menggunakan entry hex berhasil, mengapa harus > dihapal hex nya?? > > kan tinggal mendeklarasikan di module > > > > Public Const HKEY_CURRENT_USER = &H80000001 > > Public Const HKEY_LOCAL_MACHINE = &H80000002 > > > > CMIIW > > > > regards, > > LiveDeviL > > > > On 10/8/05, Jimmy <[EMAIL PROTECTED]> wrote: > > > > > > Thanks untuk sarannya, tapi tujuan awal saya > membuat coding itu untuk > > > membuat entry ODBC di HKEY_LOCAL_MACHINE atau di > HKEY_CURRENT_USER, > > > setau saya untuk membuat entry itu harus pakai > function API, kalo > > > pakai fungsi SaveSetting tadi kan menyimpan di > entry Software\VB > > > Application ... > > > Saya sempat mengubah HKEY_LOCAL_MACHINE menjadi > entry heksadecimalnya, > > > dan berhasil, tapi coding jadi tidak enak untuk > debug karena harus tau > > > dan hapal heksadecimalnya > > > Mungkin ada saran coding untuk meregister ODBC > dari program ? > > > > > > --- In [email protected], LiveDeviL > <[EMAIL PROTECTED]> > > > wrote: > > > > > > > > hello... > > > > sekedar saran saja... > > > > ada cara yg lebih mudah untuk mengakses > registry windows... > > > > tanpa menggunakan API sama sekali... > > > > yaitu dengan perintah sbb : > > > > Procedure SaveSetting (AppName As String, > Section As String, Key As > > > String, > > > > Setting As String) untuk menulis ke registry > > > > Function GetSetting (AppName As String, > Section As String, Key As > > > String, > > > > [Default] ) As String untuk membaca dari > registry > > > > > > > > contoh penggunaan: > > > > Private Sub Command1_Click() > > > > Dim strDBPath As String > > > > > > > > strDBPath = GetSetting("NamaProgram", > "Setting", "DBPath") > > > > If strDBPath="" then > > > > SaveSetting "NamaProgram", "Settings", > "DBPath", App.Path > > > > strDBPath = GetSetting("NamaProgram", > "Setting", "DBPath") > > > > End If > > > > OpenDB strDBPath > > > > End Sub > > > > > > > > Semoga membantu... > > > > > > > > regards, > > > > LiveDeviL > > > > > > > > On 10/8/05, Jimmy <[EMAIL PROTECTED]> wrote: > > > > > > > > > > Hi all, > > > > > > > > > > saya sedang buat program VB6 buat nulis ke > registry, udah buka > > > manual > > > > > MSDN dll, syntaxnya seperti ini tapi kok > masih error yah.... ada > > > yang > > > > > bisa kasih pencerahan ? I need it urgent! > > > > > > > > > > Thanks!!!!! > > > > > > > > > > Regards, > > > > > > > > > > > > > > > Jay > > > > > > > > > > > > > > > Listingnya : > > > > > > > > > > Private Declare Function RegCreateKeyEx Lib > "advapi32.dll" Alias > > > > > "RegCreateKeyExA" _ > > > > > (ByVal hKey As Long, ByVal lpSubKey As > String, ByVal Reserved As > > > > > Long, _ > > > > > ByVal lpClass As Long, ByVal dwOptions As > Long, _ > > > > > ByVal samDesired As Long, ByVal > lpSecurityAttributes As Long, _ > > > > > phkResult As Long, lpdwDisposition As Long) > As Long > > > > > > > > > > Private 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 > > > > > > > > > > Private 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 > > > > > > > > > > Private Declare Function RegCloseKey Lib > "advapi32.dll" (ByVal > > > hKey As > > > > > Long) _ > > > > > As Long > > > > > > > > > > Private Function CreateRegistryKey(ByVal > hKey As Long, ByVal > > > KeyName > > > > > As String) As Boolean > > > > > Dim handle As Long, disp As Long > > > > > If RegCreateKeyEx(hKey, KeyName, 0, 0, > REG_OPTION_NON_VOLATILE, > > > > > KEY_ALL_ACCESS, 0, handle, disp) <> > ERROR_SUCCESS Then > > > > > Err.Raise 1001, , "Unable to create the > registry key" > > > > > > > > > > Else > > > > > ' Return True if the key already existed. > > > > > If disp = 2 Then > > > > > MsgBox "open" > > > > > CreateRegistryKey = True > > > > > ' Close the key. > > > > > > > > > > End If > > > > > RegCloseKey handle > > > > > End If > > > > > End Function > > > > > > > > > > Private Sub Form_Load() > > > > > CreateRegistryKey HKEY_CURRENT_USER, > "Software\SIPB" > > > > > > > > > > Dim handle As Long > > > > > > > > > > If RegOpenKeyEx(HKEY_CURRENT_USER, > "Software\SIPB", 0, KEY_WRITE, > > > > > handle) Then > > > > > MsgBox "cannot open" > > > > > Else > > > > > > > > > > Dim strvalue As String > > > > > ' We want to add a "LastLogin" value, of > type string. > > > > > strvalue = "test" > > > > > ' Strings must be passed using ByVal. > > > > > RegSetValueEx handle, "Description", 0, > REG_SZ, ByVal strvalue, > > > > > Len(strvalue) > > > > > ' Don't forget to close the key. > > > > > RegCloseKey handle > > > > > > > > > > End If > > > > > End Sub > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Untuk keluar dari millis ini, kirim email > kosong ke: > > > > > [EMAIL PROTECTED] > > > > > > > > > > > === message truncated === __________________________________ Yahoo! Music Unlimited Access over 1 million songs. Try it free. http://music.yahoo.com/unlimited/ ------------------------ Yahoo! Groups Sponsor --------------------~--> Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life. http://us.click.yahoo.com/A77XvD/vlQLAA/TtwFAA/k7folB/TM --------------------------------------------------------------------~-> Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
