🚀 go-pugleaf

> ==> Walker_W(�ú�)                           ˵��: 
>   
> If you use  vb for win31, you can use getprofilestring easily. 
> and if you use vb for win95, getprofilestring is ok.  
> but you can do sme actions to registry table. 
> btw, getprofilestring is easy to use. would youi please  
> paste your program ?  
 one of the sub i use this api function as follow:
Private Sub Form_Load()
    mystr = GetProfileInt("intl", "iDigits", 400)  'this function can ruturn correctly
    Dim MYSTRING As String
    'lenmystriong = GetProfileString("intl", "iDigits", "400", TEXT1.Text, 20)
    LENMYSTRING = GetProfileString("windows", "device", "NOT", MYSTRING, 50)
'this functions return 0,and the value of MYSTRING IS ""
    TEXT1.Text = MYSTRING

End Sub
'the follow is code in general model
Option explicit
Declare Function GetProfileInt Lib "kernel32" Alias "GetProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Long) As Long
Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

BTW:i use vb in win95

--
�� ��Դ: �й�ƴ�BBSվ [bbs.ustc.edu.cn]