==============================================
Function GetSysIni (section, key)
Dim retVal As String, AppName As String, worked As Integer
    retVal = String$(255, 0)
    worked = GetPrivateProfileString(section, key, "", retVal, Len(retVal), "System.ini")
    If worked = 0 Then
	GetSysIni = "unknown"
    Else
	GetSysIni = Left(retVal, worked)
    End If
End Function