purebasic.info

PureBasic forum
Текущее время: Пн июл 16, 2018 12:26 am

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: Запуск файла с флешки
СообщениеДобавлено: Ср апр 11, 2018 10:20 pm 
Не в сети
ассистент

Зарегистрирован: Сб фев 27, 2016 4:37 pm
Сообщений: 13
Благодарил (а): 5 раз.
Поблагодарили: 1 раз.
Пункты репутации: 0
Прошу вашей помощи. У меня такая проблема - Необходимо запустить файл, Точно известно его имя (Prog.cmd) и папка (PRG),
НО абсолютно неизвестна буква диска (находится на Флешки) Т.Е. путь: ???:\PRG\Prog.cmd
Есть батник для поиска файла, но хочется сделать это средствами РВ , к тому же планируется перехватить сообщения батника
и вывести его на "EditorGadget". Может мне кто нибуть помочь :?: :?: :?:


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Запуск файла с флешки
СообщениеДобавлено: Ср апр 11, 2018 11:46 pm 
Не в сети
профессор

Зарегистрирован: Сб фев 06, 2016 6:18 pm
Сообщений: 261
Благодарил (а): 14 раз.
Поблагодарили: 30 раз.
Пункты репутации: 0
:)
Код:
1
2
3
4
5
6
7
8
9
Dim  lpBuffer(256)
DriveStrings.i = GetLogicalDriveStrings_(256, @lpBuffer())
 
For i.i = 0 To DriveStrings/2 Step 2
  If GetDriveType_(Chr(lpBuffer(i))+":\") = 2
    Logical.s = Chr(lpBuffer(i))
    RunProgram(Logical+":\PRG\Prog.cmd")
  EndIf
Next i


На всякий случай:
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim  lpBuffer(256)
DriveStrings.i = GetLogicalDriveStrings_(256, @lpBuffer())
 
For i = 0 To (DriveStrings/2)-1 Step 2
  Select GetDriveType_(PeekS(@lpBuffer(i), -1, #PB_Unicode))
    Case #DRIVE_UNKNOWN
      Debug PeekS(@lpBuffer(i), -1, #PB_Unicode)+"   0"+"   Тип диска не может быть определен"
    Case #DRIVE_NO_ROOT_DIR
      Debug PeekS(@lpBuffer(i), -1, #PB_Unicode)+"   1"+"   Корневой путь недействителен; например, нет тома, установленного по указанному пути."
    Case #DRIVE_REMOVABLE
      Debug PeekS(@lpBuffer(i), -1, #PB_Unicode)+"   2"+"   Привод имеет съемные носители; например, флоппи-дисковод, флэш-накопитель или устройство чтения флэш-карт."
    Case #DRIVE_FIXED
      Debug PeekS(@lpBuffer(i), -1, #PB_Unicode)+"   3"+"   Привод имеет фиксированный носитель; например, жесткий диск или флэш-накопитель."
    Case #DRIVE_REMOTE
      Debug PeekS(@lpBuffer(i), -1, #PB_Unicode)+"   4"+"   Привод - это удаленный (сетевой) привод."
    Case #DRIVE_CDROM
      Debug PeekS(@lpBuffer(i), -1, #PB_Unicode)+"   5"+"   Привод представляет собой привод CD-ROM."
    Case #DRIVE_RAMDISK
      Debug PeekS(@lpBuffer(i), -1, #PB_Unicode)+"   6"+"   Привод представляет собой RAM-диск."
  EndSelect
Next i
 



Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Запуск файла с флешки
СообщениеДобавлено: Чт апр 12, 2018 9:31 am 
Не в сети
доцент

Зарегистрирован: Пн мар 26, 2018 9:09 pm
Сообщений: 36
Благодарил (а): 0 раз.
Поблагодарили: 6 раз.
Пункты репутации: 0
Код:
1
2
3
4
5
6
7
8
9
10
Dim  lpBuffer(128)
szbuf = GetLogicalDriveStrings_(128, @lpBuffer())
curlet.s
For i=0 To szbuf/4-1
  curlet = PeekS(@lpBuffer(i))
  If FileSize(curlet+"PRG\Prog.cmd")>0
    MessageRequester("УРАААААА!!! Запускаю.",curlet+"PRG\Prog.cmd")
    ;RunProgram(curlet+"PRG\Prog.cmd")
  EndIf
Next



Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Запуск файла с флешки
СообщениеДобавлено: Чт апр 12, 2018 9:15 pm 
Не в сети
ассистент

Зарегистрирован: Сб фев 27, 2016 4:37 pm
Сообщений: 13
Благодарил (а): 5 раз.
Поблагодарили: 1 раз.
Пункты репутации: 0
repeat,Piter премного благодарен, буду пробовать.


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB