Tema: Filtrar unidades en ShellTreeView
Ver Mensaje Individual
  #2  
Antiguo 15-04-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
  
Registrado: oct 2006
Posts: 2.159
Reputación: 22
cHackAll Va por buen camino
 
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
Responder Con Cita