FRIHOST FORUMS SEARCH FAQ TOS BLOGS COMPETITIONS
You are invited to Log in or Register a free Frihost Account!

Tulis File INI




Function tulisini
Lparameters tcsection, tckeyname, tcvalue
Local lcinifile, lnerror, lnretval, lcbuffer, lnerror
Declare Long WritePrivateProfileString In WIN32API String, String, String, String
Declare Long WritePrivateProfileSection In WIN32API String, String, String
Declare Long GetLastError In WIN32API
Set Textmerge On Noshow
lclokasi = Sys(5)+Sys(2003)+'\'+Alltrim("config.ini")
lnerror = WritePrivateProfileString(tcsection, tckeyname, tcvalue, lclokasi)
If lnerror=0
This.nlasterror = GetLastError()
Else
This.nlasterror = 0
Endif
Return Iif(lnerror=0, This.nlasterror, 0)
Endfunc



0 blog comments below




FRIHOST HOME | FAQ | TOS | ABOUT US | CONTACT US | SITE MAP
© 2005-2011 Frihost, forums powered by phpBB.