Filtrar unidades en ShellTreeView

15-04-2008

MaMu

Miembro

Registrado: abr 2006

Ubicación: Argentina

Posts: 863

Poder: 21

Cita:

Empezado por cHackAll

Código Delphi [-]procedure TForm1.ShellTreeView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
begin
CanAdd := GetDriveType(PChar(AFolder.PathName)) = DRIVE_REMOVABLE;
end;

0j0; Root = 'rfMyComputer'

saludos

Intuitivamente, si quiero mostrar un CD-ROM seria asi?

Código Delphi [-] 
procedure TForm1.ShellTreeView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);

begin
CanAdd := GetDriveType(PChar(AFolder.PathName)) = DRIVE_CDROM; 
end;

Saludos

__________________

Código Delphi [-] 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;

« Tema Anterior | Próximo Tema »

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

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
ShellTreeview	Anel Hernandez	Varios	2	17-09-2007 14:39:51
Shelltreeview - Autorefresh - problema	modulay	OOP	4	19-03-2007 11:35:37
Cómo filtrar por tipos de archivo en un componente ShellTreeView	MaMu	API de Windows	3	14-08-2006 06:19:19
Problema con ShellTreeView	Pepe	API de Windows	4	11-01-2005 14:27:36
Problema con ShellTreeView	Waldo	API de Windows	1	21-07-2004 12:12:58

La franja horaria es GMT +2. Ahora son las 01:29:50.