Einzelnen Beitrag anzeigen

Ajin

Registriert seit: 23. Feb 2006
Ort: Mons
252 Beiträge
 
Delphi 2010 Professional
 
#1

EnumUsers Ergebnis darstellen

  Alt 23. Feb 2008, 11:59
Hallo DP!

Ich möchte alle Benutzerkonten in einer Combobox darstellen. Über de Forensuche bin ich auf Luckies genialem EnumUsers bzw seiner MpuNTUser.pas gestossen.

Mit
EnumUsers('127.0.0.1',FILTER_NORMAL_ACCOUNT); Müsste ich alle lokalen Benutzer als TStringArray zurückbekommen. Um das StringArray aber als Stringlist umzuwandeln hab ich folgendes probiert:

Delphi-Quellcode:
procedure TFscript.Button1Click(Sender: TObject);
var
idx : Integer;
sl:Tstrings;
begin
 sl:=TStringlist.create;
 for idx:=Low(EnumUsers('127.0.0.1',FILTER_NORMAL_ACCOUNT)) to High(EnumUsers('127.0.0.1',FILTER_NORMAL_ACCOUNT)) do
 try
    sl.Add(EnumUsers('127.0.0.1',FILTER_NORMAL_ACCOUNT)[idx]);
 finally
 sl.Free;
 end;
end;
etwas umständlich aber ich war der Meinung es könnte klappen. Leider ists eine ungültige Zeigeroperation und ich weiss nicht wie ich jetzt die user in die Combobox packen kann bzw in eine Stringlist.

Wie kann ich das lösen?
  Mit Zitat antworten Zitat