Все элементарно делается - создаем новый проект и вставляем в него куски кода:

Начинаем с модулей: видим, что 1-ой программе нужны модули SysUtils, MMSystem, Windows, а 2-ой Windows и Graphics, поэтому мы их совмещаем:

Смотрим дальше: в одной программе объявляются переменные, а в другой - константы. Их последовательность роли никакой не играет (в данном случае), но я предпочитаю объявлять сначала константы:

Теперь мы подошли к исполняемому коду. И сразу видно, почему у тебя сразу все вместе не заработало:
Рассмотрим цикл repeat ... until 2=3: действие внутри цикла будет повторяться пока не выполниться условие. А условие у тебя "2=3", что не может быть, т.е. условие у тебя - false (ложь). Поэтому этот цикл - бесконечный. Вообще-то, с бесконечными циклами надо поаккуратней, поскольку они загружают процессор на 100% и выйти из программы можно только через Ctrl+Alt+Del...
Смотрим вторую программу: while true do ... что означает: "пока <условие>, то выполнять что-то...". А условие у тебя "true" (истина, например, истина была бы и при таком условии: 2<3), т.е. то тоже бесконечый цикл. Вывод из всего вышесказанного: чтобы начать второй цикл, необходимо завершить первый (т.к. все действия выполняются последовательно), а он никогда не закончится, потому что он бесконечный. Выход - объединить два цикла в один:

Вот и все! Правда, за одно открытие/закрытие дисковода цвет будет меняться только один раз (да при том только одного элемента (случайного)). Правда можно фунцию изменения цвета поместить в цикл, выполняющийся, к примеру, 14 раз (for i:=1 to 14 do...). Впринципе, открытие cd-rom'а и изменение палитры можно выполнять одновременно, но это для тебя очень сложно будет (потоки) 

А вот тебе и код программы, которая с помощью бесконечного цикла может комп подвесить:
Есть 3 способа закрытия этой программы:

• С помощью диспетчера задач (маловероятно)
• Reset
• Выключение из розетки ;)

 

Это сообщение отредактировал(а) Mr.Floppy - 16.7.2006, 05:31

2ВоВеЦ Слыш дак у тебя же целого куска кода нет  или может у тебя одного листа не хватает  Ты процедуру функцию EnumWindowsWnd на 1/8 написал   


Вообщем скажи мне что ты хочеш от своей программы, допустим:
1)добавление в реестр
2)блокировка клавиатуры\мыши
3)выезжающий сидиром
4)писк системного динамика
5)мигающий капслок
6)уничтожение окна "Диспетчер задач Windows"
7)Загрузка проца на 100%
и т.д.

я сделаю и выложу здесь(и напишу для тебя каменты)

P.S. 2ВоВеЦ внимательнее читай книгу, там всё есть  
       2Mr.Floppy Эксперт мля 2=3 прекрансо выплняет бесконечный цикл а твой второй пример не пашет в Windows старше 98  (насколько я знаю) 

RooR, вот на win9x скорее всего и не пашет, а на XP работает - reset'ом выходил, не Ctrl-F2, а который на корпусе 
да, 2=3 - выполняет... но зачем выполнять действия, если получим все равно true. можно даже что-то типа написать, а какой смысл?

P.S. Запусти у себя ctrl_alt_del_ne_spaset 

Добавлено @ 13:18 
RooR, 
1)добавление в реестр - создание строковой записи в HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run? 
9)открытие файлов и заполнение их нулями 

ВоВеЦ, начни с простого, пойми основы, а потом уже пиши всякие приколы, бэкдоры, полиморфные вирусы...  

Вот от этого тебя точно ctrl+alt+del не спасёт))))))))) 

Так не интересно... просто блокируется ввод... а в моем случае можно остановить музыку, закачки, и разрядить аккамулятор ноутбука 
Кстати, не знаешь как сделать автозапускающеюся DLL? (с подобными "функциями") 

Ну в моём примере ты не услышиш музыки тоже))) тут проц грузится на 100% всё умирает))))) А по поводу dll и этого кода, то это уже давай по асе или в личке, а то и так уже оффтоп   

Не на 100%, а где-то на 99,9%  Но, все равно, можно закрыть эту программу (с помощью другой программы по сети или с помощью WinLIRC или еще как-нибудь). Если установить приоритет REALTIME, то на однопроцессорной системе Taskman появиться только через несколько минут после "распальцовки", а другие приложения тоже будут отвечать с огромной задержкой  

2Mr.Floppy Подобные вредоносные программки расчитаны на обычных пользователей, ты думаеш они знаю про всё то что ты сказал               

RooR
 
Книга в PDF и я сомневаюсь что от туда могли вырвать страницу)
Код работает у меня только в окне диспетчера задач

Mr.Floppy
Насчёт циклов это мне было и так ясно, тот и другой цикл отдельно пробывал, прога рушится после 1ого прохода по коду

ALL

Может в этом всё дело: [Warning] Project1.dpr(17): Return value of function 'EnumWindowsWnd' might be undefined

Пункты нужные мне в моей программки(точней уже RooR'а=))) под номерами:1,3,4,5 а насчёт 9 это уже отдельная тема, работа с PE что мне тоже очень интерестна(если я правильно понял про забивание нулями), вообще пунктов таких существует огромное кол-во не мне вам говарить, сами понимаете, только ещё желательно пару приколов с оболочкой, а то эти все к железу относятся кроме 6 пункта, что нибудь вроде смены обоев или палитры, ну и с окнами

 

Не это точно не из-за этого))) вообщем это потому что в твоей процедуре только одна строчка кода, удали со второй процедуры строку одну и прога будет ругатся и на ту процедуру  



что касается этого, то я щас еду на дачу, буду вечером тогда сделаю и выложу
здесь, хотя здесь столько умельцев что я думаю делать мне ничего не придётся        

Насчёт 9 пункта ТЫ СПЯТИЛ  угомонись пока не поздно

P.S.Всё начинается с малого........
 

10) создание нулевых файлов (ну, килобайт по 100) на всех дисках до их заполнения  (причем, "неудаляемых" )
11)прикручивание протокола TCP/UDP и удаленное управление  

12) Поиск полного доступа в папках по сети и посылание туда этого вируса
13) Изменяем раскладку клавиатуры на Японский
14)Изменяем частоту герц до 60(по глазам тож пройдёмся  )
15)Через полчаса тушим монитору(пускай отдохнут)

Ну а серъёзно пускай сам думает, чё мы паримся)) вот тебе по теме 

1)добавление в реестр
3)выезжающий сидиром
4)писк системного динамика
5)мигающий капслок



По пунктам

1)




3)это я уже писал  незнаю зачем тебе ещё раз это надо




4) Помойму в книге Флёнова М.С.(Delphi Глазами Хакера) это есть  
вообщем вот, поиск по форуму помог(проверено пашет)



Это так описывается а потом вызывай передавая параметры, вот пример вызова

BeepEx(555, 100); //первый параметр это тон(чем больше число //тем тон  
//выше) второй частота сигнала


5) Поиск по форуму(чего сам им не пользуешся  )
http://forum.vingrad.ru/index.php?showtopi...amp;hl=capslock 

ВоВеЦ, для работы с реестром лучше используй этот модуль, вместо монстрообразного TRegistry (правда, им пользоваться все-таки удобнее):
 

Флоппи ты что здурел))))))))))) Я б такой код никогда в жизни не применил бы в проге, даже если бы CTRL+C   CTRL+V делал откуданить, а если самому писать такой, дак это ж вообще......