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;