// C/C++
  hr = ppsf->CompareIDs(0, pidlA, pidlB);
  if( SUCCEEDED(hr) )
  {
    iComparisonResult = short(HRESULT_CODE(hr))
  }

// Delphi
function HRESULT_CODE(hr: HRESULT): Word;
begin
  Result := Word(LongWord(hr) and $FFFF)
end;

  hr := ppsf.CompareIDs(0, pidlA, pidlB);
  if Succeeded(hr) then
  begin
    iComparisonResult := Shortint(HRESULT_CODE(hr));
  end;