» Autoplay Media Studio

Я чего-то забыл, что тут про 4-ю версию разговор идет, а там как то через задницу все делается.
Но в любом случае, в вышеприведенном примере не видно команды для разархивации.

Сначала читаем, что написал Lexua:

Цитата:

2. Идешь в папку, где установлен WinRAR и запускаешь UnRAR.exe без параметров и внимательно изучаешь HELP!

Usage: unrar <command> -<switch 1> -<switch N> <archive> <files...> <@listfiles...> <path_to_extract\>

<Commands>
e Extract files to current directory
l[t,b] List archive [technical, bare]
p Print file to stdout
t Test archive files
v[t,b] Verbosely list archive [technical,bare]
x Extract files with full path

И где, спрашивается, в
Цитата:

Параметры командной строки %SrcDir%\aa1.rar\%TempDir%

мы можем лицезреть команды Х (Extract files with full path) или Е (Extract files to current directory)?

Reineke
Действительно, про ето я забыл, но пробовал ставить и E и X, ничего
Получается такое:
File.Execute (''%SrcDir%\UnRar.exe'',''E%SrcDir%\aa\%TempDir%'', Continue)
А надо ведь, что бы Е было в кавычках?

File.Execute (''%SrcDir%\UnRar.exe '',''X %SrcDir%\aa\%TempDir%'', Continue)

unrar (пробел) команда (пробел ) имя архива (пробел) куда разархивировать

Как там в 4-й версии правильно вставляются пробелы в строках тебе пусть Lexua или GOOSE подскажут, а я уже не помню. Как это делается в пятой версии описано выше.

Reineke

Цитата:

тебе пусть Lexua или GOOSE подскажут, а я уже не помню.

А я и не знаю Мое знакомство с AMS началось с пятой версии

Reineke
Гы. Просто я четверку тоже давно снес, за ненадобностью, но думаю ты прав, хотя мне проще было переархивировать в zip или RAR SFX и не париться. boys5lv пробелы обязательно, я же говорил
Цитата:

2. Идешь в папку, где установлен WinRAR и запускаешь UnRAR.exe без параметров и внимательно изучаешь HELP!

Народ!
Меня всегда напрягало отсутствие возможности изменить полосу прокрутки в некоторых объектах.
После экспериментов с ListBox некоторые успехи есть

Решение:
1. Создаем объект ListBox, убирая прокрутку
2. Под него кладем объект Paragraph, назначая ему свою прокрутку.
3. По ширине Paragraph должен быть больше ListBox именно на толщину полосы прокрутки!
4. На вкладке Page>>OnShow вставляем
Код: Page.StartTimer(100);

Здравствуйте, Уважаемые!

Три недели мучаю AMS 5.0, все мозги разбил на части, но так и не смог сделать задуманное.
Заглянул на Ваш форум, внимательно изучил все сообщения, но так и не понял, как сделать, чтобы exe-файлы запускались по ссылке html-файла. Тот пример с оформлением ссылок в виде <a href="#proga.exe"> и далее прописыванием в свойствах Web объекта на вкладке Actions --> OnNavigate Код:File.OpenURL("AutoPlay\\Docs\\proga.exe", SW_SHOWNORMAL); работает не совсем корректно, загрузка файла начинается сразу после открытия страницы. А если ссылок в html-файле несколько?
Вторая проблема состоит в следующем: На странице проекта создал 2 Web-объекта. Как сделать, чтобы по ссылкам в первом Web-объекте открывались html-файлы во втором Web-объекте, по ссылкам которого ...(см. выше)?
И еще. Можно ли сделать, чтобы по клику по ссылке она (ссылка) копировалась в буфер обмена?

В скриптах не силен, помогите!!!

Заранее благодарен!

Здесь можно найти бесплатные шаблоны (маски) для окон ваших приложений:
http://www.acme-tek.com

Господа буржуи в предверии Рождественских праздников устроили раздачу подарков.
Есть очень интересные вещи!
Топаем сюда: http://www.indigorose.com/forums/showthread.php?t=9649&page=1&pp=15

НОВЫМ ГОДОМ!!!

Прошу прощения за молчание - выборы (Украина), админил...

Здравствуйте, НОВЫМ ГОДОМ!!!

Подскажите пожалуйста, делаю проект загрузочного диска с последующей установкой
программ (ставим систему, а потом проги). Не разберусь с одним делом, как задать действия кнопок в Dialog.Message. Саму команду пишу так:-

result = Dialog.Message("Reboot", "Начать установку при перезагрузке ?", 3, 32, 0);
--вывести сообщение "Начать установку при перезагрузке компьютера ?"

Окно выскакивает, (при нажатии на соответствущую кнопку) но кнопки в окне его только закрывают. А мне нужно:- кнопка"ДА"- перезагрузка компьютера,
кнопка "НЕТ"- запуск \I386\WINNT32.EXE,
кнопка "ОТМЕНА":- закрывает окно "Dialog.Message".
Может кто знает как это можно победить?

Breeg
Справку надо читать, очень полезная вещь я Вам скажу, батенька...

Цитата:

Returns
(number) The numeric constant for the button that was pressed:

CONSTANT VALUE DESCRIPTION

IDOK 1 The OK button.

IDCANCEL 2 The Cancel button.

IDABORT 3 The Abort button.

IDRETRY 4 The Retry button.

IDIGNORE 5 The Ignore button.

IDYES 6 The Yes button.

IDNO 7 The No button.

Далее пишем контрольную структуру типа

Цитата:

if result == 6 then
--действие на перезагрузку
elseif result == 7
--Запуск установки Винды NT
else
--можно ничего не вписывать вместо этого коментария
end

Было-бы по русски, может быть и разобрался бы. С английским почти никак!
За помощь большое списибо - щас буду пробовать. Хотя (если честно пока не понял куда это прописать и куда писать путь установки Windows?).

Breeg

Цитата:

пока не понял куда это прописать

после

Цитата:

result = Dialog.Message("Reboot", "Начать установку при перезагрузке ?", 3, 32, 0);
--вывести сообщение "Начать установку при перезагрузке компьютера ?"

естесно

Цитата:

куда писать путь установки Windows?

вместо соответствующих коментариев.

Добавлено
И советую тебе ознакомится в шапке вот с этим
Цитата:

Проблема с путями при создании приложения .EXE и ресурсами на CD от Reineke

Очень пригодится, если собрался WinNT систему ставить.

Вроде начал разбираться! Один раз уже перегрузился НЕЖЕЛАЕМО было.
Да, проблема с путями уже присутствует. Из I386 не находит файла, а из другой как бы
мне пока не надо. С запуском установки программ у меня проблем нет.
Еще раз спасибо за помощь! ! !

Добавлено
Кажись получилось! ! !



Добавлено
--вывести сообщение "Начать установку при перезагрузке компьютера ?"
result = Dialog.Message("Reboot", "Начать установку при перезагрузке ?", 3, 32, 0);
-- Если нажата кнопка ДА.Выполнить перезагрузку.
if result == 6 then
System.Reboot();
-- Если нажата кнопка НЕТ.Начать установку WindowsXP.
elseif result == 7 then
File.Run("I386\\WINNT32.exe", "", "", SW_SHOWNORMAL, false);
else
end

слухайте, а где установить параметр "ожидать ...секунд." ?

и где установить параметр "открыть папку"? вроде вопрос простой, а в панеле Folders параметра Open нет

Цитата:

слухайте, а где установить параметр "ожидать ...секунд." ?

Что имеется ввиду, поподробнее пжлста

Цитата:

и где установить параметр "открыть папку"? вроде вопрос простой, а в панеле Folders параметра Open нет

File.ExploreFolder тебе поможет...

Lexua
имеется в виду например такое
1. запустить какой-то файл
2. ждать ... секунд
3. закрыть окно (или еще что-то сделать)

P.S. а программа поддерживает gif-анимацию или нет? а то я вставляю анимашку, а она не играет

BBMike

Цитата:

2. ждать ... секунд

Если я правильно понял, то используй вкладку "OnTimer" в свойствах страницы.
Только учти, что там не в секундах, а в милисекундах, т.е. 1000 = 1 секунде.

--На вкладке "On Show" прописываешь интервал, например 10 секунд
Page.StartTimer(10000);

-- На вкладке "On Timer" пишешь то, что нужно делать каждые 10 секунд
Application.Exit();

Добавлено:
PS А в шапку, блин, лень заглянуть было? Там пример есть...

GOOSE

Цитата:

А в шапку, блин, лень заглянуть было?

дык откуда я знал что она обновилась? на автомате проматываю любую шапку, которую видел уже сто раз

BBMike

Цитата:

дык откуда я знал что она обновилась?

PS А если хочешь привязать таймер к определенному событию, придется либо делать переход на страницу (после выполнения первой команды) и уж на ней запускать таймер, либо прописывать условие в самом таймере.
ИМХО, проще и надежнее первый вариант, хотя второй - профессиональнее

GOOSE
чото вопросы посыпались у меня. делаю оболочку для DVD с всеми сериями Thief
и главное что на сложные вопросы нахожу ответы, а на простые - нет

вот с gif-анимацией не разобрался и не разобрался с тем, кк ко всему проекту прикрутить один курсор. к некоторым элементам прикручивается стандартный системный курсор, а ко всему проекту прикрутить свой курсор не получается.

P.S. идея: может где-то выкладывать будем автораны?

Цитата:

вот с gif-анимацией не разобрался

gif- анимация не поддерживается, только avi кажется.

BBMike

Цитата:

делаю оболочку для DVD с всеми сериями Thief

Посмотри тут: http://www.indigorose.com/forums/showthread.php?t=10002
как раз о ДиВиДи речь идет и примеры есть.

Цитата:

вот с gif-анимацией не разобрался

Она в чистом виде не поддерживается, только через Вэбобъект. Да еще сейчас Callback функцию обсуждают там же на форуме, позволяющую скрывать маской объекты, типа Web, вот и получается почти что поддержка Gif, правда она только в дэморежиме пашет, разработчик пока и цену не назвал и не расшарил ее

Цитата:

ко всему проекту прикрутить один курсор

А в чем там проблема?
Нужно использовать вот это:


Код: You can do it with calls to the user32.dll

-- Get current cursor
holdCursor = DLL.CallFunction("user32.dll", "GetCursor", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

-- Load hourglasscursor
hCursor = DLL.CallFunction("user32.dll", "LoadCursorA", "0, 32514", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

-- Display loaded cursor
retVal = DLL.CallFunction("user32.dll", "SetCursor", hCursor, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

*** do whatever you want in here while pointer is hourglass ***

-- Display original cursor
retVal = DLL.CallFunction("user32.dll", "SetCursor", holdCursor, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

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

про размещение сайта - я долгое время размещал свой на boom.ru. нареканий не было.
места много, а проекты, пожатые 7zip не займут много места.

BBMike

Цитата:

я долгое время размещал свой на boom.ru.

Блин, ну не нравятся мне эти хостинги... Что народ, что бум...
Реклама, опять же... Скрипты хрен свои поставишь...
А проекты выкладывать нужно именно проектами (.apz), а не экзешниками! у кого прога есть, тот сам скомпилирует, заодно разобравшись что к чему... при этом самый большой проект будет в пределах 200 кило...

Добавлено:
Вот, глянь сюда, функция смены курсора, даже две , вроде ничего сложного:
http://www.indigorose.com/forums/showthread.php?t=8097&highlight=change
Там и пример проекта есть.

Подскажите пожалуйста как сделать перенос строки в всплывающей подсказке?

sertash
Это засовываешь в Глобальные функции:

Код:
function AddToolTip(sObject, sTip)
if not tblToolTips then
--create the table if it doesn't exist
tblToolTips={}
end
--add the object and tip to the table
tblToolTips[Table.Count(tblToolTips)+1]={Object=sObject, Tip=sTip}
end


function ShowTips()
local mi = nil
local mObject = nil
local mtblObj = nil
local mtblPos = nil
local mtblDimension = nil
local mType

--get the page objects
mtblObj = Page.EnumerateObjects()

--loop through the objects
for mi, mObject in mtblObj do
--get the object type
mObjType = Page.GetObjectType(mObject)
--series of If/Then/Else to get the position
--and dimension of the object
if mObjType == OBJECT_BUTTON then
mType = "Button"
mtblPos = Button.GetPos(mObject)
mtblDimension = Button.GetSize(mObject)
elseif mObjType == OBJECT_FLASH then
mType = "Flash"
mtblPos = Flash.GetPos(mObject)
mtblDimension = Flash.GetSize(mObject)
elseif mObjType == OBJECT_HOTSPOT then
mType = "HotSpot"
mtblPos = Hotspot.GetPos(mObject)
mtblDimension = Hotspot.GetSize(mObject)
elseif mObjType == OBJECT_IMAGE then
mType = "Image"
mtblPos = Image.GetPos(mObject)
mtblDimension = Image.GetSize(mObject)
elseif mObjType == OBJECT_INPUT then
mType = "Input"
mtblPos = Input.GetPos(mObject)
mtblDimension = Input.GetSize(mObject)
elseif mObjType == OBJECT_LABEL then
mType = "Label"
mtblPos = Label.GetPos(mObject)
mtblDimension = Label.GetSize(mObject)
elseif mObjType == OBJECT_LISTBOX then
mType = "ListBox"
mtblPos = ListBox.GetPos(mObject)
mtblDimension = ListBox.GetSize(mObject)
elseif mObjType == OBJECT_PARAGRAPH then
mType = "Paragraph"
mtblPos = Paragraph.GetPos(mObject)
mtblDimension = Paragraph.GetSize(mObject)
elseif mObjType == OBJECT_PLUGIN then
mType = "Plugin"
mtblPos = Plugin.GetPos(mObject)
mtblDimension = Plugin.GetSize(mObject)
elseif mObjType == OBJECT_VIDEO then
mType = "Video"
mtblPos = Video.GetPos(mObject)
mtblDimension = Video.GetSize(mObject)
elseif mObjType == OBJECT_WEB then
mType = "Web"
mtblPos = Web.GetPos(mObject)
mtblDimension = Web.GetSize(mObject)
end

--if our last object isn't set, set it to ""
if sLastObject == nil then
sLastObject = ""
end

--if the handle to the tooltip window is nil, set it to -1
if hwndTooltip == nil then
hwndTooltip = -1
end

if mtblPos then
--get the mouse pointers X and Y position
mX=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\mouse.dll", "GetMouseX", Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
mY=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\mouse.dll", "GetMouseY", Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
if (mtblPos.X <= mX) and (mX <= (mtblPos.X + mtblDimension.Width)) and (mY >= mtblPos.Y) and (mY <= (mtblPos.Y + mtblDimension.Height)) then
if mObject ~= sLastObject then
--if we have moused over a new object
sLastObject = mObject
for n=1, Table.Count(tblToolTips) do
if (mObject == tblToolTips[n].Object) then
--if were over the object, show the tooltip
hwndTooltip = DLL.CallFunction("AutoPlay\\Docs\\SetTip.DLL", "SetTip", Application.GetWndHandle()..","..mtblPos.X..","..mtblPos.Y..",\""..tblToolTips[n].Tip.."\","..hwndTooltip, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
end
end
end
end
end
end

Народ!
Если я нахожу место под сайт русскоязычных пользователей AMS, кто готов помочь в его поддержке?
Рассматриваются любые предложения.
Лично я могу:
- верстать HTML
- устанавливать несложные скрипты
- модерировать контент
Не могу графику (категорично, ибо то, что у меня в фотошопе получается, детям нельзя ночью показывать )
Прошу потенциальных соратников отметиться через ПМ, почту (в теме нельзя по правилам, Widok, сорри)

GOOSE

Цитата:

Прошу потенциальных соратников отметиться тут

не соответсвует правилам. "создавать" сайт через ПМ, аську, но не через тему по программе.