USB cihazımı programdan kapatmak!

[misterapocalypse]

Arkadaşlar yardıma ihtiyacım var!

Bir programım var ve program çalıştığında USB cihazları listbox a listeliyor. ismini gördüğüm cihazı mesela 3 dakika sonra otomatik kapanmasını istiyorum. (USB eject)
Yani USB cihazlarını CANLI görüntüleyecek ve seçtiğim usb cihazı belirttiğim süre sonunda çıkarılacak.

Konu ile ilgili google da arama yaptım ama doğru dürüst ücretsiz bir component bulamadım. Arkadaşlardan konuya hakim birsinin örnek koduyla göstermesini istiyeceğim şimdiden teşekkür istediğim proje şöyle

[barisatalay]

Hazır kod vermeyi pek sevmem ama konuya hakim de değilim
Zamanında Muharrem hocamızın bir konuda yine soran bir arkadaş için hazırlamış olduğu örneği ekten inceleyebilirsin.

[misterapocalypse]

barisatalay kardeşim öncelikle ilgin için teşekkür ederim.

Hata problemini çözemedim. d7 kullanıyorum

[mrmarman]

Code bloğundaki ilk ve son satırı UNIT içerisinde bulup araya

Kod: Tümünü seç

TYPE ULONG_PTR = ^ULONG;

satırını ekleyip dener misin.

Kod: Tümünü seç

Procedure USB_Listele(Drives:TStrings; DriveRemovable, DriveFixed, DriveCDRom:Boolean);

type ULONG_PTR = ^ULONG;

const

[misterapocalypse]

mrmarman bey e teşekkür dediğini yaptım çalıştı.
usb_islemleri unitine ULONG_PTR = ^ULONG; satırını ekledim.

Kod: Tümünü seç

  Type
    PDEVICE_TYPE    = ^DEVICE_TYPE;
    DEVICE_TYPE     =  DWORD;

    PDEVINST        = ^DEVINST;
    DEVINST         =  DWORD;

    PPNP_VETO_TYPE  = ^PNP_VETO_TYPE;
    PNP_VETO_TYPE   =  DWORD;

    PRETURN_TYPE    = ^RETURN_TYPE;
    RETURN_TYPE     =  DWORD;

    PCONFIGRET      = ^CONFIGRET;
    CONFIGRET       =  RETURN_TYPE;

    PHDEVINFO       = ^HDEVINFO;
    HDEVINFO        =  Pointer;

    PPTSTR          = ^LPWSTR;
    PTSTR           =  LPWSTR;
    ULONG_PTR       = ^ULONG;  // <---- eklediğim satır.

bir hata daha verdi application... vs diye daha sonra onuda
// application....
şeklinde disable yaptım program çalıştı. HERKESE TAVSİYE EDERİM SUPER!

[G.Arkas]

Sanırım

Kod: Tümünü seç

Application.MainFormOnTaskbar := True;

bu hatadan bahsediyorsun. Bu bir hata değil Program Delphi 2007 de yazılmış bu yüzden D7 ve üzeri sürümlerde bu method var. Kaldırmanda bir problem yok. Uygulamana zarar vermez.

[misterapocalypse]

G.Arkas arkadaşıma teşekkür!