» Autoplay Media Studio

ubian Ну да или так сразу проверять и запускать от имени администратора.


По идеи подойдет

Цитата:

Unique_nicknameТочнее проверять, но (удачной или нет) попыткой создания этого самого file.tst перед началом основных действий, и в случае неудачи выдавать пользователю информативный GetLastError(), полагаясь на разум ОС.

Копируем тестовый файл в папку programfiles. если удачно значит админ. Ошибка значит выдать сообщение. Просто думал может стандартный способ проверки есть от имени кого запущен установщик. Есть стандартный способ ?

С праздником.

Stalkersof
http://msdn.microsoft.com/en-us/library/ms647418.aspx

Zloy_Gelud Так правильно будет

DLLResult = DLL.CallFunction("Shell32.lib", "IsUserAnAdmin", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
if DLLResult then
Dialog.Message("Notice", "Admin", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Dialog.Message("Notice", "User", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

Stalkersof

Код: DLLResult = tonumber(DLL.CallFunction("Shell32.dll", "IsUserAnAdmin", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL));
if (DLLResult == 1) then
Dialog.Message("Notice", "User is Admin", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Dialog.Message("Notice", "Not a Admin", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

Zloy_Gelud
tavria2
Спасибо

Stalkersof
tavria2
А где указание параметров функции?

Zloy_Gelud
На моем сайте
http://ams.ubian.ru/%D1%84%D1%83%D0%BD%D0%BA%D1%86%D0%B8%D1%8F-isadmin/

Други, действие DLL.CallFunction принимает 5 параметров, а нет 4. Исправьтесь, пожалуйста.

Zloy_Gelud Так в функции нет же параметров не передаются. Или все равно надо указывать тип параметра. Пустой это как. Интересно посмотреть для примера.

Да вызов длл это здорово но не много не то. Эта функция определяет пользователя под какими правами вошел в систему а не с какими правами запущен установщик. Походу без пуляния тестового файла не обойтись.

PS Т.е если мы вошли в систему как User и запустили установщик то вылетит окно с предложением запустить от имени Amin.
У юзера два пути выйти из системы и войти под именем Амина. Или запустить установщик с правами Админа из контекстного меню файла. В первом случае все катит. Во втором нет.

Stalkersof
Если у программы нужны привилегии, а у пользователя их нету - работать не будет. А тут ты попросишь администратора и проверишь прошло, или нет

ubian Ну вообще я не хочу компилировать проект с правами админа. Права админа нужны будут только для доступа к папке ProgramFiles. Обратно путь для установки будет браться из реестра. Может быть и в ProgramFiles и другой не требующий права админа. Вот и задача такая. Если потребуется права админа то попросить пользователя запустить от имени админа и закрыть приложение. Если не нужны то продолжить установку. Вот такая задача.

Stalkersof
А реестр в установщике правится не будет? На него тоже вроде нужны права админа... Лучше сразу запускать, если установщик, имхо

Zloy_Gelud

Цитата:

А где указание параметров функции?

Спасибо за замечание, копипаст подвел
Код поправил.

ubian
Так то да. Пока не нужен. Ну наверно нужен будет если замучу деинсталятор в Inno Setup.
Вроде сказали что можно сделать и сам себя будет удалять и список файлов будет читать из внешнего файла. Типа как утилитка удаления. Конечно нужен реестр как же надо и во вкладку установки и удаления программ прописать. Ссори тупанул. Всем спасибо.

Много не пейте

Добрый день ! Подскажите пожалуйста. Можно ли как нибудь добавить в авторан плеер мр3. Причем не сторонний плеер. Ну то есть что-бы нажал кнопку и открылось окошко со списком файлов и плеерскими кнопками. Если можно то объясните поподробнее где и что настраивать и прописывать.

BlackPhoenix28
Вроде как только OGG формат

ubian

Мр3 играется (только что проверил) но только сразу при запуске. А мне нужен плеер который бы открывался по нажатию кнопки в новом окошке. Хочу на диск записать soundtrack для игры. Что-бы можно было его прослушать с выбором трека паузой перемоткой и т.д. Ну или хотя бы просто список и перемотка.

руккалиццо... вот они, последствия программ для Codemonkey. И в голове одна мечта - Готовый Скрипт на все про все и зависть к мифическим тем, у кого он "обязательно есть".

Полный список маразмов комментировать не стану, неизлечимо и некогда.
Прокомментирую основной: с какого перепуга админ у вас имеет права записи\создания на целевую папку? Делайте как говорят и не изобретайте корову. А права UAC и без того запросит.


Добавлено:

Цитата:

Права админа нужны будут только для доступа к папке ProgramFiles.

ага, щас.

Unique_nickname
Цитата:

Права админа нужны будут только для доступа к папке ProgramFiles.

Выдернул цитату из контекста. Ниже сказано что пока мне только нужны права админа для доступа к этой папке. Получится сделать деинстолятор значит нужен будет и реестр нет значит не зачем. Да и так уже все понятно без комментариев.
http://ru.wikipedia.org/wiki/Program_Files

А изобретать велосипед это дело каждого. Как мне надо так и будет.

Stalkersof
там сказано в первой же строчке


Цитата:

Installing and uninstalling applications

надеюсь, переведешь самостоятельно, без готового скрипта для собственного велосипеда.

Вот опять столкнулся с проблемой новичка. Не вижу ошибку в скрипте... Ну не работает
http://s002.radikal.ru/i200/1202/92/9b9bdd004a57.png
http://s017.radikal.ru/i430/1202/9e/a0dd268c8d92.png

Unique_nickname Ошибочка на вики. С отключеным UAC все копируется. Будем жаловаться. Давай коды. Хватит теории В процессе подучим. Тратить время некогда.

Stalkersof
ступай в офф, школоло. Уже и вики приплел.

ubian
громоздкий уродливый код с кучей лишних переменных и преобразований. ToBoolean в штатном синтаксисе вообще не упомню.

CheckBox.SetChecked ("ComboBoxStat", "1" == INIFile.GetValue (cfg, "options", "stat"))

Unique_nickname Ээ. потопился я с вики. Правильно все. Запутал. Если включен UAC
То права админа нужны для копирования файлов в паку ProgramFiles. Или предлагаете отключать UAC на компе пользователя. Так что все правильно права админа нужны. Проще сделать права админа для всех пользователей при копировании файлов в эту папку. Чем определять какая система у пользователя отключать UAC.
Смотрел как отключить UAC вразумительного ненашел ничего. Зря я вику обидел.

Unique_nickname
См. мою функцию ToBoolean

Добавлено:
http://ams.ubian.ru/%D1%84%D1%83%D0%BD%D0%BA%D1%86%D0%B8%D1%8F-string-toboolean/

ну и зачем мне твою функцию искать, если с ней у тебя же ничего не работает, к тому же это засоряет код ненужными приведениями типов?
Прижмет - напишу секунд за 40. Ты про "спасибо" снова забыл, кажется?

Добавлено:
P.S. прошел-таки по ссылке и посмотрел. Жуть. Ты бы, прежде чем такие "уроки" выкладывать, все-таки подучил азы.

Unique_nickname
Код твой не пробовал, а с функцией все работает
Просто название объектов неправильно указано было. Вот этого ты и не заметил
Ладн, все равно спасибо


Добавлено:
Просьба потестировать, сказать что еще можно бы добавить
http://rghost.ru/36674505

Прошу прощения ! Но я повторюсь. Просто неужели никто не знает можно это сделать или нет ?

Цитата:

BlackPhoenix28
Добрый день ! Подскажите пожалуйста. Можно ли как нибудь добавить в авторан плеер мр3. Причем не сторонний плеер. Ну то есть что-бы нажал кнопку и открылось окошко со списком файлов и плеерскими кнопками. Если можно то объясните поподробнее где и что настраивать и прописывать.

И добавлю что Mp3 прога (версия 8.0.7.0) проигрывать умеет но только в виде фоновой музыки авторана. А мне бы плеер намутить. Уже хотя бы для формата OGG. Благо перегнать из Mp3 в OGG не проблема. Может плагин какой есть ?

ubian
ты реально так тупишь, или удачно прикидываешься?

Написал нерабочий быдлокод с закономерными для быдлокода опечатками, запросил помощи (причем получил ответ без поучений, от которых у тебя все равно один баттхерт и никакого проку в голове) - в итоге распиарил свою же сырую функцию, а приведенный тебе безупречный код даже не запустил. Не говоря о том, чтобы попытаться поместить его себе в мозг.

И после этого надеешься на серьезное к тебе отношение.

Добавлено:
BlackPhoenix28
еще один шедевр.
Во-первых, из mp3 перегонять в ogg - то же, что пропущенный через кишечник мед снова затолкать в банку и впаривать как улучшенный продукт.

Во-вторых, в чем проблема? Audio.Load\Play\Pause\Seek\Stop и так далее, все разжевано, только в рот не положено.

BlackPhoenix28
В AutoPlay есть пример плеера вроде...
Unique_nickname
Мне нужно именно такой код как у меня... С назначением переменной т.к. она будет использоваться не раз. Там где нужно использую без переменной. Ну если хорошо разбираешься скажи как мне контролировать LPT. Вот код Xlng MachineCode

Код:
Activate LPTPort(ActivateDiod) ({})
{Pordnum=5;
Pordnum=18;
function
}
ActivateIt({}):
{
5V on [1]Pordnum;
GND on [2]Pordnum;
}
.
End
If (UserClick==Esc) Then ({})
{
ActivateIt{on};
} Else ({}) {
ActivateIt{off};
};