delphi 管理员权限带运行参数运行程序

function ExecuteFileAsAdmin(const FileName, Params, DefaultDir: String; ShowCmd: Integer): THandle;

begin

  Result := ShellExecute(Application.MainForm.Handle, 'runas',

    PChar(FileName), PChar(Params),

    PChar(DefaultDir), ShowCmd);

end;