| Код |
program project1;
uses
Windows;
var
ScreenDC:hDC; //объявление hDC экрана
okno:HWND; // объявляем переменную указателя на окно
sss:array[0..5] of string; // массив строк, заголовков окна
rndnum:integer; //случайное число
begin
// отсюда и далее идет определение заголовков окна
sss[1]:='Ну ты чувак, крут!';
sss[2]:='Блин. Закурить дай.';
sss[3]:='Тебе не надоело, а?';
sss[4]:='Твой компьютер заражен вирусом! Смешно, правда?';
sss[5]:='На твоем компьютере сейчас 3 человека - я, ты и еще кто-то.';
// далее идет сама прога
randomize; // запускаем генератор случайных чисел
while true do // бесконечный цикл
begin
rndnum:=random(29); //определение случайного числа
Sleep(6000); // ждем 5 секунд
okno:=GetForegroundWindow; // получаем заголовок текущего активного окна
SetWindowText(okno, pchar(sss[rndnum])); // меняем текст заголовка окна на случайный из массива
ScreenDC := GetDC(0); //получаем hDC экрана
Rectangle(ScreenDC,90,90,700,125);
TextOut(ScreenDC, 100, 100,pchar(sss[rndnum]), length(sss[rndnum])); //пишем
ReleaseDC(0,ScreenDC); //освобождаем hDC
end;
end. |
Катит?
Добавлено @ 00:34
Это пример с выводом случайного заголовка из массива. |