"Искусственный интеллект" - создание.

Перейдите в окно кода (F12) и найдите там строчку из одного слова Var. Это слово является сокращением от Variables, и после него описываются все переменные, которые вы хотели бы задействовать в своей программе. Под строчкой Form1: TForm1; напишите:
Mas:array[1..5] of pchar; {здесь мы разместим 5 строк, которые должен будет сказать наш "Блокнот"}
h:hwnd; {эти 2 переменные нужны, чтобы адресовать текст именно в окошко "Блокнота"}
dc:hdc;
i:byte=1; {переменная для переключения между выводимыми строками}

В процедуре ссылка на TForm1.FormCreate добавьте строчки, чтобы она выглядела так:

Procedure ссылка на TForm1.FormCreate (Sender: TObject);

 

{1}ссылка на Application.ShowMainForm:=false;


begin

{2}mas[1]:='Привет';
{3}mas[2]:='Хули смотришь ?? А??';
{4}mas[3]:='Блокнота говорящего не видел?';
{5}mas[4]:='Ваще охуел что ли ?';
{6}mas[5]:='Ну и ладно. Хули мне тут с лохами пиздеть. Молчу.';
end;
Затем модифицируем процедуру TForm1.Timer1Timer следующим образом:
procedure TForm1.Timer1Timer (Sender: TObject);
begin
{7}h:=FindWindow(nil,'Безымянный — Блокнот');
{8}if h 0 then begin
{9}dc:=GetDC(h);
{10}textout(dc,5,i*15,mas[i],length(mas[i]));
{11}if i+1<6>
Проверим работоспособность.
Скомпилируйте программу (F9).
Ваше окошко пропадет (не зря же мы его скрывали), но сама программа будет оставаться в памяти и терпеливо выжидать свою жертву.
Теперь запустите Пуск > Программы > Стандартные > Блокнот и наслаждайтесь:).

Завершить работу вашего приложения можно, нажав Ctrl+F12.
Теперь немного теории (нужно же хоть чуточку представлять, что ж вы натворили-то:)).
Строка {1}, как было сказано ранее, прячет наше приложение от глаз пользователя (но не от Ctrl+Alt+Del).
Строки {2}-{6} описывают то, что будет печататься в нашем "Блокноте". Модифицируйте их на свое усмотрение.
Строка {7} получает дескриптор окна "Блокнота" по его заголовку (это надпись вверху окна на синем фоне). Поэтому программа будет работать только с "Блокнотом", в который не загружен текстовый файл.
Строка {8} проверяет, найдено ли это окно. Если да, то работают строки {9}-{11}.
В строке {9} мы по дескриптору окна "Блокнота" получаем его контекст устройства (белая область, куда будут выводиться надписи).
В строке {10} мы выводим саму надпись в "Блокноте". Надпись хранится в массиве
mas[i] — их мы задавали выше.
Строка {11} проверяет, будет ли переменная i при увеличении лежать в пределах [1-5], и увеличивает ее для отображения в следующий раз новой строки.
Сохраним программу (Ctrl+S). Вам придется сохранить два файла: файл с кодом (имя давайте любое) и имя проекта (совпадает с именем *.exe-файла). Проект нужно называть так, чтобы даже если прога будет обнаружена, то решили бы, что это системный файл. Примеры: winsys32.exe, kern32.exe и т.д. Теперь достаточно запустить *.exe-файл (лежит там, куда вы сохраняли проект) и спокойно ждать, когда жертва запустит "Блокнот". В случае, если жертва попытается отвечать компьютеру, можно смело вызывать санитаров и ждать устранения «человека, открывшего в своём ПК Искусственный Интеллект».