» Autoplay Media Studio

sergio5 тебя же lorents спросил
Цитата:

Ты хочешь чтобы проигрывался внешними программами или средствами AMS?

ни кто же не знает как и что ты хочешь сделать

lorents
Ииии, я же написал, что нужен только сам пинг.

Lexua
как прописать то ?

так: ?

Цитата:

result = Application.ShowPopupMenu(0, 0, tbMenuData, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);
if(e_Type == RIGHT_BUTTON_DOWN)then
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "&New Menu";
tblMenu[1].ID = 100;
tblMenu[1].IconID = 0;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "&SubItem 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].IconID = 1;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "S&ubItem 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;

nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);

if(nRes == 0)then
Dialog.Message("Menu Result","Cancelled");
else
Dialog.Message("Menu Result","Menu ID selected = "..nRes);
end
end

Добавлено:
так ошибка выходит что то линия 1 вроде

Добавлено:
народ я походу дэбил, как мне зделать ?

AstraZak

Цитата:

Ииии, я же написал, что нужен только сам пинг.

и что такое пинг по-твоему?

lorents
что ты с зеленым возишися?

RW4PIR
вводи в событие On Mouse Button

RW4PIR
Так ты и убери эту первую линию откуда взяться таблице tbMenuData если у тебя таблица tblMenu = {} и то ты её создаешь уже после действия Application.ShowPopupMenu!

lerik2703

Цитата:

что ты с зеленым возишися?

и я об этом тоже подумал, тем более он просить вообще не научился

и откуда ты взял строку?

Код: result = Application.ShowPopupMenu(0, 0, tbMenuData, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);

и что такое пинг по-твоему?

Время отклика.

lerik2703
Шибко умный? Мозг не давит?

lorents
в этом событие меню будет всплывать по всему окну проекта!

Пользователи, подскажите что делать?Создаю аutorun, размещаю на нём - установить, информация, Директс и Выход. При нажатии на каждую из кнопок, кроме Директс всё запускается. При нажатии на Директс, появляется сообщение: Не удаётся найти dsetup.dll.

Хотя Если вручную запускать, всё нормально работаеТ, идёт установка.

Цитата:

и откуда ты взял строку?

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

seryoga393777
Если вы используете команду File.run то в параметре WorkingFolder укажите папку с DirectX'ом.

RW4PIR


Цитата:

result = Application.ShowPopupMenu(0, 0, tbMenuData, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);
if(e_Type == RIGHT_BUTTON_DOWN)then
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "&New Menu";
tblMenu[1].ID = 100;
tblMenu[1].IconID = 0;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "&SubItem 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].IconID = 1;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "S&ubItem 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;

nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);

if(nRes == 0)then
Dialog.Message("Menu Result","Cancelled");
else
Dialog.Message("Menu Result","Menu ID selected = "..nRes);
end
end

Красную строку убери - это практически копия зеленой

Уважаемые пользователи, я пока не знаю, не создавал ещё до конца инсталлятор, но если кто-нибудь знает, подскажите. Как сделать, чтобы кнопка "установить" обесцветилась, а кнопка "удалить" стала активной. Заранее благодарен.

seryoga393777
смотри шапку: Активация кнопок по информации из реестра (на примере авторана для игр) от Zloy_Gelud

у меня ума полата походу ))) я так и не могу зделать, я по железу тока знаю

Добавлено:
Lexua
убрал и при нажатии не со не происходит

Добавлено:


Добавлено:
Lexua
ну не работает

Доброго дня всем. Прочитал в шапке пример таймера со страницы (on page), отсюда вопрос: можно ли запустить таймер с кнопки? Или, если это проблематично, вопрос №2: как можно вырубить background music при запуске экзешника? Спасибо.

Цитата:

if (e_Type == RIGHT_BUTTON_DOWN) then
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "&New Menu";
tblMenu[1].ID = 100;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "&SubItem 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "S&ubItem 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;

nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);

if(nRes == 0)then
Dialog.Message("Menu Result","Cancelled");
else
Dialog.Message("Menu Result","Menu ID selected = "..nRes);
end
end

пробуй так. вставлять в On Mouse Button

goFRyS

Цитата:

можно ли запустить таймер с кнопки?

используй команду Page.StartTimer

Цитата:

как можно вырубить background music при запуске экзешника

напиши следующий код пере запуском экзешника

Код: Audio.Stop(CHANNEL_BACKGROUND);

Lexua
в картинке такого нету, а в страницу вставил работает, мне нужно чтобы при нажатию на картинку или другой объект правой кнопкой

Добавлено:
Lexua
и когда я нажимаю на страницу ну когда открыл меню, выдаётся сообщение Cancelled вроде, как убрать сообшениие ?

Добавлено:

Цитата:

if(nRes == 0)then
Dialog.Message("Menu Result","Cancelled");
else

убрать это чтобы не выдавалось ?

Добавлено:
Lexua
всё сообщения убрал

Добавлено:
но чтобы на определёном объкте вывадилось отдельное меню я сделать не могу

lorents

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

RW4PIR
Помести код в любой объект который поддеживает событие On Right-Click (можно и без но тогда замучиешься совсем) только без строки if (e_Type == RIGHT_BUTTON_DOWN) then в событие On Mause Move
Код: nM_x=e_X
nM_Y=e_Y

goFRyS

Цитата:

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

On Timer

Код: cCheckRunApp = "autorun.exe"; -- имя файла для проверки...
tProcesses = System.EnumerateProcesses(); -- список запущенных процессов
for n, cPath in tProcesses do
tFile = String.SplitPath(cPath); -- разлаживаем путь на составляющие
if (String.Lower(tFile.Filename..tFile.Extension) == cCheckRunApp) then -- если ваш файл обнаружен в процессах
Audio.Stop(CHANNEL_BACKGROUND);
end
end

Я новичок в этом деле, не получается,
немного непонятна строка
tFile = String.SplitPath(cPath); -- разлаживаем путь на составляющие
в нее что нибудь надо вписывать, и если надо, то что?
И почему вкладка On Timer, а не On Show к примеру

lerik2703
спасибо попробую

проверьте меню правильно сделал ? ну несчитая значения итем дата


Цитата:

if(e_Type == RIGHT_BUTTON_DOWN)then
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "Меню";
tblMenu[1].ID = 100;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "Меню 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "Меню 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;
tblMenu[2] ={};
tblMenu[2].Text = "Меню 2";
tblMenu[2].ID = 100;
tblMenu[2].Checked = false;
tblMenu[2].Enabled = true;
tblMenu[2].SubMenu = {};
tblMenu[2].SubMenu[1] = {};
tblMenu[2].SubMenu[1].Text = "Меню 1";
tblMenu[2].SubMenu[1].ID = 101;
tblMenu[2].SubMenu[1].Checked = false;
tblMenu[2].SubMenu[1].Enabled = true;
tblMenu[2].SubMenu[2] = {};
tblMenu[2].SubMenu[2].Text = "Меню 2";
tblMenu[2].SubMenu[2].ID = 102;
tblMenu[2].SubMenu[2].Checked = false;
tblMenu[2].SubMenu[2].Enabled = true;
tblMenu[2].SubMenu[3] = {};
tblMenu[2].SubMenu[3].Text = "Меню 3";
tblMenu[2].SubMenu[3].ID = 102;
tblMenu[2].SubMenu[3].Checked = false;
tblMenu[2].SubMenu[3].Enabled = true;
tblMenu[2].SubMenu[3].SubMenu = {};
tblMenu[2].SubMenu[3].SubMenu[1] = {};
tblMenu[2].SubMenu[3].SubMenu[1].Text = "Меню 3";
tblMenu[2].SubMenu[3].SubMenu[1].ID = 102;
tblMenu[2].SubMenu[3].SubMenu[1].Checked = false;
tblMenu[2].SubMenu[3].SubMenu[1].Enabled = true;
nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);


end

Добавлено:
теперь остался вопрос как изменить внешний вид меню ? ну оформление, и есть ли

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

Добавлено:
у меня при запуске проги выдаётся сообщение, оно прописано на первой странице так:

Цитата:

result = DialogEx.Show("Warning", true, nil, nil);

как сделать чтобы это окошко открывалось при запуске программы и при переходе например со второй страници на первую снова не отображалось это окно ?

Почитал коментарии всё равно не разобрался, потому что новичок я в этой программе. Подскажите, как сделать? Если игра установлена то кнопка "установить" обесцвечивается, а кнопка "играть" загорается. Учитывая, что если игра установлена, в реестре запись HKEY_LOCAL_MACHINE, "Software\My Game\Installation" с параметром "ExePath - Reg SZ - D:\My Game\ MyGAme.exe".

Заранее Благодарен.

Добавлено:
Пользователи, помогите разобраться!!! Хочу сделать так, Если игра установлена то кнопка "установить" обесцвечивается, а кнопка "играть" загорается. Решил сделать так:

On Preload:
Page.StartTimer(100);

On Timer:
strRunGamePath = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\My Game\\Installation", "Path", true).."\\MyGAme.exe";
if (Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\My Game\\Installation") == true) then
strRunGamePath = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\My Game\\Installation\\gta_sa.exe","ExePathString", true);
Button.SetEnabled("Button5", true);
end

On Click:
File.Run(strRunGamePath, "", "", SW_SHOWNORMAL, false); [На кнопку "Установить" повесил]


On Click:
File.Run(strRunGamePath, "", "", SW_SHOWNORMAL, false); [На кнопку "Играть" повесил]

Не выходит(((

RW4PIR
У тебя ID повторяеться это не допустимо!можно картинку добавить из файла иконок!
Цитата:

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

ну это как последнии 2 позиции на моей картинке?

Цитата:

У тебя ID

это я знаю, это потом подправлю как надо, так как меню 100 200 300 и в них 101 102 итп уже занеты меню с верху


Цитата:

можно картинку добавить из файла иконок!

как это зделать ?

Добавлено:

Цитата:

[/q]
[q]ну это как последнии 2 позиции на моей картинке?

э... незнаю, какая картинка ?