delphi – 写保护的USB驱动器上的ShellExecuteEx错误？

我正在尝试在写保护的USB驱动器上测试应用程序,我想使用 ShellExecuteEx API(我需要使用此API调用,因为我需要lpVerb：=“runas”)调用来执行第二个程序,但是我使用ShellExecuteEx调用继续获得“写保护错误”.我似乎无法弄清楚是什么试图写入驱动器,我没有写入驱动器的代码,我甚至使用最新的 Microsoft Standard User Analyzer和 Application Verifier来尝试验证什么是试图写入驱动器但没有成功.这是我一直得到的错误：

[写保护错误]

以下代码中没有任何内容试图写入此驱动器,ShellExecuteEx API调用错误的方法来执行我正在尝试的操作吗？如果没有,我怎么能弹出这个错误.任何帮助将不胜感激.

[WP-ON.reg]

REGEDIT4

[HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlStorageDevicePolicies]
"WriteProtect"=dword:00000001

[WP-OFF.reg]

REGEDIT4

[HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlStorageDevicePolicies]
"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.

[launch.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.