Контакты  
 
 
Главная
 
 
 
   
Привет :)
 
 
Разделы





 
DELPHI  

Всем, часто приходилось использовать в 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, 00:55
 
 

 

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

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

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

 
 
1 2 3
 
 
 
 
 
 
© SERJ.WS 2011-2017