以下是引用吹水佬在2020-2-19 20:35:02的发言：

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

以下是引用吹水佬在2020-2-19 20:35:02的发言：

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

以下是引用吹水佬在2020-2-20 07:50:59的发言：

方法一、编译生成“以管理员身份运行”的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)

以下是引用吹水佬在2020-2-20 09:33: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

以下是引用吹水佬在2020-2-20 09:33: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

以下是引用吹水佬在2020-2-20 20:32:05的发言：

给 eloamcom.dll 文件看看

以下是引用吹水佬在2020-2-20 20:39:57的发言：

与 eloamdll.dll文件也有关
把相关文件都放在一起试试

以下是引用吹水佬在2020-2-20 22:33:30的发言：

7楼代码的注释更正：
        * 检测是否已注册， szName为控件类名
    CASE ddFlags == 0
        * 注册， szName为DLL文件名
    CASE ddFlags == 1
         * 卸载， szName为DLL文件名
    CASE ddFlags == 2

Win10测试正常



测试文件：
编译 项目1 生成 项目1.exe
运行 项目1.exe

以下是引用吹水佬在2020-2-20 22:33:30的发言：

7楼代码的注释更正：
        * 检测是否已注册， szName为控件类名
    CASE ddFlags == 0
        * 注册， szName为DLL文件名
    CASE ddFlags == 1
         * 卸载， szName为DLL文件名
    CASE ddFlags == 2

Win10测试正常



测试文件：
编译 项目1 生成 项目1.exe
运行 项目1.exe