Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


имхо FileInstall как раз для таких случаев - при компиляции скрипт "всасывает" файл проги в себя, при запуске - скрипт проверяет пароль, при успехе извлекает файл в нужное место и запускает, при закрытии проги удаляет файл
Код: Выделить весь код
;#NoTrayIcon
$sPassw = "qwerty"
$sInput = InputBox("Проверка прав доступа", "Введите пароль:", "", "*")
If Not($sPassw==$sInput) Then Exit MsgBox(16, "Ошибка", "Пароль неверен!")

FileInstall("C:\Program Files\MyProgram\MyExe.exe", "C:\Program Files\MyProgram\MyExe.exe", 1)
$iPID = Run("C:\Program Files\MyProgram\MyExe.exe", "C:\Program Files\MyProgram")
If $iPID=0 Then Exit(1)

Sleep(500)
ProcessWaitClose($iPID)
Sleep(500)
FileDelete("C:\Program Files\MyProgram\MyExe.exe")

Отправлено: 06:10, 21-03-2009 | #5