Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 241168 (2604)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Benutzerkonten
Jürgen Baier
| Datum:04.05.02 12:29 (Juergen.Baier@gmx.de) |
Hallo! Ist es möglich irgendwie herauszubekommen, wenn mehrere Personen in der Benutzerkontenverwaltung darin stehen, wie diese dann heißen. Müsste diese auslesen und weiterverarbeiten können. Gibt es da irgendeine API oder andere Möglichkeit? Danke!
Gerhard Putschalka
| Datum:05.05.02 16:00 (g.putschalka@utanet.at) |
Hallo Jürgen, was genau verstehst Du unter Benutzerkonten? Wenn Du eine Lösung zu einem Problem bekommen willst, solltest Du das Problem möglichst genau beschreiben (welche Art von Datei, welche Profanversion, welche Windowsversion). Willst Du den ganzen Inhalt oder nur einen Teil der Datei verarbeiten? Mfg Gerhard.
Rolf Koch
| Datum:05.05.02 20:22 (webmaster@rokosoft.de) |
Hmmm ich glaube zu verstehen was Jürgen meint. Versuch es mal mit dieser banalen Lösung ;)
    ' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR V 2.5
    ' DATUM  05.05.2002    um  19:56 Uhr
    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
            endif
    	inc zahl%
    wend

    WHILENOT ENDE%
    WAITINPUT
       If @EQU(%KEY,2)
          LET ENDE%= 1
       ENDIF
    WEND
In der Hoffnung richtig zu liegen ... Rolf
Rolf Koch
| Datum: 05.05.02 20:29 (webmaster@rokosoft.de) |
Achtung ich hab ein Endif zuviel im Code :))) Rolf

| Zurück zur Übersicht