Comando InitiateSystemShutDown?

[mrmanuel]

Hola.

Yo ademas de apagar, quiero poder encender los equipos.


Respecto a problema del apagado, hay trucos en internet que te pueden solucionar el problema, hace poco encontré uno sobre le mismo tema pero para Xp, mira a ver si te vale:

http://www.terra.es/personal8/mabely...istemaPZ.htm#1

Si no te vale puede ser que tu placa Base no acepte bien el apagado en los equipos con win2000.

PD: Podrías decirme como usas el "ExitWindowsEx()" para apagarlos en red? a lo mejor me sirve para XP.

Gracias

[delphi.com.ar]

Empezado por mrmanuel

Yo ademas de apagar, quiero poder encender los equipos.

Encender es mucho mas fácil, no necesitas privilegios, solo necesitas que el HardWare soporte "WakeUpLan" y envías un mensaje a la red con el MacAddress del equipo que quieras encender. Tengo este código hecho pero VB, si te interesa te lo paso.

Saludos!

[mrmanuel]

Empezado por delphi.com.ar

Tengo este código hecho pero VB, si te interesa te lo paso.

La verdad que se me lo pasas, ahora un monton de tiempo, por lo menos mientras investigo como hacerlo en delphi, para crear un único ejecutable que encienda y apague.

Así consigo relajar un poco al jefe , que como todos, quieren el trabajo para ayer.

Gracias por adelantado.

[delphi.com.ar]

Ups.. me acabo de fijar y el código que tengo aquí es solo el del la máquina que iba a ser encendida, el otro código lo tengo en otra oficina a la cual no estoy asistiendo.
Igualmente encotré este código en la Web (obviamente no lo he probado, eso lo dejo para tí):

Código Delphi [-]
uses
  WinTypes, Messages, SysUtils, Classes, IdBaseComponent, 
  IdComponent, IdUDPBase, IdUDPClient; 


Function HexToInt(S:String): LongInt;
const
  DecDigits: Set Of '0'..'9' = ['0'..'9'];
  HexVals: Array [0..$F] Of Integer = (0, 1, 2, 3, 4, 5, 6, 7, 
     8, 9, $A, $B, $C, $D, $E, $F);
  UpCaseHexLetters: Set Of 'A'..'F' = ['A'..'F'];
  LowCaseHexLetters: Set Of 'a'..'f' = ['a'..'f'];
var
  v: LongInt;
  i: integer;
  LookUpIndex: integer;
begin
  if length(S) <= 8 then begin
    v := 0;
    for i := 1 to length(S) do begin
       {$R-}
         v := v Shl 4;
       {$R+}
       if S[i] in DecDigits then begin
          LookUpIndex := Ord(S[i]) - Ord('0');
       end
       else begin
          if S[i] in UpCaseHexLetters then begin
             LookUpIndex := Ord(S[i]) - Ord('A') + $A;
          end
          else begin
             if S[i] in LowCaseHexLetters then begin
                LookUpIndex := Ord(S[i]) - Ord('a') + $A;
             end
             else begin
                LookUpIndex := 0;
             end;
          end;
       end;
       v := v Or HexVals[LookUpIndex];
    end;
    result := v;
  end
  else begin
    result := 0;
  end;
end;

procedure WakeUPComputer(aMacAddress: string);
var
  i, j: Byte;
  lBuffer: array[1..116] of Byte;
  lUDPClient: TIUDPClient;
begin
  try
    for i := 1 to 6 do begin
      lBuffer[i] := HexToInt(aMacAddress[(i * 2) - 1] + 
         aMacAddress[i * 2]);
    end;
    lBuffer[7] := $00;
    lBuffer[8] := $74;
    lBuffer[9] := $FF;
    lBuffer[10] := $FF;
    lBuffer[11] := $FF;
    lBuffer[12] := $FF;
    lBuffer[13] := $FF;
    lBuffer[14] := $FF;
    for j := 1 to 16 do begin
      for i := 1 to 6 do begin
        lBuffer[15 + (j - 1) * 6 + (i - 1)] := lBuffer[i];
      end;
    end;
    lBuffer[116] := $00;
    lBuffer[115] := $40;
    lBuffer[114] := $90;
    lBuffer[113] := $90;
    lBuffer[112] := $00;
    lBuffer[111] := $40;
    try
      lUDPClient := TIdUDPClient.Create(nil);
      lUDPClient.BroadcastEnabled := true;
      lUDPClient.Host := '255.255.255.255';
      lUDPClient.Port := 2050;
      lUDPClient.SendBuffer(lBuffer, 116);
      writeln('Trying to wake-up remote host: ' + aMacAddress);
    finally
      lUDPClient.Free;
    end;
  except
   on E: Exception do writeln('There was an error');
  end;
end;