Bitmasken prüfen

[Hawkeye219]

Etwa so? (ungetestet!)

Delphi-Quellcode:

function ServerTypeToStringArray(svType: DWORD): TStringDynArray;
  const cStrings : array [0..31] of string 
                 = ('LAN Manager workstation', 'LAN Manager server',...);
  var ii : Integer;    
begin
  for ii := 0 to 31 do
  begin
    if Odd(svType) then
    begin
      setlength(result, length(result) + 1);
      result[High(result)] := cStrings[ii];
      svType := svType SHR 1;
    end;
  end;
end;

Das String-Array muß Du natürlich vollständig füllen und evtl. Sonderfälle (z.B. SV_TYPE_ALL) vorher abfangen.

Gruß Hawkeye