Anwendung soll eigenes USB-Laufwerk entfernen

[Matze]

Hi,

ich bin dabei, ein kleines Backup-Tool zu schreiben. Das befindet sich auf einem USB-Stick und sichert Daten der Festplatte auf dem Stick. Nachdem das beendet ist, soll das Programm den USB-Stick sicher entfernen (aktuell noch Win2k).
Ich weiß nun nicht, ob das möglich ist, einfach so das Laufwerk zu deaktivieren, auf dem noch etwas ausgeführt wird.

Am Ende soll das Programm eine entsprechende Meldung anzeigen, dass der USB-Stick entfernt werden kann. Per klick ob "OK" wird sich dann das Programm schließen. Zumindest dachte ich an sowas in der Art.

Doch wie kann man das lösen und überhaupt ein Laufwerk deaktivieren? In der DP gibt's die Deaktivieren-Frage öfters, nur ohne Lösungen.

Grüße, Matze

[RWarnecke]

Hallo Matze,

in meinem Programm SystemInfo benutze ich diese Procedure um auf das Verbinden/Trennen eines USB-Laufwerks zu reagieren :

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
//
//  Die Daten zu den physikalischen Laufwerken aktualisieren, wenn ein USB
//  Gerät angeschlossen oder getrennt wird.
//
procedure TMainForm.WMDeviceChange(var Msg: TMessage);
type
  PDevBroadcastHdr = ^TDevBroadcastHdr;
  TDevBroadcastHdr = packed record
    dbcd_size, dbcd_devicetype, dbcd_reserved: DWORD;
  end;
  PDevBroadcastVolume = ^TDevBroadcastVolume;
  TDevBroadcastVolume = packed record
    dbcv_size, dbcv_devicetype, dbcv_reserved, dbcv_unitmask: DWORD;
    dbcv_flags: Word;
  end;

  function GetDrive(pDBVol: PDevBroadcastVolume): string;
  var
    i: Byte; Maske: DWORD;
  begin
    if (pDBVol^.dbcv_flags and $0001) = $0001 then
    begin
      Maske := pDBVol^.dbcv_unitmask;
      for i := 0 to 25 do
      begin
        if (Maske and 1) = 1 then
        Result := Char(i + Ord('A')) + ': ';
        Maske := Maske shr 1;
      end;
    end;
  end;

begin
  case Msg.wParam of
  $8000:
    if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = $0002 then
    begin
      // ToDo something
    end;
  $8004:
    if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = $0002 then
    begin
      // ToDo something
    end;
  end;
end;

Ich nehme mal an, dass es dafür auch eine Message gibt um ein Laufwerk zu trennen. Vielleicht kannst Du ja damit was anfangen.

[himitsu]

wenn ich über dieses "Hardware sicher entfernen"-Icon geh und noch was auf dem Stick läuft, dann meckert Windows ... also wird es vermutlich am Besten sein, wenn du das Trennen ins Temp-Verzeichnis verlagerst.

[jaenicke]

Dass es geht, zeigt Windows selbst. Denn Windows kann das Sperren einer Partition erzwingen, es sei denn es handelt sich um das Systemlaufwerk.
Aber wie das geht, weiß ich leider nicht.

Da gab es glaube ich mal den Befehl lock, aber das gab es wohl nur unter 2000 oder so.

[himitsu]

Zitat:

Zitat von jaenicke

Da gab es glaube ich mal den Befehl lock, aber das gab es wohl nur unter 2000 oder so.

man muß nur mal gucken, was der Format-Befehl macht (der inner DOS-Box, der kann das)

aber nötig isses ja nicht, wenn man ds Laufwerk nicht belegt hat :angel2:

[jaenicke]

Zitat:

Zitat von himitsu

aber nötig isses ja nicht, wenn man ds Laufwerk nicht belegt hat :angel2:

Das kommt ganz auf die Konfiguration an. In der Standardkonfiguration greift sogar Windows selbst teilweise drauf zu und verhindern ein Entfernen. Das kann man zwar relativ einfach einstellen, aber wenn man das nicht tut, gehts nicht immer.