Run по маске - Форум MMB

Страница 1 из 1 1
Модератор форума: as-master

Run по маске (запуск ехе по маске)

Run по маске

lins

Дата: Воскресенье, 02 Декабря 2007, 19:47 | Сообщение # 1

Новый участник

Группа: Пользователи

Сообщений: 3

Репутация: 0

Награды: 0

Статус: Offline

Здравствуйте!

Задача стоит такая. Создание оболочки для CD для выбора инсталляции одной из двух программ. При этом на каждом из дисков имена ехе-шников будут отличаться цифрой после "_". Например, file_1.exe, file_2.exe...file_n.exe. Можно ли сделать выполнение ехе-ников по маске?
Зарание признателен!

YURIY

Дата: Воскресенье, 02 Декабря 2007, 23:08 | Сообщение # 2

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Не понял вопрос...

Вечная память Андрею Сергееву!

lins

Дата: Воскресенье, 02 Декабря 2007, 23:15 | Сообщение # 3

Новый участник

Группа: Пользователи

Сообщений: 3

Репутация: 0

Награды: 0

Статус: Offline

Извиняюсь за сумбур. Упрощаем задачу. Дисков будет много, на каждом из них будут лежать ехе, которые будут отличаться номером лицензии. Например, на одном CD - program_123.exe, на другом program_145.exe. Оболочка, естественно будет одна. Хотелось бы из нее запускать фыйлы по маске: program_*.exe. Такое возможно?

YURIY

Дата: Понедельник, 03 Декабря 2007, 00:24 | Сообщение # 4

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Ну вот, теперь понятно.

Code

**Очищаем внутренний список - можно не писать, если код
**выполняется один раз и при старте
SongListReset()
**Ищем все файлы exe в корне диска для проверки. Они автоматически
**заносятся во внутренний список
SearchForFiles("<SrcDrive>","*.exe")
**Перебираем все файлы внутреннего списка
For i=1 To CBK_NumInList
   **В переменной item$ содержится i элемент списка
   LoadText("item$","STRING:<List>i")
   **А в name$ - короткое имя файлы
   name$=ExtractName(item$)
   **Если в имени файоа есть program_, то имя по маске, считайте,
   **совпадает и можно...
   If (POS(program_,name$)>0) Then
     **...запустить файл!
     Run("item$","")
   End
Next i

Кушайте на здоровье! smile