Título: Crear una aplicaciones multilenguje con archivo ini??
Publicado por: WarGhost en 8 Abril 2006, 17:20 pm
aver si alguien me puede ayudar, comento: Estoy haciendo un troyano y lo quiero hacerlo multilenguaje pero hacelo con archivos ini tipo prorat asi se pueden hacer mas idiomas con el archivo ya compilado pero lo que pasa esque yo utilizado esto ejemplo: Modulo:Option Explicit Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Function LeerIni(lpFileName As String, lpAppName As String, lpKeyName As String, Optional vDefault) As String Dim lpString As String Dim LTmp As Long Dim sRetVal As String
If IsMissing(vDefault) Then lpString = "" Else lpString = vDefault End If
sRetVal = String$(255, 0)
LTmp = GetPrivateProfileString(lpAppName, lpKeyName, lpString, sRetVal, Len(sRetVal), lpFileName) If LTmp = 0 Then LeerIni = lpString Else LeerIni = Left(sRetVal, LTmp) End If End Function
Sub GuardarIni(lpFileName As String, lpAppName As String, lpKeyName As String, lpString As String) Dim LTmp As Long
LTmp = WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName) End Sub
Codigo sacado de elguille
y en el form: dim variable varible1 = LeerIni("C:\español.ini", "Español","Boton1" )
command1.caption = varible1 pero el proble esque si tengo por ejemplo 100 botones hay que definir 100 variable y para un programa grande es un coñazo. ¿Hay alguna forma de no tener que definir tantas variables? ;d salu2
Título: Re: Crear una aplicaciones multilenguje con archivo ini??
Publicado por: Cicklow en 8 Abril 2006, 17:37 pm
lo metes de una: command1.caption = LeerIni("C:\español.ini", "Español","Boton1" ) suerte!
|