Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 241168 (2604)
  Suchen
 Zurück zur Übersicht
 AutorThema: Benutzerkonten
Jürgen Baier
Datum:04.05.02 12:29 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (webmaster@rokosoft.de) 


Achtung ich hab ein Endif zuviel im Code :)))
Rolf


 Zurück zur Übersicht