Function ResetEnum() As Integer
Функция сбрасывает счетчик перечислений функции EnumSettingsDisplay. Может понадобится при повторных перечислениях.
нет
Windows
#Include "window9.bi"
Dim As String Setting
Do
Setting=EnumSettingsDisplay()
If Setting<>"" Then
? Setting
Else
Exit Do
EndIf
Loop
ResetEnum
Sleep
print
Do
Setting=EnumSettingsDisplay()
If Setting<>"" Then
? Setting
Else
Exit Do
EndIf
Loop
Sleep
Created with the Personal Edition of HelpNDoc: Write EPub books for the iPad