Mein quellcode sieht nun so aus.
Delphi-Quellcode:
const
Parameter:
array[0..4]
of PWChar = ('
Peter-Pan', '
Hans-Klaus',
'
OU=Heinz-DE,DC=Petra,DC=Karl,DC=net', '
Anton.Karl-Verena',
'
Claudia');
var
UebergabeParam:
array[0..4]
of PWChar;
HilfsVariable:
array[0..4]
of PWChar;
aServer, aDomain, aSub, aAccount, aPassword: PWChar;
Delphi-Quellcode:
function NetJoinDomain(const lpServer: PWChar; const lpDomain:
PWChar; const lpAccountOU: PWChar; const lpAccount: PWChar; const lpPassword:
PWChar; const fJoinOptions: DWord): NET_API_STATUS; stdcall; external
'netapi32.dll';
Delphi-Quellcode:
function bla
Api_Meldung := NetJoinDomain(UebergabeParam[0], UebergabeParam[1],
UebergabeParam[2], UebergabeParam[3], UebergabeParam[4], 0 + 1);
Api_Meldung ist vom Typ integer.
Result der
Api-Funktion ist immer noch:
Fehlernummer/Fehlermeldung/Name
"1780 / A null reference pointer was passed to the stub./ RPC_X_NULL_REF_POINTER