(Delphi XE) Aiuto

[camaleonteplus]

function GetDisplayName(ShellFolder: IShellFolder; PIDL: PItemIDList;
                        ForParsing: Boolean): string;
var
  StrRet: TStrRet;
  P: PChar;
  Flags: Integer;
begin
  Result := '';
  if ForParsing then
    Flags := SHGDN_FORPARSING
  else
    Flags := SHGDN_NORMAL;

  ShellFolder.GetDisplayNameOf(PIDL, Flags, StrRet);
  case StrRet.uType of
    STRRET_CSTR:
      SetString(Result, StrRet.cStr, lStrLen(StrRet.cStr));
    STRRET_OFFSET:
      begin
        P := @PIDL.mkid.abID[StrRet.uOffset - SizeOf(PIDL.mkid.cb)];
        SetString(Result, P, PIDL.mkid.cb - StrRet.uOffset);
      end;
    STRRET_WSTR:
      Result := StrRet.pOleStr;
  end;
end;

su questa riga:
SetString(Result, StrRet.cStr, lStrLen(StrRet.cStr));
mi da questo errore:
[DCC Error] VListView.pas(204): E2010 Incompatible types: 'PWideChar' and 'array[0..259] of AnsiChar'
come posso risolvere il problema sotto delphi 7 funzionava.

[oregon]

Ho visto che hai avuto risposta in

http://forum.masterdrive.it/delphi-2...risorse-75284/

[alka]

Originariamente inviato da camaleonteplus
(Delphi XE) Aiuto

Per favore, usa titoli più significativi per le discussioni che apri.

Inoltre, già che hai avuto risposte altrove, pubblica almeno la situazione aggiornata del problema a seguito delle indicazioni già ricevute.

Per queste e altre indicazioni, leggi il Regolamento.

Ciao!