小编Gu.*_*u. 的帖子

Delphi Xe,Win7

我需要以下功能:

Function isPcInDomain:bool;

域名对我不感兴趣,msdn LsaQueryInformationPolicy也是(或者在Delphi上实现).我想有一个不需要查询网络的功能.
如果计算机的本地名称包含a,它仍然必须工作.

尝试定义域名,但在不在域中的个人计算机上 - 作为域名给出本地工作组的名称:(

德尔福Xe4.在Win7Pro x64,Win8Ent x64,WinSrv2012上进行测试;

Const

CGuAdvapi32dll=WinApi.Windows.Advapi32;

CALG_MD2      = 32769;
CALG_MD4      = 32770;
CALG_MD5      = 32771;
CALG_SHA      = 32772;
CALG_SHA_1    = 32772; // CALG_SHA
CALG_SHA_256  = 32780;
CALG_SHA_384  = 32781;
CALG_SHA_512  = 32782;

CALG_DES      = 26113;
CALG_RC2      = 26114;
CALG_3DES     = 26115;
CALG_3DES_112 = 26121;
CALG_AES_128  = 26126;
CALG_AES_192  = 26127;
CALG_AES_256  = 26128;
CALG_AES      = 26128; // CALG_AES_256
CALG_RC4      = 26625;

PROV_RSA_AES = 24;        // The PROV_SSL provider type supports US AES crypto-algorithm
CRYPT_VERIFYCONTEXT = $F0000000;


{S} Function GuCryptAcquireContext(hProv: PULong; Container: …

有这么小的免费程序--HashTab(http://www.implbits.com/HashTab/HashTabWindows.aspx).安装后,它会在标准Windows文件属性中添加一个选项卡,并可以计算文件的校验和.

如何做到这一点(在Windows资源管理器文件属性中设置我的选项卡(在任何文件的win exp.上 - 右键单击​​菜单 - >属性))？DelphiXe4.

ps对不起英语不好意思.

这是第二次尝试在一个问题上得到答案.我很抱歉,但我的英语非常糟糕,因此我很难解释我想要的,特别是在技术问题上:_(

我再一次尝试,这次是一个具体的例子,这对我来说是必要的.

DelphiXe,Win7x64.Windows Uac已开启.用户使用管理员的权限.

应该给出应该从另一个地方复制文件的程序(示例).她应该以通常的方式(不是代表管理员)开始.因此,不需要粘贴到显示(*.rc)EXE文件(授予管理员权限 - 更真实地启动请求).复制应以通常的方式进行 - 只有在需要时才需要管理员的权利,无需重新启动程序.

问题(在代码中标记为"*"):1.如何定义Windows UAC在系统中是否存在以及是否已启用2.如何获取Admin权限(以推断消息Windows UAC)仅在以下情况下需要并且实际上获得该程序的许可证而不重新启动它

示例 - 文件管理器"远程管理员"(或"总指挥官")可以这样做 - 他们在正常启动时(不代表管理员)复制文件,并且仅在业务涉及系统文件夹时才导致查询UAC.因此,程序不会重新启动,并且首先会给出预防措施.

PS非常感谢我的帖子的帮助和编辑.

程序:表格,一个按钮,opendialog,savedialog

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    OpenDialogFROM: TOpenDialog;
    Button1: TButton;
    SaveDialogTO: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Function TestPathWrite(path:string):bool;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function IsWindowsUAC_Enabled:bool; // Test Windows UAC turn on (*)
begin
Result:=false;
// …