Esto me servirá, si tengo conectado por USB un lector de memorias? Es lo unico que se me ocurrió en base a lo que anduve leyendo en el foro.
Código Delphi
[-]
procedure GetDrivers;
var
i ,j, nUnidad: integer;
cRutaIni : String;
DType : Integer;
DriveString : String;
begin
j := 0;
for i:=65 to 90 do
begin
cRutaIni:= chr(i) + ':\';
DType := GetDriveType(Pchar(cRutaIni));
case DType of
0 : DriveString := ' Disco No Reconocido';
1 : DriveString := ' Sin Directorio Raiz';
DRIVE_REMOVABLE : DriveString := ' Unidad de Diskette';
DRIVE_FIXED : DriveString := ' Unidad de Disco';
DRIVE_REMOTE : DriveString := ' Unidad de Red';
DRIVE_CDROM : DriveString := ' Unidad de CD-ROM';
DRIVE_RAMDISK : DriveString := ' Unidad de Disco RAM';
end;
if (DriveString<>' Sin Directorio Raiz') and (DriveString<>' Unidad de Disco') and (DriveString<>' Unidad de Red')
then begin
Form1.Memo1.Lines.Add(cRutaIni+' '+DriveString);
end;
end;
end;
Nota: el lector de memorias, lo tengo fijo, no lo desconecto nunca.
Saludos y Gracias
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;