Domäne auslesen unter Windows98

[Ati]

Delphi-Quellcode:

function Domaene (const AItems:TStrings):String;
var
  NetWkstaUserGetInfo: TcsNetWkstaUserGetInfo;
  pwuiWork : PWKSTA_USER_INFO_1;
  Handle: THandle;
  NetApiBufferFree:TNetApiBufferFree;
begin

  Handle := LoadLibrary('netapi32.dll');
  if Handle <> 0 then begin
  NetWkstaUserGetInfo := GetProcAddress(Handle,'NetWkstaUserGetInfo');
  if @NetWkstaUserGetInfo <> nil then begin
  if NetWkstaUserGetInfo(nil,1,@pwuiWork) = NErr_Success then
  begin
    try
     aitems.Add('Domäne:              '+WideCharToString(pwuiWork.wkui1_logon_domain));
    finally
    NetApiBufferFree(pwuiWork);
    end;
  end;
  end;
  end;
end;

Habe es geändert so wie Du gesagt hast und trotzdem kommt noch die Fehlermeldung.