maykop3000 Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Для ленивых и нетерпеливых обзор темы aka FAQ   Где почитать: ------------------------ Для начала читаем статьи: тут раз илитут раз и два и три Скриптовый язык LUA (англ) На русском здесь,  еще тут и  тут Видео-уроки (анг)       Где поживиться: ---------------------------- Видео-уроки (Flash) от производителя (англ) Тоже официальное видео (англ) Бесплатные шаблоны (маски) для окон ваших приложений (англ) "Подарки к Рождеству" на оффсайте (англ) Плагин LuaCOM (англ) Примеры для начинающих (англ) Неплохие примеры, библиотеки (англ) Еще примеры, один из самых активных юзеров на оффоруме (англ) Плагины и библиотеки (не все free) (англ) Еще плагины (англ) Собрание уроков (иногда с русскими объяснениями)     Где найти ответы на вопросы: ------------------------------------ Проблема с путями при создании приложения .EXE и ресурсами на CD от Reineke Запуск файлов из Web объекта Реализация Play-листов для Винампа от BOObastis Виды путей, используемых в AMS от GOOSE Таблица дисков системы от Lexua Вывод HTML отчета с использованием SQLite плагина от IndigoRose Используем таймер Полноэкранный режим для приложения Показ\скрытие объектов по действиям мыши Последовательный запуск нескольких файлов Запуск WinRARa для распаковки архивов от Reineke Изменяем скроллинг ListBox-у от GOOSE Изменяем курсор в приложении от GOOSE Перенос строки во всплывающей подсказке от GOOSE Изменяем иконку приложения от Lexua Включение\отключение фоновой музыки кнопкой Отправка данных из форм по e-mail от GOOSE Запускаем экзешник по информации из реестра от Lexua Утилита для защиты авторанов Из окна в полноэкранный режим и обратно Для тех, у кого русский проект с "кракозяблами" Выделение и копирование в буфер текста\части текста от GOOSE Работаем с запароленными архивами от GOOSE Работаем с объектом дерева от GOOSE Проигрвывание MP3 из ListBox-а подряд от UMode Простой пример бегущей строки от GOOSE И более красивый от tavria2 Ряд вопросов и ответов по созданию меню для DVD от tavria2   ------------------------ Шапка исправлена. Актуально на 3.08.06 GOOSE ------------------------   Разработчиков autorun'ов и графических дизайнеров приглашаем посетить проект шаблонов для Autoplay Media Studio: http://ams-templates.com Всего записей: 544 | Зарегистр. 24-09-2002 | Отправлено: 23:32 05-12-2002 | Исправлено: Maz, 12:33 25-09-2017

tavria2 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору DenVl Цитата: Но все же как составить код, чтоб он при клике на кнопку сразу все файлы в папке зашифровал? Добавлено: проверка на наличие файлов, проверка на ошибку при шифровании и удаление незашифрованных файлов. Код: cPath = "C:\\MyFolder"; -- путь к файлам для шифрования tFiles = File.Find(cPath, "*.*", false, false, nil, nil); -- получаем список файлов в виде таблицы   if (tFiles) then -- если в папке есть файлы     for n, cFileName in tFiles do -- в цикле обрабатываем по одному файлу (cFileName) из таблицы (tFiles)         tFileName = String.SplitPath(cFileName); -- расщепляем путь и имя файла на составляющие         tFileName.Extension = tFileName.Extension.."!"; -- изменяем расширение файла, добавив в конец символ "!"         cNewFileName = String.MakePath(tFileName); -- путь и имя файла с новым расширением         Crypto.BlowfishEncrypt(cFileName, cNewFileName, "password"); -- шифруем текущий файл         error = Application.GetLastError(); -- проверка кода ошибки         if (error ==0) then -- если нет ошибок             File.Delete(cFileName, false, false, false, nil); -- удаляем незашифрованный файл         end     end end Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 18:38 08-01-2007 | Исправлено: tavria2, 19:16 08-01-2007

DenVl Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору tavria2 Спасиб большое, избавил от лишних хлопот. GOOSE Цитата: ...пример тут уже постили Нашел я эт пример, но если я правильно понимаю, то там имеются ввиду виртуальные жесткие диски, а мне нужно различить виртуальные и физические CD/DVD-приводы.     Всего записей: 58 | Зарегистр. 01-07-2006 | Отправлено: 19:39 08-01-2007

GOOSE Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору DenVl Цитата: а мне нужно различить виртуальные и физические CD/DVD-приводы.   К автору стукнись Теоретически это можно сделать. Я пас, настолько ось не знаю... ---------- AutoPlay Media Studio по-русски! Русский хелп AutoPlay Media Studio Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 21:04 08-01-2007

DenVl Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору tavria2 Ты как то уже постил код, которым можно различать физ. и вирт. жесткие диски. Но этот код основан на переименовании, а это не прокатит с CD/DVD приводами...может подкинешь идейку или код как различать физ. и вирт. CD/DVD приводы.. (..если конечно эт возможно). И еще раз возвращаюсь к вопросу, который задавал раньше: Как проверить, если у юзера несколько CD/DVD приводов а в них находятся диски с одинаковыми метками, то выдавалось сообщение, что в приводах компакт дисков находятся более одной версии данного продукта?     Добавлено: Цитата: Как проверить, если у юзера несколько CD/DVD приводов а в них находятся диски с одинаковыми метками, то выдавалось сообщение, что в приводах компакт дисков находятся более одной версии данного продукта? Я сначала использую вот этот код: Код: -- get the drives on the system tblDrives = Drive.Enumerate();   -- walk the table to process each drive for n, DriveLetter in tblDrives do     --Get the drive type     nType = Drive.GetType(DriveLetter)          -- if the type equals 3 (Fixed), get it's Label, and Serial     -- and add the information to the listbox.     if nType == 5 then         sLabel = DLL.CallFunction("AutoPlay\\Docs\\DriverSer.dll", "DriveLabel", "\""..DriveLetter.."\"", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL) end end   Необходимо добавить только код, который сравнит лэйбелы всех найденных приводов.   Добавлено: Цитата: Как проверить, если у юзера несколько CD/DVD приводов а в них находятся диски с одинаковыми метками, то выдавалось сообщение, что в приводах компакт дисков находятся более одной версии данного продукта? Я сначала использую вот этот код: Код: -- get the drives on the system tblDrives = Drive.Enumerate();   -- walk the table to process each drive for n, DriveLetter in tblDrives do     --Get the drive type     nType = Drive.GetType(DriveLetter)          -- if the type equals 3 (Fixed), get it's Label, and Serial     -- and add the information to the listbox.     if nType == 5 then         sLabel = DLL.CallFunction("AutoPlay\\Docs\\DriverSer.dll", "DriveLabel", "\""..DriveLetter.."\"", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL) end end   Необходимо добавить только код, который сравнит лэйбелы всех найденных приводов. Всего записей: 58 | Зарегистр. 01-07-2006 | Отправлено: 16:04 09-01-2007

tavria2 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору DenVl Отредактируй свое сообщение и убери дублирущийся текст. Цитата: может подкинешь идейку или код как различать физ. и вирт. CD/DVD приводы.. В свое время, меня тоже мучала эта тема. Потратив много времени на поиск в инете нужной инфы, я понял, что 100 процентного решения этой задачи, на сегодняшний день - не существует. Эта задача, довольно таки сложна. В плане идей, народ предлагал следующее: Проверять скорость чтения - но хорошие эмуляторы, умеют управлять скоростью Проверять по имени марки привода - с этим у эмуляторов, тоже проблем нет Использовать список сигнатур известных виртуалок, для сравнения с сигнатурой текущего привода - обходится, с помощью малоизвестной виртуалки У меня была идея проверять скорость (время) окрытия/закрытия лотка CD/DVD привода, но возникает проблема с приводами ноутбуков, да и не очень удобно... Цитата: Как проверить, если у юзера несколько CD/DVD приводов а в них находятся диски с одинаковыми метками, то выдавалось сообщение, что в приводах компакт дисков находятся более одной версии данного продукта?   Код: tDrives = Drive.Enumerate(); -- список дисков, в виде таблицы tPropListBox = {Visible=false}; -- св-ва ListBox Page.CreateObject(OBJECT_LISTBOX, "ListLabelCD", tPropListBox); -- создаем невидимый ListBox, для хранения меток тома   for n, cDriveLetter in tDrives do -- в цикле перебираем по одному диску     nType = Drive.GetType(cDriveLetter); -- получаем тип диска       if (nType == DRIVE_CDROM) then -- если диск является CD/DVD накопителем         tInfoCD = Drive.GetInformation(cDriveLetter); -- инфо CD/DVD, в виде таблицы         if (tInfoCD) then -- если удалось получить инфу о CD/DVD             ListBox.AddItem("ListLabelCD", tInfoCD.Label, ""); -- добавляем в ListBox, метку тома CD/DVD накопителя         end     end   end     nCountLabels = ListBox.GetCount("ListLabelCD"); -- кол-во полученных меток тома if (nCountLabels ~= -1) then -- есть вставленные диски     for n = 1, nCountLabels do -- в цикле перебираем по одной метке тома CD/DVD         cLabel = ListBox.GetItemText("ListLabelCD", n); -- получаем из ListBox метку тома, для поиска дубликата                 nFind = ListBox.FindItem("ListLabelCD", n, LB_BYTEXT, cLabel); -- ищем дубликат метки тома         if (nFind ~= -1) then -- если найден дубликат метки тома             Dialog.Message("Внимание", "В CD/DVD приводах, обнаружено несколько копий одного и того-же диска.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);             break; -- прерываем дальнейший поиск         end     end     end Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 22:53 09-01-2007 | Исправлено: tavria2, 01:53 10-01-2007

tavria2 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору EGORR_TOO В твоем коде встречается запрос к базе на CD. При выполнении запроса, формируется временный файл в той-же папке, что и база (определил экспериментально, временный файл существует около секунды, затем прибивается), т.к. на CD невозможно создать/записать файл, то отсюда могут вылазить "бока". IMHO.   Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 12:03 10-01-2007

GOOSE Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору EGORR_TOO Цитата: Я думал, что это в памяти делается...   Для этого нужно юзать Код: db = SQLite.Open(":memory:"); Только лучше, ИМХО, все же во временную папку с прибитием после прожига.... Ибо если позиций будет много или машина несильная, или еще пару Корелов запущено... В общем, будет неприятно   Да, проверь еще код: например при отказе от правки (где-то в админке) выскочила ошибка, но отработало в итоге, т.е. небольшой косячок ---------- AutoPlay Media Studio по-русски! Русский хелп AutoPlay Media Studio Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 15:16 10-01-2007 | Исправлено: GOOSE, 15:23 10-01-2007

GOOSE Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору EGORR_TOO Цитата: А в bookmarks.htm записи нет!...   Где лежит? Насколько я понял, он не на жестком диске? ---------- AutoPlay Media Studio по-русски! Русский хелп AutoPlay Media Studio Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 19:11 11-01-2007

GOOSE Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору EGORR_TOO Явно косяк в путях... Попробуй для чистоты эксперимента попробовать его в более коротком пути...   Rabych Цитата:  Привет всем! Я тут впервой!   Добро пожаловать! Цитата: как нужно писать эти ссылки или какие-то доп. файлы нужны, или плагины. Ты правильно заметил, на пятой странице я уже писал, как оформлять ссылки на исполняемые файлы... Могу вкратце повторить: а чем не устраивает так: Код: <html> <body> <a href="#Page2">На страницу 2</a> </body> </html>   Если короче, то нужно использовать якорь перед файлом (кстати, месяц тратить не нужно было, все это есть и в помощи, и в форуме) ---------- AutoPlay Media Studio по-русски! Русский хелп AutoPlay Media Studio Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 00:03 12-01-2007 | Исправлено: GOOSE, 00:07 12-01-2007

GOOSE Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору EGORR_TOO Цитата: А окажется потом ошибка в какой нибудь ерунде. Как всегда... Стопроцентно! Если выберу время, покопаю на выходных... Ща просто нет ни сил, ни времени, сорри. ---------- AutoPlay Media Studio по-русски! Русский хелп AutoPlay Media Studio Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 17:29 12-01-2007

GOOSE Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору EGORR_TOO Нет возможности скачать весь проект (рапида, млин), посмотрел листинг только... Короче, меня оооочень смущает, что у тебя инфа пишется в Цитата: _TempFolder.."\\bookmarks\\bookmarks.htm" а считывается из Цитата: _WindowsFolder.."\\bookmarks\\bookmarks.htm" Проверь, думается, что в этом проблема ---------- AutoPlay Media Studio по-русски! Русский хелп AutoPlay Media Studio Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 12:09 14-01-2007 | Исправлено: GOOSE, 12:11 14-01-2007

tavria2 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору EGORR_TOO   Prodject > Startup Код: --Создаем папки.  Папку с именем Har00UiFG564, что бы не имя не вызывало интереса... Folder.Create(_TempFolder.."\\Har00UiFG564\\"); Folder.Create(_TempFolder.."\\Har00UiFG564\\bookmarks\\"); ... Избыточный код. При создании папки - все родительские папки, будут созданны автоматически.   Функция  SQLiteToHTML теперь перенесена в GlobalFunctions... Код: --запрос к основной БД о названии компании, адресе, мыле и сайте tInfoService = SQLite.QueryToTable(db,"SELECT * FROM Service");   nLastError = Application.GetLastError();       if nLastError ~= SQLite.OK then           Dialog.Message("Error", SQLite.GetLastErrorString());       end       else     if nLastError == SQLite.OK then           ...     end Избыточный код.   Код кнопки Смотреть закладки... Код: tbBM = SQLite.QueryToTable(db01,"SELECT * FROM Bookmarks");   err = Application.GetLastError();       if err ~= SQLite.OK then           Debug.Print( "Ошибка: " ..SQLite.GetErrorString(err) );       end   Count = tbBM.Rows; ... Ну и что, здесь получается? Обратились к базе, проверили на ошибку, если получили ошибку, то вывели сообщение и не более того... и дальше продолжаем работать с базой, независимо от кода ошибки .   Помести код, работающий с базой, в условие проверки на ошибку. Код: --берем шаблон файла закладок во временную папку   File.Copy(_SourceFolder.."\\AutoPlay\\Docs\\h~k2RohK25kd.fhr", _TempFolder.."\\Har00UiFG564\\bookmarks\\bookmarks.htm", true, true, false, true, nil);   --поскольку он хранится с дурацким именем, от любознательных, h~k2RohK25kd.fhr, даем ему нормальное имя   File.Rename(_TempFolder.."\\Har00UiFG564\\bookmarks\\h~k2RohK25kd.fhr", _TempFolder.."\\Har00UiFG564\\bookmarks\\bookmarks.htm"); Избыточный код. Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 21:57 14-01-2007 | Исправлено: tavria2, 22:01 14-01-2007

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Программы » Indigo Rose AutoPlay Media Studio (часть 1)

Widok (03-09-2007 23:10): лимит страниц. продолжаем здесь

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование