Auto usuniecie Pendrive-a.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  pfnHotPlugEjectDevice = function (hwndParent: HWND; DeviceInstanceId: string) : Boolean;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
 HotPlugEjectDevice: pfnHotPlugEjectDevice = nil;

procedure TForm1.Button1Click(Sender: TObject);

var
   hHotPlug:HMODULE;
   res:boolean;
begin
res:=false;

   hHotPlug := LoadLibrary('HotPlug.dll');
 if hHotPlug = 0 then
 begin
   showmessage('ERROR in LoadLibrary(HotPlug.dll)   Error nr: '+IntToStr(GetLastError));
 end
  else
  begin
   showmessage('Wszystko ok!'+#13+'Ladujemy funkcje! z hotplug.dll');
    @HotPlugEjectDevice := GetProcAddress(hHotPlug, 'HotPlugEjectDevice');

   res := HotPlugEjectDevice(Handle, 'USB\VID_090C&PID_1000\AA04012700007695');

    if res = true then
     ShowMessage('udalo sie odlaczyc pendrive''a')
    else
      ShowMessage('NIE udalo sie odlaczyc pendrive''a :(((( !!!!');  // <<------- tutaj caly czas sie wysypuje poprostu nie odlacza pendriv'a

   FreeLibrary(hHotPlug); Caption := 'zwolniono bibliotekę hotplug.dll';
  end;
end;

end.

Post z przed wielu lat http://4programmers.net/Forum/viewtopic.php?id=119996 i w sumie patrze i nie wiem jak zmienic res := HotPlugEjectDevice(Handle, 'USB\VID_090C&PID_1000\AA04012700007695'); bo zapewne tu jest kłopot.

adydan napisał(a)

res := HotPlugEjectDevice(Handle, 'USB\VID_090C&PID_1000\AA04012700007695');

no na pewno tam jest błąd. Po pierwsze że musisz się odnieść do konkretnego urządzenia, ten wskaźnik jest zmienny a nie stały :]
najłatwiej chyba znaleźć listę podłączonych pendrive'ów przez rejestr:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Enum
Pobrać wartość z 'Count' i potem skopiować wartości podłączonych dysków usb, otworzyć rejestr
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum
z odpowiednim kluczem i wyciągnąć nazwę urządzenia spod 'LocationInformation' i wrzucać po kolei do comboboxa np.
z comboboxa wybrać dane urządzenie przez jego nazwę i potem przypisać odpowiedni klucz do tej funkcji.
tylko że z tego co ja sprawdzałem to to nie działa :)
nigdzie nie znalazłem też czy na pewno można się tak połączyć z biblioteką hotplug.dll - czy akurat są te funkcję do których się tu odwołuje.