n° 219
Novembre 2017
Dicembre 12, 2017, 06:47:38 *
Benvenuto! Accedi o registrati.
Hai dimenticato l'e-mail di attivazione?

Accesso con nome utente, password e durata della sessione
Notizia:
 
   Indice   Linux Windows Techassistance Gameassistance videogame hardware Aiuto Ricerca Agenda Downloads Accedi Registrati  


* Messaggi recenti
Messaggi recenti
Pagine: [1]   Vai giù
  Stampa  
Autore Discussione: (Delphi XE) Cartelle ???  (Letto 2644 volte)
0 utenti e 1 Utente non registrato stanno visualizzando questa discussione.
camaleonteplus
Jr. Member
**

Karma: +0/-0
Scollegato Scollegato

Messaggi: 149


Bello Delphi!

mrcamarium@yahoo.it mrcamarium@yahoo.it
Mostra profilo WWW
« inserita:: Maggio 22, 2013, 04:54:22 »

Codice:
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.
Registrato
camaleonteplus
Jr. Member
**

Karma: +0/-0
Scollegato Scollegato

Messaggi: 149


Bello Delphi!

mrcamarium@yahoo.it mrcamarium@yahoo.it
Mostra profilo WWW
« Risposta #1 inserita:: Maggio 24, 2013, 09:19:39 »

Finche qualcuno non mi da una mano ho tamponato in questo modo:
Codice:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Vis.TabVisible := True;
ShellExecute(handle, 'Explore', 'C:\Users\Public\Documents', nil, nil, SW_SHOWNORMAL);
end;
Registrato
Pagine: [1]   Vai su
  Stampa  
 
Vai a:  

Copyright © 2017 Edizioni Master SpA. p.iva : 02105820787

Tutti i diritti di proprietà letteraria e artistica riservati. - Privacy



powered by Simple Machines