$pathscript = @ScriptFullPath ; определить путь до скрипта.
$sName = @ScriptName
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', $sName, "REG_SZ", $pathscript) ; добавит в автозагрузку с Windows
;...
$sName = 'MyProgaName.exe'
;...
If @ScriptName <> $sName Then
ToolTip('Файл переименован.' & @CRLF & _
'Имя файла должно быть только' & @CRLF & $sName, 0, 0)
Sleep(10000)
Exit
EndIf
;...
$sRegRun = 'HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'
If RegRead($sRegRun, @ScriptName) = '' Or RegRead($sRegRun, @ScriptName) <> @ScriptFullPath Then
RegWrite($sRegRun, @ScriptName, "REG_SZ", @ScriptFullPath)
EndIf
;...
lexaSF сказал(а):а как сделатьч чтобы можно было выключать автозапуск?
$sName = @ScriptName
RegDelete('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',$sName)
HKEY_CURRENT_USER - Настройки соответствуют текущему, активному пользователю, выполнившему вход в систему.
HKEY_LOCAL_MACHINE - Настройки, относящиеся к вашему компьютеру и действительные для всех
пользователей
If Not FileExists("Моля программа.ini") Then
Say ("Не могу найти ini-файл")
Exit
EndIf
Suppir сказал(а):Код:If Not FileExists("Моля программа.ini") Then Say ("Не могу найти ini-файл") Exit EndIf
If Not FileExists(@ScriptDir&"\Моля программа.ini") Then ; надо точно указать что он в одной директории со скриптом ( просто если выбирал куда-то сохранить или выбрать от куда-то файл (в любой программе) то путь в системе сохраняется последний выбранный )
Say ("Не могу найти ini-файл")
Exit
EndIf
Это что такое?) Что за Сэй, сказать?) В автоите вроде нету такого...Код:Say ("Не могу найти ini-файл")
Func Say($Say, $SleepTime = 1500)
TrayTip ("Моя программа", $Say, 1)
sleep($SleepTime)
TrayTip("", "", 0)
EndFunc
Viktor217 сказал(а):Это что такое?) Что за Сэй, сказать?) В автоите вроде нету такого...Код:Say ("Не могу найти ini-файл")
Say('Я функция Say()')
Func Say($sString)
MsgBox(0,'',$sString,5)
EndFunc