Delphi - (Delphi XE) Gestione File

Forum - Delphi - (Delphi XE) Gestione File

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 21:17
Martedì, 21/05/2013

Codice sorgente - presumibilmente Delphi

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:

Codice sorgente - presumibilmente Plain Text

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. Ho allegato anche il sorgente.

camaleonteplus ha allegato un file: Virtual Listview.zip (21466 bytes)
Clicca qui per scaricare il file

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 9:19
Venerdì, 24/05/2013

Finche qualcuno non mi da una mano ho tamponato in questo modo:

Codice sorgente - presumibilmente Delphi

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Vis.TabVisible := True;
ShellExecute(handle, 'Explore', 'C:\Users\Public\Documents', nil, nil, SW_SHOWNORMAL);
end;

kriptos (Normal User)
Newbie

Messaggi: 9
Iscritto: 16/03/2009

Postato alle 5:28
Lunedì, 17/06/2013

potresti specificare quello che devi fare???