==============================================
Function GetWinIni (section, key)
Dim retVal As String, AppName As String, worked As Integer
    retVal = String$(255, 0)
    worked = GetProfileString(section, key, "", retVal, Len(retVal))
    If worked = 0 Then
	GetWinIni = "unknown"
    Else
	GetWinIni = Left(retVal, worked)
    End If
End Function