5 respuestas en este tema

[cHackAll]

El tema es muy buscado y poco documentado; por lo cual escribo la unidad Ejector que en su primera versión tiene la siguiente interfaz;

delphi

// . . .
 
 // retorna un mensaje de la libreria dinamica "hotplug"
 function usbGetMessage(uID: Cardinal; lpString: PChar): string;
 
 // retorna la serie (física) de un dispositivo USB
 function usbGetSerial(Drive: Char; var SerialNumber: ShortString): LongBool;
 
 // intenta expulsar un dispositivo en forma segura
 function usbTryEject(Drive: Char): LongBool;
 
 // enumera todos los archivos/carpetas abiertos de una unidad
 function usbEnumUses(Drive: Char; Callback: TCallback; Param: Pointer = nil): Integer;
 
// . . .

Un ejemplo de su modo de uso;

delphi

// . . .
 
uses Ejector;
 
function Enumerator(dwProcessId: Cardinal; lpObject, lpProcessName, lpList: PChar): LongBool; stdcall;
begin
 PString(lpList)^ := PString(lpList)^ + #13' - ' + lpProcessName + '(' + IntToStr(dwProcessId) + ') - "' + lpObject + '"';
 Result := True;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 List: string;
 Count: Integer;
 Serial: ShortString;
begin
 Button1.Enabled := False;                     // lock button...
 
 List := usbGetMessage(1206, 'H:') + #13;      // get "unstopable" message
 Count := usbEnumUses('H', Enumerator, @List); // enumerate opened handles
 if (Count = -1) or not usbGetSerial('H', Serial) then // get "real" serial of device
  MessageBox(Handle, PChar(usbGetMessage(1003, nil)), PChar(Application.Title), MB_ICONERROR)
 else
  if Count > 0 then
   MessageBox(Handle, PChar(List), nil, MB_ICONEXCLAMATION) // show opened objects
  else
   if MessageBox(Handle, PChar('Estás seguro de expulsar la unidad "' + Serial + '" ?'), PChar(Application.Title), MB_ICONQUESTION or MB_YESNO) = ID_YES then
    if not usbTryEject('H') then  // try to eject it...
     MessageBox(Handle, PChar(usbGetMessage(2257, 'H:')), nil, MB_ICONERROR)
    else
     MessageBox(Handle, PChar(usbGetMessage(2260, 'H:')), nil, MB_ICONINFORMATION);
 
 Button1.Enabled := True;
end;
 
// . . .

La función más inestable del código es usbEnumUses que utiliza un par de APIs no documentadas, utilizadas por el S.O. y sujetas a cambios, sin embargo dicha función habrá de cambiar según se encuentren alternativas optimas y con sus comentarios.

Enjoy!

[egostar]

Hola Little Bro

Muy interesante tu code.

Algunas veces me ha pasado que por alguna razón "desconocida" he querido desconectar mi USB y me muestra una pantalla de aviso que no es posible desconectar el dispositivo, esto con el ya conocido (Remover Hardware con seguridad) ¿este proceso "obliga" a windows desconectarlo?

Salud OS

[cHackAll]

Algunas veces me ha pasado que por alguna razón "desconocida" he querido desconectar mi USB y me muestra una pantalla de aviso que no es posible desconectar el dispositivo, esto con el ya conocido (Remover Hardware con seguridad) ¿este proceso "obliga" a windows desconectarlo?

Existen varios motivos para que no puedas remover un dispositivo fí­sico USB, sin embargo la mas comun es que dicho dispositivo esta siendo utilizado por algun proceso; digamos que en el "Flash" tienes un programa, y lo corres... posteriormente lo intentas remover; esto no sera posible porque existen objetos que estan abiertos en el Flash (CurrentPath, exe, etc.), es el mismo caso si en el Flash tienes un virus y sin saberlo lo ejecutas.

Es por ello que implementé la funcion usbEnumUses. Para poder saber qué programas estan utilizando qué cosas en un Flash. No se puede forzar la extracción a pesar que se finalicen los procesos que lo utilizan o en su defecto si se anulan los manejadores de los objetos abiertos... pero este es un tema mas complejo.

Salud!

[escafandra]

Muy buen aporte, cHackAll.
Interesante el uso de la librerí­a hotplug.dll para la extracción segura del dispositivo.

Para documentar con un poco de teorí­a dejo este interesante artí­culo:
"How To Ejecting Removable Media in Windows NT/Windows 2000/Windows XP"

En definitiva es una buena unidad que sin duda nos ayudará a muchos. 

Saludos.

[cHackAll]

...Para documentar con un poco de teorí­a dejo este interesante artí­culo...

Solo me queda comentar la sencillez del codigo demostrado en el artí­culo que nos facilitas; me he percatado que el mismo realiza una extracción como si se tratara de la expulsión de un CD, y éste es el sistema utilizado por Windows 9x y Vista +. La extracción eléctrica solo está presente en Windows XP.

Salud!

[V3ct0r]

Exelente el aporte voy a probarlos para ver que tal funciona