Добавление программы в автозагрузку

Страница 1 из 1 1
Модератор форума: as-master

toizy

Дата: Суббота, 07 Апреля 2007, 13:04 | Сообщение # 1

Студийная субстанция

Группа: Администраторы

Сообщений: 2309

Репутация: 29

Награды: 12

Статус: Offline

Code

String1$='Windows Registry Editor Version 5.00'+CHR(13)+CHR(10)+CHR(13)+CHR(10)
String2$=String1$+'[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]'+CHR(13)+CHR(10)
String3$=String2$+'"ExeName.exe"='
String4$='"<SrcDir>\ExeName.exe"'
L=LEN(String4$)
For i=1 To L
Char$=StrGet(String4$,i)
pos=i-1
PredChar$=StrGet(String4$,pos)
If (Char$='\\' & i<>1 & PredChar$<>'\\') Then
Char$=CHR(92)+CHR(92)
String4$=StrIns(String4$,Char$,i)
pos=i+1
String4$=StrDel(String4$,i,1)
End
Next i
Result$=String3$+String4$
Write=StrToFile(<Embedded>\Reg.reg,Result$,0,0)
Run("<Windows>\regedit.exe","WAIT -s <Embedded>\Reg.reg")

Жизнь оказалась не такой уж и забавной, как поначалу...

Добавление программы в автозагрузку

Страница 1 из 1
1