macos – Firemonkey OS X – 请求提升的权限

发布时间：2020-12-15 09:13:02 所属栏目：大数据来源：网络整理

导读：我正在开发一个需要启动“openvpn”的OS X Firemonkey应用程序,但OpenVPN需要管理员权限才能创建隧道接口. 我正在尝试将此博客文章中的第一个示例转换为Delphi： http://www.michaelvobrien.com/blog/2009/07/authorizationexecutewithprivileges-a-simple-e

我正在开发一个需要启动“openvpn”的OS X Firemonkey应用程序,但OpenVPN需要管理员权限才能创建隧道接口.

我正在尝试将此博客文章中的第一个示例转换为Delphi：
http://www.michaelvobrien.com/blog/2009/07/authorizationexecutewithprivileges-a-simple-example/

尝试运行此代码有时会导致预期的授权提示,但单击“确定”会完全冻结调试器,并且需要关闭整个系统.没有调试器,它可以更好地运行,但有时仍然会冻结…
我在它崩溃了几次之前就已经找到了返回代码,这是错误的.AuthorizationToolExecuteFailure

我不太熟悉OSX如何做事,有没有更好的方法？ Apple建议不要使用AuthorizationExecuteWithPrivileges.我不知道用其所需的权限运行openvpn的任何其他方法.

uses
  Macapi.CoreFoundation,Macapi.Foundation,Macapi.Security;

const
  kAuthorizationEmptyEnvironment = nil;

procedure TForm1.Button1Click(Sender: TObject);
var
  AuthRef: AuthorizationRef;
  Status: OSStatus;
begin
  Status := AuthorizationCreate(nil,kAuthorizationEmptyEnvironment,kAuthorizationFlagDefaults,@AuthRef);
  Status := AuthorizationExecuteWithPrivileges(AuthRef,'/sbin/dmesg','',nil)
end;

解决方法

AuthorizationExecuteWithPrivileges的arguments参数需要一个指向PAnsiChars数组的指针,该数组以nil指针作为最后一个数组项终止.您只是将指针传递给空字符串.这会给你随机崩溃,这取决于指向空字符串后指针在内存中发生的事情.

试试这个：

procedure TForm1.Button1Click(Sender: TObject);
var
  AuthRef: AuthorizationRef;
  Status: OSStatus;
  argv: array[0..0] of PAnsiChar;
begin
  ArgV[0] := nil;

  AuthRef := nil;
  Status := AuthorizationCreate(nil,@argv[0],nil);
  AuthorizationFree(AuthRef,kAuthorizationFlagDefaults);
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!