» Autoplay Media Studio

Сейчас нашел программу в стиле MS Office 2007
этот стиль реализуется через библиотеку (*.dll), можно ли через эти библиотеки изменить стиль в проектах AMS?

NeedBeHappy
А если рисунку давать такое же название как и файлу?
Тогда..
On Select:

Код: local strSelectedNode = Tree.GetSelectedNode("Tree1");
if (strSelectedNode ~= "") then
local strData = Tree.GetNode("Tree1", strSelectedNode);
if (strData ~= "") then
Image.Load("Image1", "AutoPlay\\Docs\\"..String.SplitPath(strData).Filename..".jpg");
end
end

Объясните пожалуйста как работает MSAgent in AMS, не могу понять

хочу сделать одну прогу которая будет брать значения из текстового файла и редактировать в Input
вот прога для примера и фаил который нужно будет редактировать http://rw4pir.ucoz.ru/GTAIVHandlingEditor.rar
в этой проге много не нужного я хочу сделать проще и можноли будет сделать это ?
зарание благодарен

Попробовал этот совет из шапки форума Запуск файлов из Web объекта . У меня на вебстранице несколько ссылок на екзешные файлы, но при открытии в меню этой странице, все файлы автоматически запускаются.

Djon1970

Цитата:

Попробовал этот совет из шапки форума Запуск файлов из Web объекта . У меня на вебстранице несколько ссылок на екзешные файлы, но при открытии в меню этой странице, все файлы автоматически запускаются.

См. здесь.
В шапке действительно не совсем корректный способ, который годится для запуска только одного файла.
Добавлено:
Добавил в шапку свой вариант запуска/открытия файлов из Web-объекта.

А можно в программе автозапуска реализовать визуальные эффекты как, например, в Word 2007. Эффект постепенного подсвечивания, затухания кнопок, ну все видели, наверняка. Может быть какое-то дополнение необходимо, кто-нибудь знает?

tavria2
Так получается, что на каждый екзешник надо писать сценарий?

Djon1970

Цитата:

Так получается, что на каждый екзешник надо писать сценарий?

Нет, не надо.

А мне кто ответит ?

Странно, весь вечер сегодня экспериментировал, какие-только пути не прописывал. Например такой путь не срабатывает:

Код: <a href = "#AutoPlay\Docs\SYSTEM OTHER\MP3 Dancer 1.11\mp3dancer_files\Mp3dancer2.exe">Установить</a>

Djon1970

Цитата:

Например такой путь не срабатывает:

Таки да, есть такое. Проблема наблюдается только с путями в которых присутсвует пробел, а т.к. путь получаем из URL, то все пробелы в этом URL преобразованы в %20 - вот это и портит путь.
Код поправил, см. здесь.

повторюсь
хочу сделать одну прогу которая будет брать значения из текстового файла и редактировать в Input
вот прога для примера и фаил который нужно будет редактировать http://rw4pir.ucoz.ru/GTAIVHandlingEditor.rar
в этой проге много не нужного я хочу сделать проще и можноли будет сделать это ?
зарание благодарен

Народ, подскажите, пожалуйста, как автоматически добавить в таблицу
из имеющийся папки файлы имеющие расширения *.mp3 и *.wav

Цитата:

Цитата: Подскажите, пожалуйста, какой написать путь вместо C:\Documents and Settings\All Users\Application Data\?

result = Shell.GetFolder(SHF_APPLICATIONDATA);

Djon1970
Ну так можно

Цитата:

result = Shell.GetFolder(SHF_APPLICATIONDATA_COMMON);
File.Copy("C:\\MyDir\\*.*", result.."\\Lavasoft\\Ad-Aware\\Defs", true, true, false, true, nil);

хотя я проверил бы возможность получения пути из реестра.

Добавлено:
VBPopov, Чуть подробнее? Нужно только имена файлов или с путями? Вобще то при помощи File.Find решаемо.

Lexua

Цитата:

хотя я проверил бы возможность получения пути из реестра.

Спасибо, так все сработало.

RW4PIR

Цитата:

можноли будет сделать это ?

Можно.

Zloy_Gelud
ну тогда как это сделать ?
помиги

как сделать чтобы по бокам моего окна была такая же тень, как на картинке?

RW4PIR
За тебя проект что ли написать?! Задавай конкретные вопросы, что необходимо, тогда будем смотреть..

Добавлено:
lorents
С помощью плагина WinAPI (там есть специальное действие) или с помощью скрипта tavria2

Zloy_Gelud

Цитата:

С помощью плагина WinAPI

забыл про этот плагин вобще, ща глянем, спасибо

Цитата:

с помощью скрипта tavria2

а что это за скипт?

lorents

Цитата:

а что это за скипт?

[more]
Код: --[[
-- Функция выполняет битовую операцию Or. СПАСИБО tavria2.
]]--
function BitOr(nX, nY)
-- Функция проверяет корректность 10-го параметра
local function ValidDec(nDec)
local lValid = true; -- флаг корректности параметра
if (nDec) then -- если есть параметр
for n = 1, String.Length(nDec) do -- проверяем корректность параметра
if (String.Mid(nDec, n, 1) < "0" or String.Mid(nDec, n, 1) > "9") then -- если знак вне диапазона [0..9]
lValid = false; -- параметр не корректный
break; -- прерываем цикл
end
end
else -- нет параметра
lValid = false; -- параметр не корректный
end
return lValid -- возвращаем флаг корректности параметра
end
-- Функция проверяет корректность 2-го параметра
local function ValidBin(cBin)
local lValid = true; -- флаг корректности параметра
if (cBin) then -- если есть параметр
for n = 1, String.Length(cBin) do -- проверяем корректность параметра
if (String.Mid(cBin, n, 1) < "0" or String.Mid(cBin, n, 1) > "1") then -- если знак вне диапазона [0..1]
lValid = false; -- параметр не корректный
break; -- прерываем цикл
end
end
else -- нет параметра
lValid = false; -- параметр не корректный
end
return lValid -- возвращаем флаг корректности параметра
end
-- Функция конвертирует 10-е число в 2-е (в символьном виде)
local function DecToBin(nDec)
cBin = ""; -- 2-е число
if (ValidDec(nDec)) then -- если передан корректный параметр
if (type(nDec) == "string") then nDec = String.ToNumber(nDec) end -- если параметр строковый, то конвертируем в число
while nDec ~= 0 do -- формируем 2-е число
cBin = Math.Mod(nDec, 2)..cBin; -- получаем бит и добавляем в 2-е число
nDec = Math.Floor(nDec / 2); -- делим дальше
end
end
return cBin -- возвращаем 2-е число (в символьном виде)
end
-- Функция конвертирует 2-е число в 10-е
local function BinToDec(cBin)
nDec = 0; -- 10-е число
local lValid = true; -- флаг корректности 2-го числа
if (ValidBin(cBin)) then -- если передан корректный параметр
for n = 1, String.Length(cBin) do -- формируем 10-е число
nDec = nDec + String.ToNumber(String.Mid(cBin, n, 1)) * 2^(String.Length(cBin)-n); -- получаем 10-е число и накапливаем
end
end
return nDec -- возвращаем 10-е число
end
--...................................................................................................................................
nResult = 0; -- возвращаемое значение
local cBin = ""; -- двоичное число
if (ValidDec(nX) and ValidDec(nX)) then -- если передан корректные параметры
if (type(nX) == "string") then nX = String.ToNumber(nX) end -- если параметр строковый, то конвертируем в число
if (type(nY) == "string") then nY = String.ToNumber(nY) end -- если параметр строковый, то конвертируем в число
local cBinX = DecToBin(nX); -- 2-е значение 1-го параметра
local cBinY = DecToBin(nY); -- 2-е значение 2-го параметра
-- выравниваем по длине, оба параметра
if (String.Length(cBinX) > String.Length(cBinY)) then -- если длина 1-й параметра больше 2-го
cBinY = String.Repeat("0", String.Length(cBinX) - String.Length(cBinY))..cBinY; -- дополняем лидирующими нулями 2-й параметр
elseif (String.Length(cBinY) > String.Length(cBinX)) then -- если длина 2-й параметра больше 1-го
cBinX = String.Repeat("0", String.Length(cBinY) - String.Length(cBinX))..cBinX; -- дополняем лидирующими нулями 1-й параметр
end
for n = 1, String.Length(cBinX) do
if (String.Mid(cBinX, n, 1) == String.Mid(cBinY, n, 1) and String.Mid(cBinX, n, 1) == "0") then
cBin = cBin.."0";
else
cBin = cBin.."1";
end
end
nResult = BinToDec(cBin);
end
return nResult -- возвращаем 10-е число
end
----------------------------------------------------------------------------------------------------------------------------------
-- Функция добавляет системную тень к указанному окну. СПАСИБО tavria2.
function WindowShadow(hWnd)
-- Константы
GCL_STYLE = -26;
CS_DROPSHADOW = 131072; -- (H20000)
SPI_SETDROPSHADOW = 4133; -- (H1025)

-- разрешаем использовать тень
res = DLL.CallFunction("user32.dll", "SystemParametersInfoA", SPI_SETDROPSHADOW..",0,1,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- получаем текущий стиль окна
CurrentStyle = DLL.CallFunction("user32.dll", "GetClassLongA", hWnd..","..GCL_STYLE, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- изменяем стиль окна (добавляем тень)
res = DLL.CallFunction("user32.dll", "SetClassLongA", hWnd..","..GCL_STYLE..","..BitOr(CurrentStyle, CS_DROPSHADOW), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end

Zloy_Gelud

Цитата:

Подробнее...

выдает ошибку в следующей строчке

Код: CurrentStyle = DLL.CallFunction("user32.dll", "GetClassLongA", hWnd..","..GCL_STYLE, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);