Пост
Hello :)

Всем, часто приходилось использовать в Delphi Функцию Sleep, в результате которой программа не отвечает N количество миллисекунд затормаживая процесc, предлагаю использовать альтернативу:

 

procedure pause(col:integer); 
var wtim:ttime;
begin
wtim:=encodetime(0,0,col,0)+time;
repeat
application.processmessages;
sleep(10);
until time>=wtim;
end;

 

col - пауза в секукндах. 

 

При использовании данной функции, программа не будет уходить в Даун, а будет дальше функционировать.

 

  • Serj
  • 20 ноября 2011

 

Собственно, простая программа (работает с касперским), для проверки ссылок на заражение, читаем далее, что вышло.

  • Serj
  • 16 ноября 2011
 
И так, что это? а хз) Дело было вечером, делать было нечего =)
 Вот и решил написать, что нибудь полезное на Delphi для себя, но то, что получилось захотелось выложить в свет, может кому то ещё данная программа будет полезна)
Сори, если гдето встретятся опечатки, пишу быстро :)

Что я учёл при написании:
1. У всех было такое что срочно нужен баланс, а возможности пополнить - нет)
2. Компьютер работает 24/7, нужен смс контроль над состоянием
3. Возможность Пополнять баланс Любому абоненту с системы QIWI имея любой телефон под рукой
4. Ну и ещё всякие мелочи :))
  • Serj
  • 11 ноября 2011



© SERJ.WS 2011-2021