Benutzerkennwort zurücksetzen

[kuba]

so ?

Delphi-Quellcode:

Const
  NERR_Success                 = 0;
Type
  NetAPIStatus                 = Integer;

Function NetUserSetInfo(ServerName,UserName : PWideChar;Level : Integer;
Const Buf : Pointer; Var Parm_Err : DWORD) : NetAPIStatus; StdCall;

Function LM_NetUserSetServerPassword(Const Server,UserName,NewPassword : String) : Boolean;
Const
  LM20_PWLEN                      = 20;
Type
  TUserInfo_1003                  = Packed Record
    Password                      : PWideChar;
  end;                                                     <<<<<---- dieses end !!
Var
  BufServer                       : Array[0..63] Of WideChar;
  BufUsername                     : Array[0..63] Of WideChar;
  BufPassword                     : Array[0..LM20_PWLEN - 1] Of WideChar;

  UI1003                          : TUserInfo_1003;
  Param_Err                       : DWORD;
  Res                             : NetAPIStatus;
Begin
.....

geht auch nicht, was macht das "end" ??