dayat wrote:
> Hai teman2,
>
> Ada yang tau gimana cara mengakses file ber-extention *.ini (file
> konfigurasi aplikasi, dll) gak? aku kebingungan, soalnya baru belajar
> VB.
>
> gimana cara write, read disetiap bagian dan sub bagian dari data file ini.
> terimakasih yah!
>
> --
> dayat
>
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
>
>
> ------------------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
> * Visit your group "Programmer-VB
> <http://groups.yahoo.com/group/Programmer-VB>" on the web.
>
> * To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service <http://docs.yahoo.com/info/terms/>.
>
>
> ------------------------------------------------------------------------
>
saya coba jawab ya...
kalo salah tolong betulin ya (namanya juga lagi coba-coba maklum...)
oh ya contoh ini saya gunakan pada file WIN.INI lho...
pake Read fungsi API ya...
Tambahkan perintah ini pada Modul Project
Declare Function GetProfileInt Lib "Kernel32.dll" Alias "GetProfileIntA"
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As
Long) As Long
Declare Function GetProfileString Lib "Kernel32.dll" Alias
"GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As
String, ByVal lpDefault As String, ByVal lpReturnedString As String,
ByVal nSize As Long) As Long
Penggunaan pada aplikasi sbb..
Private Sub Command1_Click()
Dim ret As Byte
ret = GetProfileInt("Desktop", "WallpaperStyle", -1)
If ret = -1 Then
Else
MsgBox "Nilai [Desktop] WallpaperStyle : " & Str(ret)
End If
End Sub
Private Sub Command2_Click()
Dim buffer As String * 255
Dim x As Byte
x = GetProfileString("Desktop", "Wallpaper", "(error)", buffer, 255)
tulis = Left(buffer, x)
If tulis = "(error)" Then
Else
MsgBox "Path Wallpaper = " + tulis, , "Contoh2"
End If
End Sub
Buat Write Sbb....
Modulnya seperti ini...
Declare Function WriteProfileString Lib "kernel32.dll" Alias
"WriteProfileStringA" (ByVal lpszSection as String, ByVal lpszKeyName as
String, ByVal lpszString as String) as Long
pada aplikasi sbb....
Private Sub Command3_Click()
Dim x As Byte
x = WriteProfileString("Desktop", "Wallpaper", "C:\Windows\Blue lace.bmp")
If x = 0 Then
Else
MsgBox "Wallpaper Berubah menjadi Blue lace.bmp", ,"Contoh Write1"
End If
End Sub
Selamat mencoba....
Salam
[EMAIL PROTECTED]
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/
