» Autoplay Media Studio

Цитата:

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

у тебя окно разварачиваеться на весь экран?

Цитата:

у тебя окно разварачиваеться на весь экран?

Нет, оно имеет размеры 630 на 425, и просто сворачивается в трее

Проект вообще сидит в системной трее, настроено так (проект - настройки - вид - панель задач - В СИСТЕМНОМ ТРЕЕ)

Кстати поставил тем же образом проект FileRunOnce1.4 - свернул в трею, запустил - на секунду появилась новая иконка в трее и закрылась - окно уже запущенного проекта так и не восстановилось

тогда поменяй строку

Код: DLL.CallFunction("user32.dll", "OpenIcon", hWndReg, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

lerik2703

ОГРОМНОЕ СПАСИБО !!! заработало

Подскажите пожалуйста, ни как не могу найти ответ.
Ситуация такая, есть 2 exe файла какого-то приложения, запускающие установку этого приложения, но разной битности, допустим ххх_х86, и ххх_х64, возможно ли сделать так, что бы программа сама распознавала какой битности система, и запускала нужный exe? Если можно, то чуть подробнее, т.к. подозреваю, что команды должны касаться реестра. Спасибо.

yragen


Цитата:

x64 = System.Is64BitOS();

if x64 then

    Dialog.Message("", "Ваша ОС 64-х битная.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

File.Run("AutoPlay\\Docs\\Program_x64.exe", "", "", SW_SHOWNORMAL, false);
else

    Dialog.Message("", "Ваша ОС 32-х битная", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

File.Run("AutoPlay\\Docs\\Program_x86.exe", "", "", SW_SHOWNORMAL, false);
end

yragen

Код: local bIs64 = System.Is64BitOS();
if bIs64 then
File.Run("AutoPlay\\Docs\\xxx_x64.exe", "", "", SW_SHOWNORMAL, false);
else
File.Run("AutoPlay\\Docs\\xxx_x86.exe", "", "", SW_SHOWNORMAL, false);
end

tRippinthehead
Zloy_Gelud
Спасибо большое, работает ))))

подскажите плиз, как интегрировать в проект шрифты, по пунктам пожалуйста)
и можно ли слева, в древе страниц проэкта, создавать подпапки, ото 190 файлов, както неудобно будет...
и ещё, почему окно проекта не таскается мышкой, хотя галочку поставил где надо!!?

или подскажите нормальный форум по автоплею, ото более этого не нашёл(

Народ, подскажите пожалуйста, как можно сделать объект PROGRESS как в Mac OS, один в один? Заранее спасибо

ayPinki

Цитата:

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

Зачем? АМС носит с собой используемые в проекте шрифты.

Цитата:

и можно ли слева, в древе страниц проэкта, создавать подпапки, ото 190 файлов, както неудобно будет...

Нет.

Цитата:

и ещё, почему окно проекта не таскается мышкой, хотя галочку поставил где надо!!?

В АМС по-умолчанию где-надо галочки стоят и все нормально таскается у всех пользователей.

Цитата:

или подскажите нормальный форум по автоплею, ото более этого не нашёл(

Если тебя этот не устраивает, то задавай свои вопросы здесь.

Добавлено:
dallas page
Вот я например не видел как выглядит прогресс в Mac OS. Каким образом, допустим я, должен тебе помочь?

спасибо, будем разбираться )

Подскажите пожалйуста Можно ли поставить пароль на проект

Nightout1
Поподробней можно?

Спасибо большое, всё нашёл


-- the correct password "valid"
real_password = "1234";

-- prompt the user to enter a password
user_password = Dialog.PasswordInput("Password", "Please enter the password: ", MB_ICONQUESTION);

-- compare the user's password to the correct password.
-- If the user supplies the wrong password, exit the program.
if real_password ~= user_password then
Application.Exit(1);
return true;
else
return false;
end

Добавлено:
И еще можно спросить как сделать получаем разрешение монитора пользователя
если оно меньше или больше 1024*768 то переход к этому разрешению !!!

Цитата:

Цитата:
Это куда?
Полагаю в Item Data.

где-то так
Код:
tblSection = INIFile.GetSectionNames(_WindowsFolder.."\\My Settings.ini");
for index, section in pairs(tblSection) do
local name = INIFile.GetValue(_WindowsFolder.."\\My Settings.ini", section, "name");
local stream = INIFile.GetValue(_WindowsFolder.."\\My Settings.ini", section, "stream");
ComboBox.AddItem("ComboBox1", name, stream);
end


в комбобоксе
Код:
result = ComboBox.GetItemData("ComboBox1", e_Selection);

большое спасибо, всё работает =)))))


1 момент хотел уточнить, поччему русский текст отображается в UTF-8 ?) через Notepad++ перевёл в ANSI но ничего не поменялось (Font у комбобокса выставлен кириллический)
в принципе не кричтично но не понятно из-за чего проблема ))

Мне очень нужна ваша помощь для проекта. Кто нибудь может подсказать как сделать получаем разрешение монитора пользователя
если оно меньше 1024*768 то переход к этому разрешению !!!

Цитата:

получаем разрешение монитора пользователя

воспользуйся действием System.GetDisplayInfo

Цитата:

если оно меньше 1024*768 то переход к этому разрешению !!!

DLLDispalySettings тебе в помощь

Если можно поподробнее пожалуйста

Nightout1
Поиск в версии для печати рулит!
Читать и дальше по тексту.

DLLDispalySettings где можно скачать ?

Добавлено:
On Show страницы :

Код:
tDisplay = System.GetDisplayInfo();
if tDisplay.Width < 1280 then
ChangeDisplaySettings(1280,1024,32,60,0)
end


Ошибку дает

Error: attempt to call global 'changeDisplaySettings' (a nil value)
Stack Traceback
1:[Page1->On Show] Line:3 in main chunk

Nightout1

DLLDispalySettings.apt -- шаблон для демонстрации возможности смены разрешения экрана монитора.


Добавлено:

Цитата:

Ошибку дает

Я конечно не телепат, но кажется, что вы читать не умеете..

Цитата:

и дальше по тексту

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

Добавлено:
Большое спасибо, все работает!

Всем привет, может кто-то сталкивался с моей проблемой или есть готовые примеры

У меня в проекте есть программа (setup.exe) которая имеет фиксированные, настройки позиции на экране и размеров окна, которые невозможно изменить(нет в программе такой настройки).

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

Помогите пожалуйста.

PAVELNEXT
Тебе необходимо использовать действия Window.SetPos и Window.SetSize. Но для этого еще нужно знать дескриптор твоей_некоторой_программы. Получить можешь используя вызов WinAPI функции FindWindow (или FindWindowEx).

если я вас правильно понял то нужны такие коды

Window.SetPos(Application.GetWndHandle(), 640, 480); -- размеры окна
Window.SetPos(Application.GetWndHandle(), 0, 10); -- позиция на экране

Но для этого еще нужно знать дескриптор твоей_некоторой_программы. Получить можешь используя вызов WinAPI функции FindWindow (или FindWindowEx)

Подскажите пожалуйста код

Цитата:

Получить можешь используя вызов WinAPI функции FindWindow (или FindWindowEx).

не обязательно, дискрептор, как же возврашает и действие, Window.EnumerateProcesses или Window.EnumerateTitles

PAVELNEXT -- на примере виндового калькулятора.

Код: File.Run(_SystemFolder.."\\calc.exe", "", _SystemFolder, SW_SHOWNORMAL, false);
repeat
hWnd = tonumber(DLL.CallFunction("user32.dll", "FindWindowA", "0,\"Калькулятор\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL));
if hWnd ~= 0 then
local nX, nY, nWidth, nHeight
if File.DoesExist(_SourceFolder.."\\Settings.ini") then
nX = tonumber(INIFile.GetValue(_SourceFolder.."\\Settings.ini", "Position", "X"));
nY = tonumber(INIFile.GetValue(_SourceFolder.."\\Settings.ini", "Position", "Y"));
nWidth = tonumber(INIFile.GetValue(_SourceFolder.."\\Settings.ini", "Size", "Width"));
nHeight = tonumber(INIFile.GetValue(_SourceFolder.."\\Settings.ini", "Size", "Height"));
else
nX, nY, nWidth, nHeight = 10, 10, 200, 200 -- дефолтовые значения
INIFile.SetValue(_SourceFolder.."\\Settings.ini", "Position", "X", nX);
INIFile.SetValue(_SourceFolder.."\\Settings.ini", "Position", "Y", nY);
INIFile.SetValue(_SourceFolder.."\\Settings.ini", "Size", "Width", nWidth);
INIFile.SetValue(_SourceFolder.."\\Settings.ini", "Size", "Height", nHeight);
end
Window.SetPos(hWnd, nX, nY);
Window.SetSize(hWnd, nWidth, nHeight);
end
until hWnd ~= 0

Цитата:

PAVELNEXT -- на примере виндового калькулятора.

Странно - запускаю этот код, открывается калькулятор - после закрытия калькулятора идёт сильная перегрузка процессора, что я не верно делаю ?

Может нужно Settings.ini создать и что то в нём написать ?

PAVELNEXT

Цитата:

идёт сильная перегрузка процессора, что я не верно делаю ?

У меня такого не замечено. Скорей всего это локальная (только твоя) проблема..

Цитата:

Может нужно Settings.ini создать и что то в нём написать ?

Ничего лишнего там указывать не нужно. Можно только значения редактировать.