我正在使用下面的代码在Windows 7中复制操作的文件,但是它不起作用,在运行或调试时没有任何错误,当应用程序调用CoGetObject时,它将崩溃并且无法返回任何Hresult错误,我只知道错误发生在这行-> result := CoGetObject(pWideString(MonikerName), @BindOpts, ShlObj.IFileOperation, @iFileOperation);
任何人都可以在此代码中找到任何问题?
`

type
  PBindOpts3 = ^TBindOpts3;
{$EXTERNALSYM tagBIND_OPTS3}
  tagBIND_OPTS3 = record
    cbStruct: DWORD;
    grfFlags: DWORD;
    grfMode: DWORD;
    dwTickCountDeadline: DWORD;
    dwTrackFlags: DWORD;
    dwClassContext: DWORD;
    locale: LCID;
    pServerInfo: Pointer;
    hwnd: hwnd;
  end;
  TBindOpts3 = tagBIND_OPTS3;
{$EXTERNALSYM BIND_OPTS3}
  BIND_OPTS3 = TBindOpts3;

function CopyItem(const aSrcItem, aDest, aNewName: string): HResult; const CLSID_FileOp: TGUID = '{3ad05575-8857-4850-9277-11b85bdb8e09}';

var lFileOperation: ShlObj.IFileOperation; psiFrom: IShellItem; psiTo: IShellItem; myFile: TextFile; BindOpts: TBindOpts3; MonikerName: WideString; Res: HResult;

begin try

begin


结果:= CoInitialize(nil);
如果成功(结果),则
开始

    ZeroMemory(@BindOpts, Sizeof(TBindOpts3));
    BindOpts.cbStruct := Sizeof(TBindOpts3);
    BindOpts.hwnd := 0;
    BindOpts.dwClassContext := CLSCTX_LOCAL_SERVER;

    MonikerName := 'Elevation:Administrator!new:' + GUIDToString
      (CLSID_FileOp);
    result := CoGetObject(pWideString(MonikerName), @BindOpts,
      ShlObj.IFileOperation, @lFileOperation);

    if Succeeded(result) then

      result := CoCreateInstance(CLSID_FileOp, nil,
        CLSCTX_LOCAL_SERVER + CLSCTX_INPROC_SERVER + CLSCTX_INPROC_HANDLER,
        IFileOperation, lFileOperation);
    if Succeeded(result) then
    begin
      result := lFileOperation.SetOperationFlags
        (FOFX_SHOWELEVATIONPROMPT + FOFX_NOCOPYHOOKS +
          FOFX_REQUIREELEVATION);
      if Succeeded(result) then
      begin
        result := SHCreateItemFromParsingName
          (pchar(aSrcItem), nil, IShellItem, psiFrom);
        if Succeeded(result) then
        begin
          if aDest <> '' then
          begin

            result := SHCreateItemFromParsingName
              (pchar(aDest), nil, IShellItem, psiTo);
          end;

          if Succeeded(result) then
          begin

            result := lFileOperation.CopyItem
              (psiFrom, psiTo, pchar(aNewName), nil);

            psiTo := nil;
          end;

          psiFrom := nil;
        end;

        if Succeeded(result) then
        begin

          result := lFileOperation.PerformOperations;
        end;
      end;

      lFileOperation := nil;
    end;

    CoUninitialize;
  end;
end;



d:例外
开始

 showmessage(d.tostring());
end;


结束;

结束;
`

最佳答案

CoGetObject()实际返回什么HRESULT值?

调用COM函数时,请勿将WideString转换为pWideString。照原样传递它,让Delphi为您处理编组细节。

并且不需要在调用CoGetObject()之后调用CoCreateInstance()。 CoGetObject()已将所需的COM对象返回给您。照原样使用。

试试这个:

function CopyItem(const aSrcItem, aDest, aNewName: string): HResult;
const
  CLSID_FileOp: TGUID = '{3ad05575-8857-4850-9277-11b85bdb8e09}';
var
  lFileOperation: ShlObj.IFileOperation;
  psiFrom: IShellItem;
  psiTo: IShellItem;
  BindOpts: TBindOpts3;
  MonikerName: WideString;
begin
  try
    Result := CoInitialize(nil);
    OleCheck(Result);
    try
      ZeroMemory(@BindOpts, Sizeof(TBindOpts3));
      BindOpts.cbStruct := Sizeof(TBindOpts3);
      BindOpts.hwnd := 0;
      BindOpts.dwClassContext := CLSCTX_LOCAL_SERVER;

      MonikerName := 'Elevation:Administrator!new:' + GUIDToString(CLSID_FileOp);
      Result := CoGetObject(MonikerName, @BindOpts, ShlObj.IFileOperation, lFileOperation);
      OleCheck(Result);

      Result := lFileOperation.SetOperationFlags(FOFX_SHOWELEVATIONPROMPT or FOFX_NOCOPYHOOKS or FOFX_REQUIREELEVATION);
      OleCheck(Result);

      Result := SHCreateItemFromParsingName(PChar(aSrcItem), nil, IShellItem, psiFrom);
      OleCheck(Result);

      if aDest <> '' then
      begin
        Result := SHCreateItemFromParsingName(PChar(aDest), nil, IShellItem, psiTo);
        OleCheck(Result);
      end;

      Result := lFileOperation.CopyItem(psiFrom, psiTo, PChar(aNewName), nil);
      OleCheck(Result);

      Result := lFileOperation.PerformOperations;
      OleCheck(Result);
    finally
      CoUninitialize;
    end;
  except
    on E: Exception do ShowMessage(d.ToString());
  end;
end;

关于delphi - 使用ifileoperation复制项时uac提升,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/3271537/

10-13 07:52