Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Mostrar carpetas especiales del sistema - Delphi
Lenguaje de programación Borland Delphi



Este ejemplo muestra la carpeta Historial de internet (páginas visitadas). Para mostrar cualquier otra carpeta es suficiente con cambiar la constante "CSIDL_HISTORY" de la función "ShGetSpecialFolderLocation" por la constante correspondiente a la carpeta que queramos mostrar (Ejemplo: CSIDL_FAVORITES (muestra la carpeta favoritos), CSIDL_NETWORK (muestra Mis sitios de red), CSIDL_PROGRAMS (muestra la carpeta Programas del Menú Inicio), CSIDL_CONTROLS (muestra el Panel de Control), CSIDL_PRINTERS (muestra la carpeta Impresoras), ...). Para ello necesitaremos un formulario (TForm) y un botón (TButton), en la cláusula USES del formulario pondremos la unidad "shlobj", el código fuente completo:

unit UnidadCarpetasEspeciales;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  shlobj, StdCtrls, OleCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;



var
  Form1: TForm1;

implementation

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);
var
  Bi: TBrowseInfo;
  dispname: array[0..MAX_PATH] of char;
  SelectPidl, HistPidl: PItemIdlist;
begin
  ShGetSpecialFolderLocation(handle, CSIDL_HISTORY, HistPidl);
  with Bi do begin
    hwndOwner := Handle;
    PidlRoot := HistPidl;
    pszDisplayName := Dispname;
    lpszTitle := Pchar('Carpeta Historial');
    ulFlags := BIF_BrowseIncludeFiles;
    lpfn := nil;
    lParam := uint(self);
  end;
  SelectPidl := shbrowseforfolder(bi);
end;


end.




Publicado el: 2004-06-09

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+