Hi,

kennt jemand ne API um die Workgroup zu aendern (wenn moeglich ohne zu rebooten)?

Danke!

Moin Mackhack,

dazu dient NetJoinDomain.
Die Funktion steht allerdings erst ab Windows 2000 zur Verfügung.
Unter NT 4.0 wird es richtig kompliziert.

Danke Christian,

hatte das per Suche auch schon gefunden gehabt war mir aber nicht sicher ob es das Richtige war!

Moin Mackhack,

und hier mal ein Beispiel:

zusammenfalten · markieren

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;

Vielen Dank!

Hilft sehr!