🚀 go-pugleaf

The string need init, it should be something like this:

    dim nLen as integer
    dim sRead as string

    sRead=string(255,0)
    nLen = GetProfileString("windows", "device", "NOT", sRead, 255)
    sRead=left$(sRead,nLen)

    Hope this help and good luck!

Jia H
Xi'an Orient
ShaanXi    China

��� wrote in message <980312.yD0sP$PBBS@bbs.ustc.edu.cn>...
>> ==> 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]