» Autoplay Media Studio

GOOSE

Цитата:

Раньше наши почтовики в зоне РУ не проходили, спецом регился на Яху

Они и счас вроде не проходят.. По-прежнему рекомендуют:
- Hotmail.com
- Yahoo.com
- Gmail.com

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

Repiata kak sdelat takoe
xochu vivesti imia "Moi dokumenti"

beru put gde lejit papka "My Documents" i poluchaetsa tipa: C:\Documents and Settings\Gocha\My documents
kak obrezat "C:\Documents and Settings\Gocha\" chtob vivelsa tolko "My documents"

i kak iz reestra v lubom vinde poluchit put k papke profila usera (C:\Documents and Settings\USERNAME) i k "my douments" bez SHell.GetFolder

spasibo za vnimanie i starania

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

Gocha1

Цитата:

kak obrezat "C:\Documents and Settings\Gocha\" chtob vivelsa tolko "My documents"

Код: function _Folder_GetName(path)
local nPos = String.ReverseFind(String.TrimRight(path, "\\"), "\\", false);
if nPos ~= -1 then
return String.Mid(path, nPos + 1, -1);
else
return path;
end
end

strMyDoc = Shell.GetFolder(SHF_MYDOCUMENTS);
Dialog.Message("Notice",_Folder_GetName(strMyDoc), MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

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

Zloy_Gelud
Thanks!

+ nashol otkuda beret put:
HKCU\Software\Ms\Win\CurVers\Explorer\User Shell Folder\Personal

Добавлено:
a kak zashitit faili .dat pri sozdanii na Hard Drive Folder

goFRyS

Цитата:

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

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

Цитата:

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

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

Код: Audio.Stop(CHANNEL_BACKGROUND);

Gocha1
О защите ты можешь почитать в шапке Варезника.

Добавлено:
Gocha1
Если не хочешь использовать Shell.GetFolder (хотя незнаю почему..), то можешь попробывать замутить средствами API (не забудь подключить тогда плагин Memory):

Код: function _Folder_GetName(path)
local nPos = String.ReverseFind(String.TrimRight(path, "\\"), "\\", false);
if nPos ~= -1 then
return String.Mid(path, nPos + 1, -1);
else
return path;
end
end

CSIDL_PERSONAL = 5;

function _WinAPI_ShellGetSpecialFolderPath(CSIDL, bCreate)
if not bCreate then bCreate = 0 else bCreate = 1 end
local ret = "";
local bufPath = Memory.Allocate(1024);
local res = DLL.CallFunction("shell32.dll", "SHGetSpecialFolderPathA", "0,"..bufPath..","..CSIDL..","..bCreate, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
if res ~= "0" then
ret = Memory.GetString(bufPath, -1, "Ascii");
end
Memory.Free(bufPath);
return ret;
end
Dialog.Message("Notice", _Folder_GetName(_WinAPI_ShellGetSpecialFolderPath(CSIDL_PERSONAL)), MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

lorents

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

ia imel vidu v papke dat01 chto faili.dat - esli posmotret v hex uvidish naprimer Oggs poimesh chto etot fail ne kakoita dat a ogg, pereimenoval i vso u menia source faili s proekta, vot v dannom sluchi chtob po drugomu sozdaval faili ili chtob vkluchival v .cdd eto xot zaparolen,
a te obuchalki chto dal kindly zachem komuta lamat tot kod ili shifrovat, esli kto do etava doidet to on i to smojet bez sdelat takoi je avtoran bez raspakovki .cdd

Добавлено:
esho, kak uznat iazik ustanovlennovo Windows? to est na kakom iazike Windows, eto nujno iz za tavo chto esli Eng to dlia nekotorix igr chtob soxraniali ne budet nujen procedura i obiasnenia i konpki dlia pereimenovania papki na angl. My documnts, a esli wind Rus to i papka je budet na ruskom Moi dokumenti to nujno chtob bilo vidno moi knopki dlia proceduri pereimenovania

Добавлено:
izvinite no xochu esho zadat vopros znatkam, ia vpervie v dannom razdele...

ia proveraiu versiu directx takim obrazom:

version_is = "4.09.00.0904";
dx = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\DirectX", "Version", true);
if (dx==version_is) then
result true


no kak zdes proverit versia menshe ili bolshe, toest, esli 4.09.00.0903 - true, esli 4.09.00.0905 - false,
esli 4.09.00.0804 - true, esli 4.09.00.1004 - false, chtob v celikom proverial chisla bolshe ili menshe
itogo kak sravnit DX i VERSION_IS

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

Gocha1

Цитата:

ia imel vidu v papke dat01 chto faili.dat

Их никак не защитишь.

Цитата:

esho, kak uznat iazik ustanovlennovo Windows? to est na kakom iazike Windows

Код: function _WinAPI_GetSystemDefaultLCID()
return tonumber(DLL.CallFunction("kernel32.dll", "GetSystemDefaultLCID", "", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL));
end

LCID = _WinAPI_GetSystemDefaultLCID()
if (LCID ~= 0) then
if (LCID == 1049) then
-- Russian
elseif (LCID == 1033) then
-- English
end
else
-- Не определено
end

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

Почитал коментарии всё равно не разобрался, потому что новичок я в этой программе. Подскажите, как сделать? Если игра установлена то кнопка "установить" обесцвечивается, а кнопка "играть" загорается. Учитывая, что если игра установлена, в реестре запись 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); [На кнопку "Играть" повесил]

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

tavria2 Добрый вечер!
Некоторое время назад Вы выкладывали код, который делает окно проекта "невтопленным"
хотел спросит а как сделать чтобы окно проекта становилось обратно "втопленным"
Вот ваш код

Код: GWL_EXSTYLE = -20
hWnd = Application.GetWndHandle();
WinApi.SetWindowLong(Application.GetWndHandle(), GWL_EXSTYLE, 0, false);
nWidth = Window.GetSize(Application.GetWndHandle()).Width;
nHeight = Window.GetSize(Application.GetWndHandle()).Height;
Window.SetSize(hWnd, nWidth + 1, nHeight + 1);
Window.SetSize(hWnd, nWidth, nHeight);

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

Народ. Вопрос у ветерана топика появился

Понадобилось тут править ручками таблицы в MSSQL
Поправить-то поправил, но появилась идея слегка этот процесс на будущее упростить
Но с кавалерийского наскока плагин ODBC мне не сдался...
У кого нибудь был опыт соединения приложения с базой на MSSQL Server 2000?

lorents

Код: GWL_EXSTYLE = -20
hWnd = Application.GetWndHandle();
WinApi.SetWindowLong(hWnd, GWL_EXSTYLE, 768, false);
nWidth = Window.GetSize(hWnd).Width;
nHeight = Window.GetSize(hWnd).Height;
Window.SetSize(hWnd, nWidth + 1, nHeight + 1);
Window.SetSize(hWnd, nWidth, nHeight);

seryoga393777


Цитата:

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

попробуй сделать так:

On Preload:

Код: if (Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\My Game\\Installation") == true) then
Button.SetEnabled("Button5", true); -- кнопка "играть"
Button.SetVisible("Button5", true);
Button.SetEnabled("Button", false); -- кнопка "Установить"
Button.SetVisible("Button", false;
end
if (Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\My Game\\Installation") == false) then
Button.SetEnabled("Button5", false); -- кнопка "играть"
Button.SetVisible("Button5", false);
Button.SetEnabled("Button", true); -- кнопка "Установить"
Button.SetVisible("Button", true);
end

tavria2
Спасибо!

Цитата:

Может у тебя не подключен плагин WinApi?

да нет подключен

Цитата:

попробуй сделать так:

On Preload:

Код:
if (Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\My Game\\Installation") == true) then
Button.SetEnabled("Button5", true); -- кнопка "играть"
Button.SetVisible("Button5", true);
Button.SetEnabled("Button", false); -- кнопка "Установить"
Button.SetVisible("Button", false;
end
if (Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\My Game\\Installation") == false) then
Button.SetEnabled("Button5", false); -- кнопка "играть"
Button.SetVisible("Button5", false);
Button.SetEnabled("Button", true); -- кнопка "Установить"
Button.SetVisible("Button", true);
end



таким образом кнопки будут поочередно задействованы и видимы

Я ввёл Это, кнопка Играть пропала, а кнопка Установить осталась, хотя должно быть наоборот, наверное из-за реестра HKEY_LOCAL_MACHINE, "Software\\My Game\\Installation" в этой папке есть строковый параметр Exepath_______ REG_SZ______D:\My Game\MyGAme.exe. Как это можно указать????

P.S. А в кнопке Играть в Действии что надо писать??

Zloy_Gelud
skolko iskal i muchalsa na kod iazika windows, reshil moi mnogie voprosi
+ ochen rad na kod proverki DirectX, vse k luchemu, i jelaiu tebe v jizni toje

Zloy_Gelud
vot snova

u menia vot tak pereimenovania papki "Moi dokumenti"


no kogda s pomoshiu standartnovo sposoba pereimenivaiu papku (Folder.Rename) v texte Paragraph ne obnovliaet tekushee imia. esli v ruchniu delat pereimenovanie to obnovliaet po MouseMove

v chem mojet bit dela, pomogite
spasibo

Добавлено:
kstati esho, AMS ne raspaznaiot text napisanni v Unicode, toje nado ispravit

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

Код: strRunGamePath = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\My Game\\Installation", "ExePath", true).."\\MyGAme.exe";

есть dll-ка, реализует эффект воды на картинке, в Innosetup-е реализация элементарная,
вопрс : как можно ее здесь прикрутить ?

кусок кода вызова dll функции на Pascal script-е:
enablewater(WizardForm.WelcomePage.Handle, 0, 0, bmp.Handle, 3, 25)

Цитата:

no kogda s pomoshiu standartnovo sposoba pereimenivaiu papku (Folder.Rename) v texte Paragraph ne obnovliaet tekushee imia. esli v ruchniu delat pereimenovanie to obnovliaet po MouseMove

Ну можешь в таймере получать название папки или после переименования заново получить ее название и вывести в Параграф.

Цитата:

kstati esho, AMS ne raspaznaiot text napisanni v Unicode, toje nado ispravit

Это к разработчикам АМС обратись.

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

Код:
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

Цитата:

Ну можешь в таймере получать название папки или после переименования заново получить ее название и вывести в Параграф.

dela v tom chto vivod delaiu spomoshiu togo koda chto ti dal obrezat put i ostavit tolko "moi dokumenti", no Shell.GetFolder ne iasna imenno otkuda beret put karoche.
poetomu pereimenovanie proisxodit ne v sisteme a imenno papki samoi. poetomu v sisteme ostaetsa staraia imia papki i potomu v paragraphe vivod delaet toje samoe

Прога весь мозг вынесла!!!!
Цитата:

goFRyS

Решил сделать так, как ты написал не помогает:
Код:
strRunGamePath = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Software\\My Game\\Installation", "ExePath", true).."\\MyGAme.exe";
File.Run(strRunGamePath.."\\MyGAme.exe", "", strRunGamePath, SW_SHOWNORMAL, true);
if (strRunGamePath ~= "") then
Button.SetText("Button5", "Играть");
Button.SetEnabled("Button5", true); -- кнопка "Играть"
else
Button.SetText("Button1", "Установить");
Button.SetEnabled("Button1", false); -- "Установить"
end

На кнопки (Установить, Играть)
On Click:
File.Run(strRunGamePath, "", "", SW_SHOWNORMAL, false);
Тоже никак, обе кнопки активны, но сначала, не поверишь, нажимая на кнопку Играть запускалась игра, правда она не включалась, проста появлялся процесс в Диспетчере задач MyGAme.exe и весел там.

Есть какие - нибудь предположения по этому поводу?????