33 respuestas en este tema

[monchito_elroro]

Gracias amigo, pero mas o menos que es lo que tendrìa que hacer con ese còdigo:

delphi

ListBox1.Items.Add(GetDriveName(Letra + ':\'));

Pues este lo utilizo para que me muestre la unidad + su LABEL (con la manera que usted me sugirió)

[escafandra]

Funciona todo muy bien..... solo que sigue sin actualizarse el label cuando le cambio de nombre
a la unidad X:\

Esto no lo entiendo. El código, tal como está detecta la inserción y desinserción de un disco USB, además no da la letra de unidad sino el nombre que le asigna Windows además de la letra.  GetDriveName devuelve el nombre que le da Windows a una unidad mas su letra.

¿Que es que no se actualiza el label?. ¿Cuando, en que momento no se actualiza? ¿Le cambias a mano el nombre de unidad?.

Si cambias el nombre, no esperes que se actualice hasta que no provoques la llamada a CrearLista.

En definitiva no se exactamente a lo que te refieres.


Saludos.

[monchito_elroro]

Buenas, me disculpo ante todo si no di màs detalles, lo que pasa es que con LABEL me refiero al nombre de etiqueta de las Unidades Removibles, como les decìa todo funciona muy bien pero la incognita que tengo es que cuando abro el programita detecta todo bien .... ahora si manualmente cambio su Etiqueta en el explorador de windows entonces el nuevo nombre no se actualiza en el programita, a menos que lo cierre y lo vuelve a abrir...

Este era mi incognita...... perdonèn si les incomodo....

[escafandra]

monchito_elroro no incomodas, tranquilo. El problema está en que si to te explicas de forma clara no se entiende la duda y es imposible responder adecuadamente.

Bien ahora entiendo que lo que haces es cambiar la etiqueta de volumen a tu unidad y que ese cambio no se actualiza.

Con el sistema que has elegido para detectar la inserción de unidad, el cambio en su etiqueta de volumen desde el explorador no va ha ser comunicado por el mensaje WM_DEVICECHANGE y por lo tanto no lo puedes manejar.

Con el sistema que te propuse en un principio para monitorizar el Shell, si puedes detectarlo, simplemente como un cambio de nombre de carpeta SHCNE_RENAMEFOLDER.  Ahora depende de tu necesidad de detectar el cambio de etiqueta de volumen para cambiar toda tu implementación a monitor de shell, monitorizar sólo cambios de nombre o no hacer nada mas.

Una solución de compromiso, para no cambiar todo el código es registrar sólo el mensaje SHCNE_RENAMEFOLDER, pero personalmente me parece un poco chapuza.

No he experimentado con Lazarus para monitorizar el Shell. Muy posiblemente esos mensajes no los reciba Lazarus y se tengan que trampear con un subclassing, pero como eso ya lo tienes implementado, no es difícil.


Saludos.

[monchito_elroro]

Gracias amigo escafranda por la comprensiòn..... eso de detectar la modificaciòn de la etiqueta con el shellmonitor ya lo verè......

mas bien como ultima pregunta: ¿como podrìa hacer para que el resultado de su truco para saber la etiqueta se lea al revez, ejemplo:

en su ejemplo usando la "function GetDriveName" el resultado se leerìa "SISTEMA (C:)" ahora como podrìa hacer para el resultado se lea como "(C:)SISTEMA"

En su ejemplo de llamada usted puso:

delphi

Label1.Caption:= GetDriveName('C:\');

he intentando poniendolo mas o menos asì:

delphi

Label1.Caption:= ('C:\')+GetDriveName;

pero me sale error....

[escafandra]

delphi

function ReveseDrive(S: String): String;
begin
  Result:= Copy(S, pos('(', S), length(S))+ ' ' + Copy(S, 0, pos('(', S)-1);
end;

Saludos.

[monchito_elroro]

Gracias escafandra por la ayuda.... creo que este serà el final del post..... cualquier otra consulta les estarè comunicando....... gracias amigos...

[Fenareth]

Gracias escafandra por la ayuda.... creo que este serà el final del post..... cualquier otra consulta les estarè comunicando....... gracias amigos...

Colocamos el tema como RESUELTO amigo ???

Saludox !

[monchito_elroro]

Upss..... disculpas  .... 

[escafandra]

Me gustaría añadir al tema una solución de compromiso al problema de que no se actualice la etiqueta de volumen recientemente cambiada en una unidad USB. Dado que en un principio monchito_elroro no quiere monitorizar el Shell, le propongo lo que le insinué aquí:

Si cambias el nombre, no esperes que se actualice hasta que no provoques la llamada a CrearLista.

Es decir y concretando la propuesta, en un evento como OnActivate o en OnShow, por ejemplo, puedes forzar una llamada a CrearLista. Con esto leerás tudas las unidades conectadas y se actualizarán sus nombres.


Saludos.

[ISEKO]

Para los que preguntaban lo del USB aqui les dejo un codigo que encontre que se evitan el timer o el ciclo
una Unit para que la puedan usar y yo la he provado 100%
debajo un ejemplo

delphi

/ Component to detect when usb devices are connected or disconnected
// using RegisterDeviceNotification
 
unit U_usb;
 
interface
 
uses
Windows, Messages, SysUtils, Classes, Forms;
 
type
 
PDevBroadcastHdr = ^DEV_BROADCAST_HDR;
DEV_BROADCAST_HDR = packed record
                      dbch_size: DWORD;
                      dbch_devicetype: DWORD;
                      dbch_reserved: DWORD;
                    end;
 
PDevBroadcastDeviceInterface = ^DEV_BROADCAST_DEVICEINTERFACE;
 
DEV_BROADCAST_DEVICEINTERFACE = record
                                  dbcc_size: DWORD;
                            dbcc_devicetype: DWORD;
                              dbcc_reserved: DWORD;
                             dbcc_classguid: TGUID;
                                  dbcc_name: short;
                                end;
 
const
GUID_DEVINTERFACE_USB_DEVICE: TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}';
DBT_DEVICEARRIVAL = $8000; // system detected a new device
DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
DBT_DEVTYP_DEVICEINTERFACE = $00000005; // device interface class
 
type
 
TComponentUSB = class(TComponent)
private
  FWindowHandle: HWND;
  FOnUSBArrival: TNotifyEvent;
  FOnUSBRemove: TNotifyEvent;
 
procedure WndProc(var Msg: TMessage);
function  USBRegister: Boolean;
 
protected
 
procedure WMDeviceChange(var Msg: TMessage); dynamic;
 
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
 
property OnUSBArrival: TNotifyEvent read FOnUSBArrival write FOnUSBArrival;
property OnUSBRemove: TNotifyEvent read FOnUSBRemove write FOnUSBRemove;
end;
 
implementation
 
constructor TComponentUSB.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
  FWindowHandle := AllocateHWnd(WndProc);
  USBRegister;
end;
 
destructor TComponentUSB.Destroy;
begin
  DeallocateHWnd(FWindowHandle);
  inherited Destroy;
end;
 
procedure TComponentUSB.WndProc(var Msg: TMessage);
begin
  if (Msg.Msg = WM_DEVICECHANGE) then
  begin
    try
      WMDeviceChange(Msg);
    except
      Application.HandleException(Self);
    end;
  end else
    Msg.Result := DefWindowProc(FWindowHandle, Msg.Msg, Msg.wParam, Msg.lParam);
end;
 
procedure TComponentUSB.WMDeviceChange(var Msg: TMessage);
var
  devType: Integer;
  Datos: PDevBroadcastHdr;
begin
  if (Msg.wParam = DBT_DEVICEARRIVAL) or (Msg.wParam = DBT_DEVICEREMOVECOMPLETE) then
    begin
      Datos := PDevBroadcastHdr(Msg.lParam);
      devType := Datos^.dbch_devicetype;
      if devType = DBT_DEVTYP_DEVICEINTERFACE then
        begin // USB Device
          if Msg.wParam = DBT_DEVICEARRIVAL then
            begin
              if Assigned(FOnUSBArrival) then FOnUSBArrival(Self);
            end else
            begin
              if Assigned(FOnUSBRemove) then FOnUSBRemove(Self);
            end;
        end;
   end;
end;
 
function TComponentUSB.USBRegister: Boolean;
var
  dbi: DEV_BROADCAST_DEVICEINTERFACE;
  Size: Integer;
  r: Pointer;
begin
  Result := False;
  Size := SizeOf(DEV_BROADCAST_DEVICEINTERFACE);
  ZeroMemory(@dbi, Size);
  dbi.dbcc_size := Size;
  dbi.dbcc_devicetype := DBT_DEVTYP_DEVICEINTERFACE;
  dbi.dbcc_reserved := 0;
  dbi.dbcc_classguid := GUID_DEVINTERFACE_USB_DEVICE;
  dbi.dbcc_name := 0;
 
  r := RegisterDeviceNotification(FWindowHandle, @dbi,DEVICE_NOTIFY_WINDOW_HANDLE);
  if Assigned(r) then Result := True;
end;
 
end.
 
 
ejemplo:
 
 
procedure TForm1.USB_In(Sender: TObject);
begin
  label1.Caption:='USB Inserted';
end;
 
procedure TForm1.USB_Out(Sender: TObject);
begin
  label1.Caption:='USB Removed';
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  usb:=TComponentUSB.Create(self);
  usb.OnUSBArrival := USB_In;
  usb.OnUSBRemove  := USB_Out;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
   USB.Free;
end;

saludos ISEKO

[poliburro]

Muchas gracias compañero Iseko

[escafandra]

Para los que preguntaban lo del USB aqui les dejo un codigo que encontre que se evitan el timer o el ciclo...

En realidad no hay mucha diferencia entre el código que propones y éste. Mientras que el primero es un componente el segundo no lo es y ambos prescinden de timer. En realidad son la misma técnica de abordar el problema.


Saludos.

[monchito_elroro]

Muy agradecido amigo escafranda por su interés.... 
Voy a darme el tiempo para tratar de implementar el "ShellMonitor" que me recomienda...

De ahí les paso la voz...