2015年12月 – QDAC官方网站

[FMX] 蓝牙通讯过程中的数据抓包

2015-12-29 • Android、杂谈 • 暂无评论 • swish •浏览 5,575 次

除了购买专用的蓝牙抓包工具外，还有一个办法就是用 Android 手机。当然，在进行下一步之前，你需要： 1、执行 adb shell 连接到手机，然后执行 cat /etc/bluetooth/bt_stack_log.conf 命令，看其中的内容，你手机将捕获的日志放到什么地方了，如果放到 SD 卡根目录，那么，

[技巧] 使用虚拟串口来仿真测试串口通讯

2015-12-292015-12-29 • 杂谈 • 1 条评论 • swish •浏览 1,685 次

好吧，现在许多软件仍然是通过串口通讯的方式来与底层的硬件通讯。不论是真串口，还是 USB->COM 出来的串口，总之是串口进行通讯。我们做软件开发时，要与设备通讯，但是，如果硬件设备没有或者还在研发中怎么办？那就只能通过各种方式来模拟。这里我知道的有两个选择： 1、使用虚拟机软件，无论是 VirtualBox

[代码] 调用ExitWindows 关闭系统

2015-12-29 • C++ Builder、Delphi、杂谈 • 1 条评论 • swish •浏览 1,054 次

这个实际上有很多现成的代码了，这个代码是我自己改写的 Delphi 版的代码，可以在 Delphi/C++ Builder 中使用，已测试可以正常工作。

type
  TShutdownAction = (saLogoff, saReboot, saPoweroff);

function Shutdown(Action: TShutdownAction; AForce: Boolean): Boolean;
  function EnableShutdownPrivilege: Boolean;
  var
    hProcess, hToken: THandle;
    priv, lastpriv: TOKEN_PRIVILEGES;
    lastlen: Cardinal;
  const
    SE_SHUTDOWN_NAME: PWideChar = 'SeShutdownPrivilege';
  begin
    FillChar(priv, sizeof(priv), 0);
    FillChar(lastpriv, sizeof(priv), 0);
    hProcess := GetCurrentProcess;
    Result := False;
    if OpenProcessToken(hProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)
    then
    // 打开当前进程的访问令牌句柄(OpenProcessToken函数调用失败返回值为零)
    begin
      if LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME, priv.Privileges[0].LUID)
      then
      begin
        priv.PrivilegeCount := 1; // 欲调整的权限个数
        priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
        // 权限的属性,SE_PRIVILEGE_ENABLED为使能该权限
        if AdjustTokenPrivileges(hToken, False, priv, sizeof(priv), lastpriv,
          lastlen) then // 调整访问令牌里的指定权限(AdjustTokenPrivileges函数调用失败返回值为零)
          Result := GetLastError = ERROR_SUCCESS;
      end;
      CloseHandle(hToken);
    end;
  end;

var
  AFlags: Integer;
begin
  Result := EnableShutdownPrivilege;
  if Result then // 使能关机特权函数
  begin
    if AForce then
      AFlags := EWX_FORCE
    else
      AFlags := 0;
    case Action of
      saLogoff:
        AFlags := AFlags or EWX_LOGOFF;
      saReboot:
        AFlags := AFlags or EWX_REBOOT;
      saPoweroff:
        AFlags := AFlags or EWX_SHUTDOWN;
    end;
    Result := ExitWindowsEx(AFlags, 0) // 强制关机
  end;
end;