[MaGoth]

Не поверите, но в интернете все равны, у всех одинаковые возможности Я, например, ни разу ничего не тестировал в уникодной версии NSIS даже будучи автором справочника, т.к. »

Ну, равны или не равны, суть то точно не в этом, а вот то что в справке мало Юнику уделяется внимание, это упущение лично на мой взгляд. И дело здесь даже не в том, пользует ли его кто, или нет. Просто там действительно могут быть существенные различия.
Если в справке будет развиваться это направление, то возможно смогу чем-то помочь...

[MKN]

Определение SID пользователя
( в справочнике немного по другому)

Код:

OutFile "sid-Test.exe" 
;SID –  Security ID-SID -  идентификатор безопасности текущего пользователя
; http://subscribe.ru/archive/comp.soft.prog.delphint/200207/29175902.html
; http://winadm.wordpress.com/2012/07/23/sid-security-identifier/
Section
System::Call "advapi32::GetUserName(t .r0, *i ${NSIS_MAX_STRLEN} r1) i.r2"
System::Call 'netapi32.dll::NetUserGetInfo(w n, w "$0", i 23, *i .R8)i.r4'
System::Call '*$R8(w .R1, w .R2, w .R3, i .R4, i .R9)'
System::Call advapi32::ConvertSidToStringSid(iR9,*t.R0)
DetailPrint "The SID is $R0"
System::Free $R8
SectionEnd

[kotkovets]

Адаптировал ProcessFunc.nsh под 3 версию NSIS
---
как пользоваться читаем внимательно в справочнике по NSIS (ссылка на справочник в шапке темы)

[MKN]

kotkovets,

Согласно справочника

Ожидание завершения запущенного процесса заданное время Данный макрос заставит установщик ждать завершение запущенного процесса или ждать заданное время, не ожидая завершения процесса.

Будет ли работать ожидание окончания процесса , если основной контролируемый процесс создал ещё несколько дочерних процессов ? Т.е. нужно дождаться окончания всех возникших процессов.


И возвращаясь к перечислению дисковых устройств с занесением их всех в переменную :

Код:

Function .onInit
System::Call 'kernel32::GetLogicalDrives()i.r0'
StrCpy $2 0
StrCpy $4 65 ; 'A'
loop:
    IntOp $3 $0 & 1
    ${If} $3 <> 0
        IntFmt $3 "%c:\" $4
        System::Call 'kernel32::GetDriveType(tr3)i.r5'
DetailPrint "$3=$5"
StrCpy $R0 "$R0 $3$5"
	${EndIf}
    IntOp $4 $4 + 1
    IntOp $0 $0 >> 1
StrCmp $0 0 "" loop
FunctionEnd

Возможно ли занести каждое найденное устройство в свою отдельную переменную ? Т.е. сколько устройств (кол-во их, заранее ессно не известно) - столько и переменных.

[K.A.V.]

Будет ли работать ожидание , когда основной контролируемый процесс создал ещё несколько дочерних процессов ? »

Да, а почему нет то? Как я понимаю, функция ожидания ждёт, пока существует "хэндл процесса", а не проверяет наличие указанного образа процесса, образ указывается для первоначального поиска процесса

Возможно ли занести каждое найденное устройство в свою отдельную переменную ? Т.е. сколько устройств - столько и переменных. »

Ну, переменными мы ограничены в NSIS, ты бы сразу тоже указал, в какие переменные ты хочешь заносить данные? В стандартные или в свои созданные?
Либо, как я предлагал здесь давныыым давно (не помню уже для чего, но вроде бы тебе тоже код предлагал), хранить несколько значений в одной переменной и считывать данные из "подпеременных" командой ${GetOptions}
Хотел, кстати, добавить небольшую статью-пример с хранением нескольких значений в одной переменной в справочник, да что-то передумал, идея вдруг показалась бредовой

[MKN]

в какие переменные ты хочешь заносить данные? В стандартные или в свои созданные? »

Лучше в собственные...

[K.A.V.]

раз поправил сообщение, дополню

Т.е. нужно дождаться окончания всех возникших процессов. »

В таком случае нет, функция дождётся завершения указанного процесса, завершения дочерних процессов функция ждать не будет

Возможно ли занести каждое найденное устройство в свою отдельную переменную ? Т.е. сколько устройств (кол-во их, заранее ессно не известно) - столько и переменных. »

Для твоего кода необходимо именно отдельные переменные, или можно сделать что-то типа массива?
Если делать отдельными переменными, то там просто заносить данные не совсем удобно (если на каждую букву диска делать сравнение), так не пойдёт?

читать дальше »

Код:

!include "logiclib.nsh"
!include "FileFunc.nsh"

var var_Sum
var var_Drives

Name "test"
OutFile "!test.exe"
InstallDir "$TEMP"


Function .onInit

call GetDrivesFunc


StrCpy $0 0
GetList:
IntOp $0 $0 + 1
${GetOptions} "$var_Drives" "/$0=" $1
${GetOptions} "$var_Drives" "/$0_type=" $2
  MessageBox MB_OK|MB_ICONINFORMATION "Всего устройств: $var_Sum$\n$1 = $2"
StrCmp $0 "$var_Sum" 0 GetList
 
 
 MessageBox MB_OK|MB_ICONINFORMATION "готово$\n$\n$var_Drives"
 
quit
FunctionEnd





Function GetDrivesFunc
 StrCpy $var_Sum 0
 StrCpy $var_Drives ""

System::Call 'kernel32::GetLogicalDrives()i.r0'
StrCpy $2 0
StrCpy $4 65 ; 'A'
loop:
    IntOp $3 $0 & 1
    ${If} $3 <> 0
        IntFmt $3 "%c:\" $4
        System::Call 'kernel32::GetDriveType(tr3)i.r5'
DetailPrint "$3=$5"

 IntOp $var_Sum $var_Sum + 1
 StrCpy $var_Drives "$var_Drives /$var_Sum=$3 /$var_Sum_type=$5"
; плюсуем значение переменной, в которой хранится общее количество найденных устройств
; заносим данные о букве диске и о его типе в подпеременные


StrCpy $R0 "$R0 $3$5"
	${EndIf}
    IntOp $4 $4 + 1
    IntOp $0 $0 >> 1
StrCmp $0 0 "" loop
FunctionEnd

Section
SectionEnd

В итоге, в одной переменной $var_Drives будет хранится инфа о всех найденных устройствах и их типы, а в переменной $var_Sum общее количество найденных устройств
Формат данных будет такой:

Код:

/1=C:\ /1_type=2 /2=D:\ /2_type=4

Вытащить данных не сложно, достаточно обратиться командой ${GetOptions} с указанием порядкового номера:

Код:

${GetOptions} "$var_Drives" "/1=" $1
${GetOptions} "$var_Drives" "/1_type=" $2

в переменной $1 - буква диска
в переменной $2 - тип устройства

[kotkovets]

Будет ли работать ожидание окончания процесса , если основной контролируемый процесс создал ещё несколько дочерних процессов ? Т.е. нужно дождаться окончания всех возникших процессов. »

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

[Dodakaedr]

Подкиньте, пожалуйста, примерчик как с помощью nsis создать портативную версию программы. Спасибо!

[K.A.V.]

Подкиньте, пожалуйста, примерчик как с помощью nsis создать портативную версию программы. Спасибо! »

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

1. Распаковка файлов (если требуется)
2. Если программа требует лицензию, вносим информацию в реестр (если просто файл ключа, то, соответственно, пропускаем пункт)
3. Запуск приложения с ожиданием
4. Удаление следов после использования приложения (временные файлы, настройки приложения в app/local app папках и т.д., записи в реестре)