Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Работа с CD-ROM'ом -- Новая идея!
Goto page 1, 2  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы printer-friendly view
View previous topic :: View next topic  
Author Message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Sun Sep 17, 2006 06:27    Post subject: Работа с CD-ROM'ом -- Новая идея! Reply with quote

Привет всем!
Клавиши F1 (Кто-нить когда-нить справку читал? Very Happy ), F11 и F12 на моём ТС никогда не использовались. Задумка:
На F1 повесить изменение состояния CD-ROM'а. Т.е., если открыт - закрыть и наоборот. Причём, при закрытии не просчитывать наличие компакт-диска. Просто закрыть. А на F11 и F12 повесить переход на сидюк, соответственно, на левой и на правой панелях ТС.
Лично я пока это всё реализовал с помощью скриптов от Aezay (прога "TcScript") и утилитки "CDEject". Но что-то мне оно не очень нравится.
Могут ли наши гуру реализовать это с помощию скриптов "vbs"?
И, желательно, без применения ентой утилитки. Просто скриптом...
Back to top
View user's profile Send private message
StrangeRRor



Joined: 15 Jul 2006
Posts: 214

Post (Separately) Posted: Sun Sep 17, 2006 14:28    Post subject: Reply with quote

Quote:
А на F11 и F12 повесить переход на сидюк

Для этого можно использовать команду cm_GotoDrive[диск]=...
Back to top
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Mon Sep 18, 2006 03:39    Post subject: Reply with quote

Эти команды и используются. Сидюк у меня буквой Z, поэтому никаких напрягов с cm_GotoDrive нет. Просто, когда закрываешь сидюк средствами ТС, т.е. этой командой (а вставлена, например, болванка для записи), то ТС слишком долго её пытается прочитать, а затем выкатывает - "Ошибка, нет диска!". А у меня по F1 сидюк просто закрывается, без чтения.
Я через 10-15 мнут забыл, что на приводе кнопка есть...
Back to top
View user's profile Send private message
StrangeRRor



Joined: 15 Jul 2006
Posts: 214

Post (Separately) Posted: Mon Sep 18, 2006 10:17    Post subject: Reply with quote

А если попробовать поиграть с параметрами Noreread=... и DeviceChange=...
Back to top
View user's profile Send private message
CaptainFlint



Joined: 14 Dec 2004
Posts: 6004
Location: Москва

Post (Separately) Posted: Mon Sep 18, 2006 10:28    Post subject: Reply with quote

aLexx
Вот, нарыл в инете VBS-скрипт, подогнал под требуемые условия:
Code:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(0).Eject
colCDROMs.Item(0).Eject

Вроде, работает. Eject вызывается два раза, поскольку эта функция закрывает лоток только если была вызвана после открытия. В первый раз пытается открыть, даже если сидюк открыт.
Единственная проблема - у меня не хочет завершаться. Процесс wscript остаётся висеть в памяти. Может, кто-то из скриптовых гуру подсобит...

StrangeRRor wrote:
А если попробовать поиграть с параметрами Noreread=... и DeviceChange=...

Вопрос был не в этом. Просто если использовать для закрытия сидюка команду перехода на диск, то Тотал будет после закрытия переходить на этот диск и перечитывать его, чего хочется избежать, если диска нет. Требуется просто закрыть, без перехода на этот диск и без использования внешних средств (не знаю, почему).
_________________
Почему же, ё-моё, ты нигде не пишешь "ё"?
Back to top
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Sat Sep 23, 2006 10:27    Post subject: Reply with quote

2 CaptainFlint
Сенькс, будем пробовать...

"без использования внешних средств (не знаю, почему)"
Хотя и утилька CDEject_103 (автор - Tir Na Nog) всего 12 кб, но хотелось бы более элегантное решение... Very Happy
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sun Sep 24, 2006 04:08    Post subject: Reply with quote

aLexx wrote:
... всего 12 кб, но хотелось бы более элегантное решение... Very Happy


NERO установлена? Тогда может вот этот VBS скрипт подойдет:
Code:
Set n = CreateObject("Nero.Nero")
Set d = n.GetDrives(262172)(0)
'd.EjectCD
d.LoadCD
'd.EraseCDRW(True)
Set d=Nothing
Set n=Nothing

Закомментированные строки это для создания других команд. Соответственно d.EjectCD для выкидывания СD, а d.EraseCDRW(True) - для быстрого стирания RW диска (это не проверил, просто такого диска под рукой не оказалось).


Last edited by Volniy on Sun Sep 24, 2006 15:26; edited 1 time in total
Back to top
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Sun Sep 24, 2006 07:40    Post subject: Reply with quote

Nero7 установлен. Но думаю сносить...
Нашёл прогу для записи CD-DVD. Всего 500 кб, а умеет всё, что может Nero. Простая, как перетягивание каната.
Но скриптик попробую. Спасибо!
Back to top
View user's profile Send private message
Zorroz



Joined: 16 Dec 2004
Posts: 308
Location: Россия, Иркутская обл., г. Ангарск

Post (Separately) Posted: Sun Sep 24, 2006 08:18    Post subject: Reply with quote

Volniy
EjectCD и LoadCD работают. При вызове d.EraseCDRW(True) ничего не происходит. Стоит Nero7.
_________________
Когда ангелу обрезают крылья, он учится летать на метле...
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sun Sep 24, 2006 15:44    Post subject: Reply with quote

Zorroz wrote:
При вызове d.EraseCDRW(True) ничего не происходит. Стоит Nero7.

Взял у соседа RW и проверил - точно не трёт. Заморочка с выбором типа поддерживаемых носителей. Там большой список констант и никакого объяснения что и к чему. Поменял на 262172 (NERO_MEDIA_DVD_ANY). Теперь вроде работает (у меня Smile ).

Arrow Немного более продвинутый вариант скрипта

.
Back to top
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Sun Sep 24, 2006 18:50    Post subject: Reply with quote

И всё-таки пока решил оставить всё как есть...
Прдётся стороннюю прогу юзать.
Вот когды освою WSH, буду экскрименты ставить.
Back to top
View user's profile Send private message
DrShark



Joined: 21 Oct 2006
Posts: 910
Location: Kyiv, Ukraine

Post (Separately) Posted: Sat May 31, 2008 00:31    Post subject: Reply with quote

CaptainFlint wrote:
Вот, нарыл в инете VBS-скрипт, подогнал под требуемые условия:
[...]
Единственная проблема - у меня не хочет завершаться. Процесс wscript остаётся висеть в памяти. Может, кто-то из скриптовых гуру подсобит...

Отличное решение! И у меня процесс в памяти не висит.
Back to top
View user's profile Send private message
Вахмурка



Joined: 27 Dec 2004
Posts: 2560
Location: Большая деревня Москва

Post (Separately) Posted: Sat May 31, 2008 21:23    Post subject: Reply with quote

У PowerPro есть плагин, открывающий/закрывающий лоток. Внешних утилит не требует. Мне не подходит, потому что у меня лотков этих два, а тот плагин позволяет работать только с одним. Я повесил действия открыть/закрыть на клавиши в ТС и на панель PowerPro. Однако поставленную в посте aLexx задачу тот плагин решает.
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон)
Back to top
View user's profile Send private message
Моторокер



Joined: 06 May 2005
Posts: 1489
Location: г. Пермь (читается Перьмь)

Post (Separately) Posted: Mon Jun 02, 2008 08:08    Post subject: Reply with quote

Программа CDSlow решает все проблемы, плюс ограничивает скорость вращения диска.
_________________
плагины для Total Commander, статьи Graphics Converter; NSCopy; SEO HTML; KillOK; Плагин на Delphi
ПармаСруб - строительство домов и бань в Перми


Last edited by Моторокер on Wed Jun 04, 2008 08:12; edited 1 time in total
Back to top
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Tue Jun 03, 2008 23:58    Post subject: Reply with quote

А можно здесь поподробней? Из командной строки можно, или нет?
У меня версия CDSlow 2.2.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы All times are GMT + 4 Hours
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group