Хотя задача странная, имхо...

Добавлено (29 Март 2008, 10:21)
---------------------------------------------
Если не секрет, что ваяешь?

Я это уже видел где-то на форуме, и как я понял он работает со списком, а мне нужно чтоб это работало на кнопке.

Суть в том

Да ты правильно понял, это мне и надо. Суть в том что файл будет запускаться из определённой папки и он будет с расшерением .exe и всего один, но название может быть любым.

Не секрет! Тема не новая но мне кажется до сих пор актуальная! Авторан для домашнего софта, но и пойдет для большого масштаба! Велосипед я изобретать не стал и взял за основу
вот этого автора:

Название: Авторан-CD для ленивых
Автор: HEnog@pok
Версия ММВ: 4.9.7
Как я уже понял он тоже чью-то идею переделал только не написал чью!

Ну так вот оформление в стиле Media Center style - Royale. Размеры окна уменьшил на 600x400 (3:2). Убрал сплэш и эффекты открытия и закрытия авторана, увеличил количество разделов, еле как догадался как сделать графические кнопки с не постоянными названиями, оказалось всё просто. Изначально я планировал изменить расположение кнопок и немного структуру, но потом решил оставить всё как есть но доработать. Получилось вполне красиво а также пользователю уже не нужно будет подгонять файлы под стандартные названия типа setup.exe , crack.exe , rus.exe , update.exe , нужно будет положить файлы только в нужные папки. Ещё планирую изменить систему поиска, в данный момент поиск производится по активному списку и это не правильно я считаю. Структуру поиска изложу позже когда разберусь с проблемой запуска файла. С регистрационными данными вроде хорошо но я думаю можно доработать. так же планирую изменять высоту рисованного окошка под количество кнопок. В общем не смотря на сложность работы самой программы само окно будет без наворотов и излишеств. Интерфейс весь делал средствами Paint'а и кнопки Preent Screen, эффекта уменьшения размера добился с помощью изменения масштаба экрана с 96ти на 72 точки на дюйм. Единственно чтоб сделать кнопку папки пришлось воспользоваться фотошопом.
Так вот я и хочу понять как сделать так чтоб запускался файл с расширением .exe из определенной папки.
Пример: Нужно запустить например программу по ссылке:
диск:\каталог\название_программы\файл_установки.exe
ну а потом крэк например
диск:\каталог\название_программы\крэк\файл_крэк.exe
этот путь диск:\каталог\название_программы\ мы уже определили и внесли в переменную и назвали folder$ далее оставшийся путь крэк\ у нас постоянный так как во всех папках он одинаков и обозначили мы его как 'folder2\'. А вот как узнать название файла файл_крэк.exe уже проблема, так как название будет разным и изначально не известным но файл будет во во всех программах в одной и той же папке(конечной папке имеется ввиду за исключением установки программы) и расширение .exe будет в единственном числе, а если это будет не так то надо будет известить об этом.
в общем должно быть примерно так setup$=folder$+'folder2\неизвестен.exe'

для примера возьмем эту часть кода:

***исходим из предположения, что в выбранной папке
***находится подпапка "Crack", а в ней файл "crack.exe"
crack$=setuppatch$+'Crack\crack.exe'
***проверяем, существует ли данный файл
FileExist("crack$","chk")
***если да, то показываем кнопку с надписью "Crack"
If (chk=TRUE) Then
z=z+1
LoadText("Stp-a[z]","Crack")
Show("Stp[z]")
runs$[z]=crack$
Else
End

в ней нужно изменить строчку crack$=setuppatch$+'Crack\crack.exe'

Скриншот можете посмотреть, там где розовый цвет будет градиент.

Подскажи пожалуйста как мне сделать чтоб всё это работало! Я вообще с кодом работал всего два дня и я многого не знаю, в скриптах разбирался чисто интуитивно.

*** эта строка отвечает за очистку внутреннего списка?
SongListReset()
*** я правильно указал путь к папке, лично самому кажется что чтото не так
*** или правильней будет так?
*** Crackpatch$='Crack\'
*** SearchForFiles("setuppatch$+Crackpatch$","*.exe")
SearchForFiles("setuppatch$+Crack\","*.exe")

For i=1 To CBK_NumInList
LoadText("a$","<List>i")
Run("a$","")
Next i
*** какую переменную мне нужно подставить под кнопку? У меня она будет запускаться через runs$[z]. Может переменная Run$ ?
runs$[z]=?????$

общем интересовало меня какую переменную мне запускать, в данном случае это Run("a$","") .

что туда нужно добавить в конец, а вот на кнопке этот скрипт работает и без этой строчки нормально.
Эти ошибки мелочь, но не знающие люди могут сильно споткнуться.

будут не изменны. В случае если обновлений двое то они будут лежеть в разных папках например update1

update2 и тд, а также будут отдельные кнопки для этих файлов с названиями этих же папок. Но на случай

если всё же будут в одной папке два .exe файла нужно придумать как сделать чтоб хотябы появлялось

сообщение об этом.

одинакова только структура папок, названия файлов совпадать не будут. Смысл в том что нет необходимости

переименовывать файл Keymaker.exe в Keygen.exe или в crack.exe, его просто закидываешь в соответствующую

папку и все, программа сама уже ищет как он называется, зная чо он лежит там один, а если он не один что

редкость то просто делаем две папки. И потом не все сетапы могут быть с одним именем, некоторые идут с

названием самой программы. А переименовывать кучу файлов под программу зачем, если она и так может сама

найти их названия?
Кроме этого например каталоги легко можно будет обновлять простым закидыванием папки с программой. Ну не

переделывать же для этого код авторана для этого еще и исходный код понадобится. В общем преимуществ в

том что я собираюсь сделать очень много.

Добавлено (30 Март 2008, 23:02)
---------------------------------------------
### Итак перейдём к моему скрипту

### Вот что у меня было

*** объект SongList
z=1
**** дальше идет код который не берём во внимание

**** Ищем дерикторию "Crack"
Crack=setuppatch$+'Crack\Crack.exe'
FileExist("Crack$","chk")
If (chk=TRUE) Then
z=z+1
LoadText("Stp-a[z]","Crack")
Show("Stp[z]")
runs$[z]=Crack$
Else
End

**** Ищем дерикторию "Update"
update$=setuppatch$+'Update\Update.exe'
FileExist("update$","chk")
If (chk=TRUE) Then
z=z+1
LoadText("Stp-a[z]","Update")
Show("Stp[z]")
runs$[z]=update$
Else
End

*** и так далее

*** дальше идут у нас кнопки
**** [color=green]объект группа кнопки 2
***** сама кнопка с названием Stp2
Run("runs$[2]","")
***** объект надпись с названием Stp-a2

**** объект группа кнопки 3
***** сама кнопка с названием Stp3
Run("runs$[3]","")
***** объект надпись с названием Stp-a3

*** и так далее

### И вот что у меня получилось

*** объект SongList
z=1
**** дальше идет код который не берём во внимание

**** Ищем дерикторию "Crack"
Crack=setuppatch$+'Crack'
FileExist("Crack$","chk")
If (chk=TRUE) Then
z=z+1
LoadText("Stp-a[z]","Crack")
Show("Stp[z]")
SearchDir$[z]=Crack$
Else
End

**** Ищем дерикторию "Update"
update$=setuppatch$+'Update'
FileExist("update$","chk")
If (chk=TRUE) Then
z=z+1
LoadText("Stp-a[z]","Update")
Show("Stp[z]")
SearchDir$[z]=update$
Else
End

*** и так далее

*** дальше идут у нас кнопки
**** объект группа кнопки 2
***** сама кнопка с названием Stp2
SongListReset()
SearchForFiles("SearchDir$[2]","*.exe")
LoadText("a$","<List>1")
Run("a$","")
***** объект надпись с названием Stp-a2

**** объект группа кнопки 3
***** сама кнопка с названием Stp3
SongListReset()
SearchForFiles("SearchDir$[3]","*.exe")
LoadText("a$","<List>1")
Run("a$","")
***** объект надпись с названием Stp-a3

*** и так далее

### Здесь я воспользовался советамиbasmeи

Alex3A
Alex3A прав, подводным камнем оказалось то что этот метод я не могу применить к

главному файлу, файлу установки, так как идёт поиск и во вложенных папках и первым файлом идеёт явно не

тот файл что лежит в корне папки.
Вопрос 1: Можно ли как нибудь запретить поиск во вложенных папках. Либо второй

вариант: как сделать так чтоб запускался всегда последний найденный файл? Как я уже понял сначала

выводится список файлов из конечных папок а потом уже из корня, отсюда вывод чо нужный мне файл лежащий

в корне указанной папки будет в списке последним учитывая то что в корне будет находится всего один

exe-шник!
Вопрос 2: Как мне сделать если при поиске в папке будут лежать два exe-шных файла,

чтоб вылезло сообщение что в каталоге два файла либо появилось окно с выбором какой файл запустиь либо

просто запустился проводник в этой папке где лежат данные файлы?

**запуск последнего файла, NumInList количество найденных файлов,
**он же номер последнего.
LoadText("a$","<List>NumInList")
Run("a$","")

Вопрос 2:
If (NumInList>1) Then
**тут код отработки случая когда файл не один
Message("вот гадость какая, файлов аж","NumInList")
Else
Message("все путем!","NumInList")
End
Теперь по коду.
Замечания.
**** Ищем дерикторию "Crack" ..."Update"
runs$[z]=Crack$, или в варианте 2
SearchDir$[z]=update$
используеться один и тот же массив, который
после выполнения содержит только "Update",
делай для каждой категории свой массив.
Совет.
Обрати внимание, у тебя многие скрипты, одинаковы,
меняються только переменные, так что все может выполняться
с помощью одной копии скрипта - устанавливаешь переменные,
выполняешь скрипт.
Не вздумай применять эти скрипты в готовом проекте, только
в генераторе проектов. Ибо при запуске, пока рекурсивно
будет просмотрено все содержимое, юзер может не дождаться.
Сохраняй найденое в файл, прочитать его намного быстрее,
чем генерировать.
P.S.
Я бы написал толковый механизм, но это будет не интересно,
ни тебе ни мне, даю только общие принципы, без детализации.

Ещё подводные камни!!!
При поиске файлов с расширением .exe в папке System\ во внутреннем списке получилась вот такая вот бяка.

C:\...\Soft\System\Crack\crack.exe
C:\...\Soft\System\Rus\Rus.exe
C:\...\Soft\System\Setup.exe
C:\...\Soft\System\Update\ghhUpda te.exe

Здесь срочки сортируются в алфавитном порядке и без разницы файл это или папка. Узнать папка это или нет можно только по косой "\". Мне необходимо узнать есть ли в строке после текста "System\" косая "\" и если косая существует то нужно удалить эту строку и с остальными строками тоже самое. В итоге должна остаться одна строка где и будет путь к запускаемому файлу. Как можно это реализовать?

В ходе работы появляются новые идеи, и поэтому я решил пока остановиться на чистке кода, много чего повторяется, много не нужных строк, где-то можно сделать проще и всё такое. Вопросы по ютой теме ещё будут появляться.

Как-то я решил сделать смену скина более гибкой для пользователя, и споткнулся на градиенте, его просто НЕТ! Потом посидел и написал свой код(его ещё можно доделать):

Примечания к скрипту градиент: Ширина и высота 600 на 400! В общем он сам всё узнаёт и расчитывает, нужно только ввести начальный цвет(r,g,b) в этих же строчках поставить+/-(возрастание либо убывание цвета) ну и на какое число нужно перейти в цвете нужно ставить в строчках (ra,ga,ba)! ну и в этой строчке h=PubHeight()/100 количество полосок на высоту, чем их больше тем качественнее и больше ТОРМОЗИТ и ясно дело почему!

За градиент строго не судите сам вижу что не пойдет, но учитывая что я новый человек в работе с этой программой и догадался до такого извращённого метода, то это уже ЧТОТО!

Этот код совершенно бессмысленен. Функция ListBoxGetItems создает массив (вернее, псевдомассив ММВ) из элементов списка.
Пишется она правильно так - ListBoxGetItems("TempSetupList","items$,itemsNum$,#,numItems")
Имена параметров, конечно, произвольные. Что они означают?
items$ - в эту переменную заносится массив всех значений пунктов списка, разделенных делимитером #, который стоит третим параметром.
itemsNum$ - в эту переменную заносится массив всех номеров списка. Это служебный массив.
numItems - количество пунктов списка.
Есть и ListBoxGetItems("TempSetupList","<List>"), но эта функция передает элементы обычного списка во внутренний список ММВ. Поэтому вместо ненужного цикла напиши просто:

Идем дальше - ну и нагорожено же тут...

ErrEXE$[z] - откуда взялась эта переменная, да еще и из массива переменных. Где определяется та же "z"?

Не проще написать так?

И еще, зачем здесь SongListEdit()?

Добавлено (04 Апрель 2008, 12:58)
---------------------------------------------
По градиенту - молодец! Ты будешь хорошим креатором на ММВ.
Код, конечно, надо оптимизировать, но принцип хороший.

Добавлено (04 Апрель 2008, 13:23)
---------------------------------------------
Какие-то странные глюки по форуму гуляют. Пробелы где попало иногда появляются...

Да ты сделал по этому коду всю работу за меня Спасибо!!!

Ещё раз спасибо!!!
Потом как доберусь до этого кода, планирую вместо количества на сколько сдвинуть цвет чтоб вводился конечный цвет! Так намного будет удобней, код останется тем же но ещё добавится авто определения на какое число сдаигать цвет. ещё бы не плохо чтоб он сам определял какое знак ставить плюс или минус, но я не знаю как это сделать. Например если второй цвет больше по числу то плюс, если меньше то минус. Я даже уже пробовол вот это: r=98+'-'+red*n где знак '-' или '+' определяется по скрипту, который к сожалению уже не помню. Ясно дело что бред, я и не надеялся что прокатит, но попробовать то стоило же.

PS: Извиняюсь за задержку в работе, а так же ответах на форуме, очень мало свободного времени!

Думал куда же его прикрутить этот код, и вот нашел. Он у меня будет определять расширение установочного файла имя которого не известно! Принцип работы скрипта понятен, только вот не могу понять что нужно сделать чтоб в этой переменной b$= содержался не один символ а три например! тоесть мне нужно узнать какое расширение в конце строчки exe или msi, а в данный момент я могу узнать e там или i.
В общем он будет искать файлы с расширением exe если нет то msi или ещё там какие есть установочные! и то что он найдет передаст другому коду для поиска имени файла этого расширения. ну а дальше запуск этого файла.
Сложность в том когда будут и exe и msi! Попробую чего нибудь придумать!