XProfan

Deutsch

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Usernamen im System ermitteln
Lauffähig ab Profan-Version 6.6
-----------------------------------------------
titel:    Alle Usernamen im System ermitteln
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
-----------------------------------------------
Erklärung:
----------
!!!! MUSS NOCH ANGEPASST WERDEN !!!
Alle User herausbekommen.
SETTRUECOLOR 1
DECLARE ENDE%
DECLARE SORTEDLISTBOX1%
Declare user$[50],zahl%
WINDOWSTYLE $003F
WINDOW 22,20-640,500
WINDOWTITLE Neues Fenster
CLS @RGB(212,208,200)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
SORTEDLISTBOX1% =CREATE(SORTEDLISTBOX,%HWND,SORTEDLISTBOX1,0,0,0,0) Verstecken
Hier könnte eine Windowsversionsabfrage hin um
in den richtigen Ordner zu wechseln.
In diesem Beispiel ist es der Ordner von Windows XP
CHDIR C:Dokumente und Einstellungen
AddFiles *.*
MoveListToList(Sortedlistbox1%)
ClearList

Whilenot equ(zahl%,@GetCount(Sortedlistbox1%))

    let user$[zahl%]=@GetString$(Sortedlistbox1%,zahl%)
    let user$[zahl%]=@Translate$(user$[zahl%],[,)
    let user$[zahl%]=@Translate$(user$[zahl%],],)

    if neq$(user$[zahl%],.)

        if neq$(user$[zahl%],..)

            Hier müssen nur noch Filter für Systemordner hin
            ´z.B.: All Users rausfiltern u.s.w.
            print user$[zahl%]

        endif

    endif

    inc zahl%

wend

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ENDIF

WEND