Сообщение при первом запуске программы - VB
Формулировка задачи:
Как сделать так, чтобы при первом запуске программы, вадавало любое сообщение (MsgBox), а при всех последующих - ничего не вылезало...
Решение задачи: «Сообщение при первом запуске программы»
textual
Листинг программы
sub FirstRun()
Dim ret&
on error resume next
ret = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\MyProgram\FirstRun")
on error resume 0
if ret=0 then
CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\MyProgram\FirstRun", 1, "REG_BINARY"
msgbox "Первый запуск"
end if
end sub