Отправлено: 02.02.10 12:21. Заголовок: Пустой дисковод

Мне надо из программы (xHarbour) записать на дискету пару файлов. Вставляю в программу DirChange("A"), DirReady("A") и если дисковод пустой, то на экране появляется сообщение windows - дисковод пустой, и лишь потом выполняется моя программа. Как это обойти?

 Отправлено: 02.02.10 12:31. Заголовок: Попробуй IsDisk( &#..

Попробуй
IsDisk( <cDrive> ) --> lDriveIsReady

 Отправлено: 02.02.10 13:15. Заголовок: А тоже самое. Я проб..

А тоже самое. Я пробовала Dirchange, DiskReady, IsDisk, DiskUsed, результат тот же. Как перехватить это событие. Вставляла try ... catch, не помогает.

 Отправлено: 02.02.10 14:12. Заголовок: When a user attempts..

When a user attempts to get information about a floppy drive that does not have a floppy disk, or a CD-ROM drive that does not have a compact disc, the system displays a message box for the user to insert a floppy disk or a compact disc, respectively. To prevent the system from displaying this message box, call the SetErrorMode function with SEM_FAILCRITICALERRORS.

P.S. Только не забудьте потом SetErrorMode(0)

 Отправлено: 02.02.10 14:35. Заголовок: Спасибо, помогло сле..

Спасибо, помогло следующее:
SetErrorMode(1)
if !IsDisk("A")
AVARSOOB('Нет дискеты')
endif

 Отправлено: 02.02.10 14:40. Заголовок: #define SEM_FAILCRIT..

#define SEM_FAILCRITICALERRORS 0х0001

SetErrorMode(1)
if !IsDisk("A")
AVARSOOB('Нет дискеты')
endif
SetErrorMode(0)

 Отправлено: 02.02.10 14:56. Заголовок: Спасибо, сделала, НЕ..

Спасибо, сделала, НЕ ЗАБЫЛА

 Отправлено: 02.02.10 15:03. Заголовок: Еще вопрос по недоку..

Еще вопрос по недокументированной функции DriveType(). Может у кого-нибудь есть возвращаемые коды

 Отправлено: 02.02.10 15:13. Заголовок: судя по исходникам

  { 
       case DRIVE_RAMDISK: 
          iType = 0;           /* RAM Drive - Clipper compatible */ 
          break; 
       case DRIVE_REMOVABLE: 
          iType = 2;           /* Floppy Drive - Clipper compatible */ 
          break; 
       case DRIVE_FIXED: 
          iType = 3;           /* Hard Drive  - Clipper compatible */ 
          break; 
       case DRIVE_CDROM: 
          iType = 4;           /* CD-Rom Drive - xHarbour extension */ 
          break; 
       case DRIVE_REMOTE: 
          iType = 5;           /* Network Drive - xHarbour extension */ 
          break; 
       default: 
          iType = 9;           /* Unknow Drive - xHarbour extension */ 
          break; 
    } 
    hb_retni( iType ); 
 

 Отправлено: 02.02.10 15:17. Заголовок: Еще раз спасибо..

Еще раз спасибо

 Отправлено: 02.02.10 15:25. Заголовок: а USB-носитель можно..

а USB-носитель можно как-то определить?

 Отправлено: 02.02.10 15:46. Заголовок: lena пишет: а USB-н..

lena пишет:

цитата:

а USB-носитель можно как-то определить?

Function GetRmDrives
// -------------------------------------------------------------
// Возвращает массив сменных дисков
// -------------------------------------------------------------
Local i, aDrv := {}, cd
for i := 1 to 26
cd := Chr(96+i) + ':\'
if DriveType(cd) == 2
AADD(aDrv, cd)
endif
next
Return aDrv

 Отправлено: 02.02.10 15:54. Заголовок: Спасибо..

Спасибо

 Отправлено: 03.02.10 18:29. Заголовок: Елена, извините за о..

Елена, извините за оффтопик :) Просто интересно - какой тематикой занимаетесь? (для какой области деятельности программируете?) А то редко тут программисты немужского пола попадаются :) Да и на HMGforum.com , помнится, была такая ветка - "Lady Programmer on HMG" (т.ч. это "проблема международного масштаба" :) )

 Отправлено: 03.02.10 21:17. Заголовок: gustow пишет: редко..

gustow пишет:

цитата:

редко тут программисты немужского пола попадаются

Да, да это точно редко. Хотя в ВЦ Академии Наук Таджикской ССР я много знал женщин программистов.
Тогда еще работали на ЕС ЭВМ, БЭСТ и др.
Пишите почаще, поможем всегда....

 Отправлено: 05.02.10 15:45. Заголовок: Сопровождаю зарплату..

Сопровождаю зарплату на предприятии, если уж такой интерес возник . Уж и не знаю кто я, программист или бухгалтер . Нечто среднее. Так что не переживайте . Очень помогает форум. Работаю с xHarbour около двух лет. Вот думаю, может стоит перейти на Harbour.

 Отправлено: 08.02.10 09:00. Заголовок: lena пишет: Уж и не..

lena пишет:

цитата:

Уж и не знаю кто я, программист или бухгалтер . Нечто среднее. Так что не переживайте .

:) А мы все тут "нечто среднее" :) ... между программистом и бухгалтером, медстатистиком, жилконторщиком, кладовщиком, продажником, учетчиком и др. и пр... И не переживаем! Еникейщики однако (да еще ex-СССРовские)... "из дерьма конфетку" лепить привышные... Так что харборские штучки - это как раз для нас :)