Ir al contenido


Foto

[TRUCO DELPHI] Ubicacion de las Carpetas especiales de Windows.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 09 diciembre 2016 - 03:20

[TRUCO DELPHI] Ubicacion de las Carpetas especiales de Windows.


delphi
  1. Var
  2. SFolder : pItemIDList;
  3. SpecialPath : Array[0..MAX_PATH] Of Char;
  4. begin
  5. SHGetSpecialFolderLocation(Form1.Handle, CSIDL_STARTUP, SFolder);
  6. SHGetPathFromIDList(SFolder, SpecialPath);
  7. Label1.Caption := StrPas(SpecialPath);
  8.  
  9. {
  10. Otras carpetas :
  11.  
  12. CSIDL_BITBUCKET
  13. CSIDL_CONTROLS
  14. CSIDL_DESKTOP
  15. CSIDL_DESKTOPDIRECTORY
  16. CSIDL_DRIVES
  17. CSIDL_FONTS
  18. CSIDL_NETHOOD
  19. CSIDL_NETWORK
  20. CSIDL_PERSONAL
  21. CSIDL_PRINTERS
  22. CSIDL_PROGRAMS
  23. CSIDL_RECENT
  24. CSIDL_SENDTO
  25. CSIDL_STARTMENU
  26. CSIDL_STARTUP
  27. CSIDL_TEMPLATES
  28. }

Saludos!


  • 1