gpt4 book ai didi

delphi - 写保护 USB 驱动器上出现 ShellExecuteEx 错误?

转载 作者:行者123 更新时间:2023-12-03 15:26:06 24 4
gpt4 key购买 nike

我正在尝试在写保护的 USB 驱动器上测试应用程序,我想使用 ShellExecuteEx API(我需要使用此 API 调用,因为我需要 lpVerb := "runas")调用来执行第二个程序,但我在 ShellExecuteEx 调用中不断收到“写保护错误”。我似乎无法弄清楚正在尝试写入驱动器的内容,我没有写入驱动器的代码,我什至使用了最新的 Microsoft Standard User AnalyzerApplication Verifier尝试验证尝试写入驱动器的内容但没有成功。这是我不断收到的错误:

[写保护错误]

Write Protect Error

以下代码中没有任何内容尝试写入此驱动器,ShellExecuteEx API 调用是否是执行我尝试执行的操作的错误方法?如果没有,我怎样才能避免弹出这个错误。任何帮助将不胜感激。

[WP-ON.reg]

REGEDIT4

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies]
"WriteProtect"=dword:00000001

[ WP-OFF.reg ]

REGEDIT4

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies]
"WriteProtect"=dword:00000000

注意:每次更新注册表后,您都必须弹出并重新插入设备。

[project1.dpr]

program project1;

{.$APPTYPE CONSOLE}

uses
Windows, SysUtils;

begin
Windows.MessageBox(Windows.GetActiveWindow(),
PChar('Hello World!'), PChar('project1'), MB_OK);
end.

[启动.manifest]

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity processorArchitecture="x86" version="2.0.1.0" name="eyeClaxton.asInvoker.Launch" type="win32" />
<description>asInvoker Launch</description>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" publicKeyToken="6595b64144ccf1df" language="*" processorArchitecture="x86" />
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

[ launch.dpr ]

program launch;

uses
Windows, ShellAPI;

{$R 'MANIFEST.RES'}

procedure ShellEx(const theFilename, theParams: string);

function RunAsAdmin(): Boolean;
var
OSVerInfo: TOSVersionInfo;
begin
OSVerInfo.dwOSVersionInfoSize := System.SizeOf(OSVerInfo);
Result := (Windows.GetVersionEx(OSVerInfo)) and (OSVerInfo.dwMajorVersion > 5);
end;

var
ShellExInfo: TShellExecuteInfo;
Directory: array[0..MAX_PATH] of Char;
begin
Windows.ZeroMemory(@ShellExInfo, System.SizeOf(ShellExInfo));
ShellExInfo.cbSize := System.SizeOf(TShellExecuteInfo);
ShellExInfo.Wnd := Windows.GetActiveWindow();
ShellExInfo.nShow := SW_SHOWNORMAL;
ShellExInfo.fMask := SEE_MASK_FLAG_NO_UI;

if (RunAsAdmin()) then // If OS is greater than Windows XP
ShellExInfo.lpVerb := PChar('runas');

Windows.ZeroMemory(@Directory, System.SizeOf(Directory));
Windows.GetCurrentDirectory(SizeOf(Directory), Directory);
ShellExInfo.lpDirectory := PChar(string(Directory));
ShellExInfo.lpFile := PChar('"' + string(Directory) + '\' + theFilename + '"');
ShellExInfo.lpParameters := PChar('"' + theParams + '"');

//
// ShellExecuteEx causes a "Write Protect" error to popup.
//
if (not ShellAPI.ShellExecuteEx(@ShellExInfo)) then
Windows.MessageBox(Windows.GetActiveWindow(),
PChar('File ' + ShellExInfo.lpFile + ' not found!'),
PChar('asInvoker Launch'), MB_OK or MB_ICONERROR);
end;

begin
ShellEx('project1.exe', System.ParamStr(1));

end.

最佳答案

问题来自于 ShellExecuteEx 是一个相当复杂的过程,启动一个新的后台线程,然后调用大量 COM 内容。出于安全原因,应该在某处启用写入。

您可以尝试禁用UAC。但这不是一个好的解决方案。

当您查看以编程方式提升进程权限的相应解决方案时(有线 list 是另一种静态提升方式),您只能找到两个 quoted in this SO answer :

  • 使用 ShellExecuteEx 和 runas 参数;
  • 使用神奇的“Elevation:Administrator!new:”前缀创建一个提升的 COM 对象。

值得阅读全文 "Vista UAC: The Definitive Guide"文章了解 ShellExecuteEx 的工作原理。

所以这是我的答案:由于您需要运行具有提升权限的进程,并且没有现有的“CreateProcessElevated”API,只有良好的大ShellExecute,所以最简单的方法是使用第二个可执行文件的 list 文件。

如果您希望 project1.exe 文件以“AsInvoker”权限运行,但有意仅以管理员权限运行,则有两种可能性:

  • 使用外部 .manifest 文件,并且不要将该文件作为资源嵌入到 exe 中 - 然后将 .manifest 内容替换为带有“AsInvoker”的一个版本"或 "requireAdministrator"参数 - 但在只读媒体上很困难,不是吗:;
  • 使用外部第三个可执行文件(我们将其称为 Elevate.exe),其中包含具有“requireAdministrator”级别的 list ,它将启动第二个可执行文件。您可以提供 exe 和命令行作为此 Elevate.exe 程序的参数。

关于delphi - 写保护 USB 驱动器上出现 ShellExecuteEx 错误?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6630495/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com