Benutzerkennwort zurücksetzen

[kuba]

@Basilikum

Hy, leider kann ich den Code nicht fehlerfrei übersetzen, ich erhalte Fehlermeldungen:

[Fehler] projekt.dpr(1414): E2003 Undefinierter Bezeichner: 'NetAPIStatus'
[Fehler] projekt.dpr(1421): E2003 Undefinierter Bezeichner: 'NetUserSetInfo'
[Fehler] projekt.dpr(1422): E2003 Undefinierter Bezeichner: 'NERR_Success'

Wie muss ich die Bezeichner deklarieren ?

KUBA

[Basilikum]

die drei Bezeichner sind wie folgte definiert:

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;

[kuba]

jetzt erhalte ich Fehlermeldung : [Fehler] watch.dpr(1565): E2029 ';' erwartet, aber '.' gefunden

ist das "end" richtig ?

Delphi-Quellcode:

Type
  TUserInfo_1003                  = Packed Record
    Password                      : PWideChar;
  end;

kuba

[mkinzler]

Dann liegt der Fehler vorher im Quellcode

[kuba]

Zitat von mkinzler:

Dann liegt der Fehler vorher im Quellcode

Wenn ich den Code wieder aus dem Projekt entferne funktionierts aber (wieder) ...

Hier nochmal komplett:

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;
Type
  TUserInfo_1003                  = Packed Record
    Password                      : PWideChar;
  end;
Const
  LM20_PWLEN                      = 20;
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
  StringToWideChar(Server,BufServer,Length(BufServer));
  StringToWideChar(Username,BufUsername,Length(BufUsername));
  StringToWideChar(NewPassword,BufPassword,Length(BufPassword));

  UI1003.Password:=@BufPassword;
  Res:=NetUserSetInfo(BufServer,BufUsername,1003,@UI1003,Param_Err);
  Result:=(Res = NERR_Success);
end;

KUBA

[mkinzler]

Du solltest die Unit auch mal ordnen:

Delphi-Quellcode:

Const 
   ...
Type
   ...
Var
   ...

[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" ??

[dominikkv]

gehört zum record

[mkinzler]

Alle Konstanten unter Const
Alle Typen unter Type
Alle Variablen unter Var

[kuba]

will aber nich ...

Delphi-Quellcode:

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
  NERR_Success                 = 0;
  LM20_PWLEN                   = 20;
Type
  TUserInfo_1003                  = Packed Record
    Password                      : PWideChar;
  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
.....