Find in Win.ini which application is lauched at startup

[sebmaurice]

Hello

I need to read in Win.ini, [Windows] if there is any application which is loaded at startup :
Load=
Open=

How can I do this ?

Thank you very much in advance for your answer.


<a href="mailto:[email protected]">[email protected]</a>
Work with VB 5 Pro

[Matthew Gates]

Try this:

Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, ByVal _
lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As _
String) As Long

Private Function ReadINI(strsection As String, strkey As String, strfullpath As String) As String
   Dim strbuffer As String
   Let strbuffer$ = String$(750, Chr$(0&))
   Let readini$ = Left$(strbuffer$, GetPrivateProfileString(strsection$, ByVal LCase$(strkey$), "", strbuffer, Len(strbuffer), strfullpath$))
End Function


Private Sub Command1_Click()

    Dim sOpen As String
    Dim sLoad As String

    sLoad = ReadINI("Win.ini", "Load", "C:\Windows\Win.ini")
    sOpen = ReadINI("Win.ini", "Open", "C:\Windows\Win.ini")

    If Len(sLoad) = 0 Then
         Msgbox "Load="
    Else
        Msgbox "Load=" & sLoad
    End If

    If Len(sOpen) = 0 Then
         Msgbox "Open="
    Else
         Msgbox "Open=" & sOpen
    End If

End Sub