Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / CD-ROM / 2 сообщений из 2, страница 1 из 1
23.01.2004, 13:28
    #32386120
smathcopm
smathcopm
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CD-ROM
WinForms: Как заставить трэй си-ди-рома выдвигаться и задвигаться? Неделю уже ищу, а результатов ноль.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2004, 15:30
    #32386378
hDrummer
hDrummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CD-ROM
вот что дал поиск в гугле:
::1::
You can import shell32.dll typelib and use this (assuming
your CD drive letter is F:):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Shell32.Shell sh = new Shell32.Shell();
Shell32.Folder3 f =  (Shell32.Folder3)sh.NameSpace( "c:\\" );
f = (Shell32.Folder3)f.ParentFolder;
Shell32.FolderItems3 items =  (Shell32.FolderItems3)f.Items
();
foreach ( Shell32.FolderItem2 item in items )
{
  if ( item.Name.IndexOf( "F:" ) >  0  )
  {
 item.InvokeVerb( "E&ject" );
  }
}


::2::

Private Declare Function mciSendString Lib "winmm.dll" Alias
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As
String, ByVal uReturnLength As Integer, ByVal hwndCallback As IntPtr) As
Integer

' Open the CD
mciSendString "set CDAudio door open", r, 127, IntPtr.Zero

' Close the CD
mciSendString "set CDAudio door closed", r, 127, IntPtr.Zero

--
Remember: There's no place like 127.0.0.1
==============================================
Happy To Help,
Tom Spink
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / CD-ROM / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]