Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-05-2008
alquimista alquimista is offline
Miembro
 
Registrado: ene 2008
Posts: 203
Poder: 17
alquimista Va por buen camino
Obtener carpetas especiales de usuario (Ej.- C:\Documents and Settings\All Users\Datos de programa

Para obtener carpetas especiales de usuario a través de la API
Las uses ShlObj,shfolder son para la función ShGetSpecialFolderPath
y para las constantes CSIDL (ver ayuda delphi)
ej.- CSIDL_COMMON_APPDATA es para mostrar la ruta o crear
C:\Documents and Settings\All Users\Datos de programa

Código Delphi [-]
unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShlObj,shfolder ;

type
  TForm8 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

function CarpetasEspeciales(csidl:cardinal)  : string;

var
   path: array [0..MAX_PATH] of char;
begin
   ShGetSpecialFolderPath(0,@path[0],csidl,false(*true crea la carpeta *)) ;
   Result := path;
end;


procedure TForm8.FormCreate(Sender: TObject);
var i: cardinal;
begin

 Edit1.Text:=  CarpetasEspeciales(CSIDL_COMMON_APPDATA);
 for i := 0 to  $ff do
      memo1.Lines.Add(Inttostr(i)+' : '+CarpetasEspeciales(i));

end;

end.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:40:24.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi