LAN IP Adresse per Programm zuweisen

[sakura]

erst einmal sorry, dass ich wieder mal voll daneben gehauen habe, aber es ich wohl nach drei stunden training gestern abend bereits zu groggy, um noch ordentlich zu lesen.

Suche mal bei http://msdn.microsoft.com nach der IADsComputer Schnittstelle. Vielleicht hilft die ja weiter.

[Alexander]

also ich denke du die NT-Schiene muss nicht neugestartet werden, falls doch nutze das:

Code:

function MyExitWindows(RebootParam: Longword): Boolean; 
var 
  TTokenHd: THandle; 
  TTokenPvg: TTokenPrivileges; 
  cbtpPrevious: DWORD; 
  rTTokenPvg: TTokenPrivileges; 
  pcbtpPreviousRequired: DWORD; 
  tpResult: Boolean; 
const 
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; 
begin 
  if Win32Platform = VER_PLATFORM_WIN32_NT then 
  begin 
    tpResult := OpenProcessToken(GetCurrentProcess(), 
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, 
      TTokenHd); 
    if tpResult then 
    begin 
      tpResult := LookupPrivilegeValue(nil, 
                                       SE_SHUTDOWN_NAME, 
                                       TTokenPvg.Privileges[0].Luid); 
      TTokenPvg.PrivilegeCount := 1; 
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; 
      cbtpPrevious := SizeOf(rTTokenPvg); 
      pcbtpPreviousRequired := 0; 
      if tpResult then 
        Windows.AdjustTokenPrivileges(TTokenHd, 
                                      False, 
                                      TTokenPvg, 
                                      cbtpPrevious, 
                                      rTTokenPvg, 
                                      pcbtpPreviousRequired); 
    end; 
  end; 
  Result := ExitWindowsEx(RebootParam, 0); 
end; 

// Beispiel zum Reboot von Windows: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  MyExitWindows(EWX_REBOOT or EWX_FORCE); 
end;

[thebaer]

Gehe ich recht in der Annahme, dass die Indy-Komponenten, diesewelche
sind, die bereits bei Delphi 6.0 Enterprise enthalten sind??? :coder:

Und: Unter Windows XP Professional muss der PC beim umstellen von IP nicht neu gebootet werden. 8)

Lässt sich mit den Komponenten auch die IP ändern?

[sakura]

Zitat:

Zitat von thebaer

Gehe ich recht in der Annahme, dass die Indy-Komponenten, diesewelche
sind, die bereits bei Delphi 6.0 Enterprise enthalten sind???

Ja.

Zitat:

Zitat von thebaer

Und: Unter Windows XP Professional muss der PC beim umstellen von IP nicht neu gebootet werden.

Richtig.

Zitat:

Zitat von thebaer

Lässt sich mit den Komponenten auch die IP ändern?

Soweit ich weiss, nein!

Sorry für die späte Antwort, war am Wochenende weg.