如题：VFP9程序中如何以管理员权限注册一个dll文件。

多谢！

这个DLL文件是怎样编译来的?

良田高拍仪的eloamcom.dll，用管理员手工注册可以，程序中run regsvr32 注册没动静

有看过你早几年写的用api  shell…  解决权限问题，但不知道怎么用！

方法一、编译生成“以管理员身份运行”的EXE

假设：
项目文件名 test.pjx
在 test.pjx 的文件夹里建一个文件名 test.exe.manifest 的文本文件
test.exe.manifest 文本文件的内容：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
    version="1.0.0.0"
    type="win32"
    name="Microsoft.VisualFoxPro"
    processorArchitecture="x86"
/>
<description>Visual FoxPro</description>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
        <requestedPrivileges>
            <requestedExecutionLevel level="requireAdministrator" />
        </requestedPrivileges>
    </security>
</trustInfo>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.
            version="6.0.0.0"
            language="*"
            processorArchitecture="x86"
            publicKeyToken="6595b64144ccf1df"
        />
    </dependentAssembly>
</dependency>
</assembly>

这样VFP编译生成 test.exe 时载入 test.exe.manifest 资源生成一个“以管理员身份运行”的EXE。


方法二、以管理员身份运行程序

    oApp = CREATEOBJECT("Shell.Application")
    oApp.ShellExecute("test.exe", "", "", "runas", 1)

谢谢回复！
1、这个文本文件有。
2、RUN /N regsvr32 d:\gpycs\bin\eloamcom.dll /s 写在bat文件中以管理员权限运行，可以注册；写在程序里没有提示，并未注册成功。

说明：我的操作系统Windows server 2012R2

[此贴子已经被作者于2020-2-20 09:06编辑过]

没用过 Windows server 版本，情况不明
按理能手动“以管理员身份运行”成功，用代码自动运行也应该可以，是否系统登录身份也要有管理权?
另：用 regsvr32 注册的DLL，自身就有注册函数：
示例：
FUNCTION _RegServer(szName, ddFlags)
    IF INLIST(ddFlags, 1, 2) AND !FILE(szName)
        MESSAGEBOX(szName + " 文件不存在")
        RETURN .F.
    ENDIF
    LOCAL szCLSID, ddRet
    DO CASE
        * 检测是否已注册， szName为DLL文件名
    CASE ddFlags == 0
        DECLARE LONG CLSIDFromProgID IN Ole32 STRING@, STRING@
        szCLSID = REPLICATE(0h00, 16)
        ddRet = CLSIDFromProgID(STRCONV(szName + 0h00, 5), @szCLSID)
        CLEAR DLLS "CLSIDFromProgID"
        RETURN (ddRet == 0)
        * 注册
    CASE ddFlags == 1
        DECLARE LONG DllRegisterServer IN (szName)
        ddRet = DllRegisterServer()
        CLEAR DLLS "DllRegisterServer"
        * 卸载
    CASE ddFlags == 2
        DECLARE LONG DllUnregisterServer IN (szName)
        ddRet = DllUnregisterServer()
        CLEAR DLLS "DllUnregisterServer"
    OTHERWISE
        MESSAGEBOX("调用_RegServer()的参数无效")
        RETURN .F.
    ENDCASE
    IF (ddRet != 0)
        MESSAGEBOX("调用_RegServer()失败，试用管理员身份运行。")
    ENDIF
    RETURN (ddRet == 0)
ENDFUNC

如图：视乎这个dll注册需要一串dll，这几个文件缺一不可。另外，用myfll或者上面的代码会有错误提示，不知何故？

我手动注册成功后，?_RegServer("d:\gpycs\eloamcom.dll", 0)返回.F.
https://meta.box.  这是官网控件，有空麻烦看看，多谢版主！

[此贴子已经被作者于2020-2-20 20:33编辑过]

给 eloamcom.dll 文件看看