问SHGetPathFromIDList (Delphi) -误报问题

EN

function BrowseForFolder(var dpFolder: String; dpTitle: String): Boolean;
var
  dpBrowseInfo: TBrowseInfo;
  dpDisplayName: array[0..255] of Char;
  dpItemIDList: PItemIDList;
begin
  FillChar(dpBrowseInfo, sizeof(dpBrowseInfo), #0);
  with dpBrowseInfo do begin
    hwndOwner := Application.Handle;
    pszDisplayName := @dpDisplayName[0];
    lpszTitle := PChar(dpTitle);
    dpItemIDList := SHBrowseForFolder(dpBrowseInfo);
    ulFlags := BIF_RETURNONLYFSDIRS and BIF_VALIDATE;
  end;
if Assigned(dpItemIDList) then begin
  if SHGetPathFromIDList(dpItemIDList, dpDisplayName) then begin
    dpFolder := dpDisplayName;
    Result := True;
  end else begin
    Result := False;
  end;
end;
end;