Suche API um Workgroup zu aendern

[Christian Seehase]

Moin Mackhack,

und hier mal ein Beispiel:

Delphi-Quellcode:

type // aus lmcons.h
  NET_API_STATUS = type DWORD;

// aus lmjoin.h
function NetJoinDomain(
  const lpServer    : LPCWSTR;
  const lpDomain    : LPCWSTR;
  const lpAccountOU : LPCWSTR;
  const lpAccount   : LPCWSTR;
  const lpPassword  : LPCWSTR;
  const fJoinOptions : DWORD
  ) : NET_API_STATUS; stdcall; external 'netapi32.dll';

const  // aus lmerr.h
  NERR_Success              = 0;


var
  dwResult : DWORD;

begin
  dwResult := NetJoinDomain(nil,'ARBEITSGRUPPE',nil,nil,nil,0);
  if dwResult <> NERR_Success then begin
    ShowMessage(SysErrorMessage(dwResult));
  end else begin
    ShowMessage('Alles gut');
  end;
end;