procedure TForm1.WakeUp(SAddr:string);

  WSAData: TWSAData;

  MSocket: TSocket;

  SockAddrIn: TSockAddrIn;

  RetVal, OptVal, i: Integer;

  MacAddr: array[0..5] of Byte;

  MagicData: array[0..101] of Byte;

  Position: Longint;

  try

    if Length(SAddr) <> 17 then Abort;

    for i := 1 to Length(SAddr) do

      if i in [3, 6, 9, 12, 15] then

        if SAddr[i] <> '-' then Abort;

          for i := 0 to High(MacAddr) do

            begin

            if Pos('-', SAddr) > 0 then

              MacAddr[i] := StrToInt(HexDisplayPrefix + Copy(SAddr, 1, Pos('-', SAddr) - 1))

            else

              MacAddr[i] := StrToInt(HexDisplayPrefix + SAddr);

            Delete(SAddr, 1, Pos('-', SAddr));

            end;

      except

        application.MessageBox('网卡地址错误','警告',MB_ICONWARING);

        exit;

      end;

     try

      CheckWinSockResult(WSAStartup($0101, WSAData), 'WSAStartup');

      MSocket := socket(AF_INET, SOCK_DGRAM, IPPROTO_IP);

      if MSocket = INVALID_SOCKET then CheckWinSockResult(MSocket, 'socket');

      OptVal := 1;

      CheckWinSockResult(setsockopt(MSocket, SOL_SOCKET, SO_BROADCAST,

      PChar(@OptVal), SizeOf(OptVal)), 'setsockopt');

      FillChar(MagicData, SizeOf(MagicData), $FF);

      Position := LEN_PHYSADDR;

    while Position < SizeOf(MagicData) do

      begin

      Move(MacAddr, Pointer(Longint(@MagicData) + Position)^, LEN_PHYSADDR);

      Inc(Position, LEN_PHYSADDR);

      end;

    SockAddrIn.sin_family := AF_INET;

    SockAddrIn.sin_addr.S_addr := Longint(INADDR_BROADCAST);

    RetVal := sendto(MSocket, MagicData, SizeOf(MagicData), 0, SockAddrIn, SizeOf(SockAddrIn));

    if RetVal = SOCKET_ERROR then CheckWinSockResult(RetVal, 'sendto');

    CheckWinSockResult(closesocket(MSocket), 'closesocket');

    CheckWinSockResult(WSACleanup, 'WSACleanup');

  except

     exit;

  end;

 

function TForm1.CheckWinSockResult(ResultCode: Integer;

  const FuncName: string): Integer;

  if ResultCode <> 0 then

     begin

     Result := WSAGetLastError;

     ShowMessage(Format(#13#10'Windows socket函数''%s''错误: %s (%d)',[FuncName,SysErrorMessage(Result), Result]));

     Abort;

     end else Result := 0;