Jak wysunąć szufladkę CD-ROM-u
Adam Boduch
Uniwersalny sposób dzięki któremu wysuniemy szufladkę z dowolnego napędu optycznego.
#include <windows.h>
/*
...
*/
//otwieramy volumin napędu optycznego (tj. pod literą H)
HANDLE hwnd = CreateFileA("\\\\.\\H:", GENERIC_READ, FILE_SHARE_WRITE | FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, NULL);
if (hwnd != INVALID_HANDLE_VALUE)
{
DWORD cc;
//wysuwamy szufladkę
DeviceIoControl( hwnd, IOCTL_STORAGE_EJECT_MEDIA,
NULL, 0, NULL, 0, &cc, NULL
);
//wsuwamy szufladkę
DeviceIoControl( hwnd, IOCTL_STORAGE_LOAD_MEDIA,
NULL, 0, NULL, 0, &cc, NULL
);
//zamykamy uchwyt
CloseHandle(hwnd);
}
Mammoth, nie zmieniaj tego znowu na Delphi. Ten FAQ przeniosłem do działu C++ bo:
I w ten sposób artykuł pierwotnie napisany przez Adama o otwieraniu tacki w Delphi dokonał mutacji do kodu C++ w innej kategorii.
Anyway chyba nie ma sensu trzymać 2 artów o tym samym
Kod CPP w dziale Delphi?
Szczególnie, że coś takiego już jest w mojej kategorii:
CD Machacz
tomksoft, Jak wysunąć CD-ROM (CD-RW, DVD itp ) o dowolnej literze Ci się przyda
Seigba: i jaki z tego morał?
kurde pelno takich rzeczy po necie lata =}
ja ma dwa CD-room-y i mi nie działa ;-(