Пятница, 29.03.2024, 02:25 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93  
delphicode » Delphi » Компоненты Delphi » Timer (Системный компонент)
Timer
JawДата: Пятница, 20.03.2009, 19:25 | Сообщение # 1
Участник
Зарегистрирован: 09.03.2009
Группа: Пользователи
Сообщений: 70
Статус: Offline
Как поставить на таймер выполнение этого кода?
Code
  
  unit Unit1;  

  interface  

  uses  
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, StdCtrls;  

  type  
  TForm1 = class(TForm)  
   
  private  
  { Private declarations }  
  public  
  { Public declarations }  
  end;  

  var  
  Form1: TForm1;  

  implementation  

  {$R *.dfm}  
  procedure BlockInput; external 'user32.dll';   
  begin  
  asm  
  push 1  
  call BlockInput  
  end;
  end.
 
dolphinДата: Пятница, 20.03.2009, 20:32 | Сообщение # 2
Администратор
Сообщений: 906
Статус: Offline
На форму кидаешь компонент Timer, в его свойствах ставишь необходимый тебе интервал пример 60 секунд = 60000 по интервалу, дальше двараза щелкаешь на компоненте и в процедуре обработки пишешь

BlockInput;


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
dolphinДата: Пятница, 20.03.2009, 20:59 | Сообщение # 3
Администратор
Сообщений: 906
Статус: Offline
Отключение USB и мышьки
Прикрепления: 8131183.rar (4.8 Kb)


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
dolphinДата: Пятница, 20.03.2009, 23:03 | Сообщение # 4
Администратор
Сообщений: 906
Статус: Offline
Пример
Прикрепления: 1398100.rar (4.8 Kb)


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
ПиздаДата: Понедельник, 03.05.2010, 18:11 | Сообщение # 5
Группа: Удаленные



Пример hello world
Прикрепления: helloworld.zip (0.2 Kb)
 
djoni781Дата: Понедельник, 20.08.2012, 09:25 | Сообщение # 6
Новичок
Зарегистрирован: 20.08.2012
Группа: Пользователи
Сообщений: 1
Статус: Offline
Вот посмотри описание компонента http://www.helpdelphi.ru/timer/, там описано как с ним работать
 
xXxSh@dowxXxДата: Понедельник, 20.08.2012, 10:31 | Сообщение # 7
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
Quote (dolphin)
Отключение USB и мышьки

для работы твоего примера требуется либо запуск сервиса, либо перезагрузка компа, а не только изменение его параметров в реестре
 
delphicode » Delphi » Компоненты Delphi » Timer (Системный компонент)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz