Domäne auslesen und NetApiBufferFree(pwuiWork)

[Ati]

Moin zusammen,

ich habe aus einem Beitrag den Code zum Auslesen der Domäne gefunden. Jetzt muß ich zugeben das ich bezogen auf die API unbefleckt von jeglicher Sachkenntnis bin (ich gelobe da aber Besserung). Jedoch gibt es zum Schluß folgende Code-Zeile:NetApiBufferFree(pwuiWork); diese verursacht aber bei mir eine Fehlermeldung (liegt wahrscheinlich an der nicht eingebundenden Unit welche nicht existiert). Ach so die Fehlermeldung lautet "Undefinierter Bezeichner". Alles funktioniert zwar einwandfrei wenn ich diese Zeile ausklammere aber das ist ja wohl nicht im Sinne des Erfinders. Wie muß ich das entsprechend ändern? Hier mal der ganze entsprechende Code:

Delphi-Quellcode:

type

  PWKSTA_USER_INFO_1 = ^WKSTA_USER_INFO_1;
  WKSTA_USER_INFO_1 = packed record
    wkui1_username     : PWChar;
    wkui1_logon_domain : PWChar;
    wkui1_oth_domains  : PWChar;
    wkui1_logon_server : PWChar;
  end;

function NetWkstaUserGetInfo(
    const reserved : PWChar;
    const level    : DWord;
    const bufptr   : Pointer
    ) : NET_API_STATUS; stdcall; external 'netapi32.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  pwuiWork : PWKSTA_USER_INFO_1;

begin
  if NetWkstaUserGetInfo(nil,1,@pwuiWork) = NErr_Success then
  begin 
    try
      ShowMessage( 
        WideCharToString(pwuiWork.wkui1_logon_domain)
        );
    finally
      NetApiBufferFree(pwuiWork);
    end;
  end; 
end;