megauser123
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: Option Explicit
Function OnFirstSandboxOwner
Dim oShell
Set oShell = CreateObject("WScript.Shell")
If oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Program\PortWarnMessage") = "Hide" Then
MsgBox "Используя портативную версию платной программы, Вы тем" & Chr(13) & "самым подтверждаете наличие у Вас купленной лицензии!", vbInformation, "ВНИМАНИЕ!"
oShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Program\PortWarnMessage", "Show=)", "REG_SZ"
End If
End Function |
|
