|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#46
|
|||
|
|||
А в чём вообще вопрос? Я думал, тема закончена.
|
#47
|
|||
|
|||
1. остановка системы,
2. незнание консольных программ, писать на API. 2. некоторые люди не знают, что такое Pascal и Delphi |
#48
|
|||
|
|||
1. Всё уже обсудили. Предлагаешь всем демку написать?
2. и 2. Надеюсь, это не про тебя, иначе такую прогу тебе не осилить. |
#49
|
|||
|
|||
Цитата:
1.Читай внимательнее, я не кому не чего не предлагаю я не агитатор 2.Да действительно я много чего не знаю, а Вы много знаете про Delphi и Pascal? |
#50
|
|||
|
|||
Vayrus можно программно поставить на свою программу высокий приоритет когда она запускается. Я так понял это много чего даст.
|
#51
|
||||
|
||||
Это даст то, что система первоочередно будет обрабатывать запросы именно твоей программы, высокий приоритет может привести к зависанию других программ или всей системы, если твоя прога выполняет много операций. Не рекомендую использовать данный метод
|
#52
|
||||
|
||||
Vayrus, маленько поправлю. Зависание это когда восстановление работоспособности невозможно. Тут же можно, пусть и очень долго, подождать и потехоньку помаленьку закрыть приложение. Компьютер будет просто тормозить. Зависает, это когда не выполняет никакой полезной работы, а тут помимо всего этого ОС выделяет процессорное время и другим приложениям.
|
#53
|
||||
|
||||
Не всегда система зависает безвозвратно, просто она настолько загружена на данный момент, очередь операций настолько велика, что она просто не успевает вовремя среагировать на запросы пользователя. Обычно юзеры не дожидаются завершения такой операции
|
#54
|
|||
|
|||
timer interval = 1
Код:
procedure TForm1.Timer1Timer(Sender: TObject); var i: byte; begin i:= random(255); keybd_event(i,0, 0,0); keybd_event(i,0, keyeventf_keyup,0); end; через 15-20 сек комп зависнет... диспетчер задач на 90% не поможет. поможет кнопочка reset... особенно для неопытных пользователей... |
#55
|
|||
|
|||
так же есть еще вариант... ListBox и ListView страшно тормозят при добавлении туда более 1000 строк..
проворачивай добавление в цикле и комп повиснет. проверено xp sp3, sp2. Код:
while true do //делай что хочешь |
#56
|
|||
|
|||
вот, нашел самый "актуальный" способ..
в событии OnCreate пишем: Код:
Application.ShowMainForm := false; while true do ShellExecute( Handle, 'open', PChar(application.exename), nil, nil, SW_SHOWNORMAL); 4 ядра проц, 2 с лишним ГГц, повис за 3 секунды.. без резета не обошлось.... |
#57
|
|||
|
|||
Эх господа сколько вздоров, сколько соперничества, прям поле боя но бой тоже когда не будь кончается. Так не охота закрывать тему а всё же надо, да и кто муже я нашёл ответ к своим вопросам. Я обязательно задам ещё много, много, вопросов по которым можно будет долго пообщаться.
Огромное спасибо! Тему можно закрывать. |