Question

请问delphi 专家，用ShellExecute，注入.reg 的时候。还要什么语句，我这语句怎么不行

procedure TForm1.Button4Click(Sender: TObject);
begin
ShellExecute(0, 'open', 'regedit.exe', '/s e:\license.reg', nil, nil, SW_HIDE);
end;

Answer 1

这个不需要专家，我就能回答，因为没有看到错误提示，所以首先检查你的 uses 里有没有引用 ShellAPI 单元，确保你能调用ShellExecute，其次你这个 ShellExecute 多了一个 nil 参数，删除其中一个 nil 即可。

追问

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, StrUtils, Registry, ExtCtrls, XPMan，ShellAPI;

[Error] Unit1.pas(7): Illegal character in input file: '，' ($A3AC)
[Error] Unit1.pas(163): Undeclared identifier: 'ShellExecute'

追答

晕倒。。。就是你的uses里，XPMan 后面那个逗号啊，换成半角的就行了。

Answer 2

这你没必要写个应用程序吧。。。
直接批处理就可以搞定了！

追问

我是用delphi 写的，点击按钮时就导入目录下面的.reg里的内容到注册表里

追答

ShellExecute(0,'open','regedit',' /s e:\1.reg',nil,SW_HIDE);

追问

[Error] Unit1.pas(163): Undeclared identifier: 'ShellExecute'

追答

引用ShellApi
uses shellapi;
就可以了