|
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
|
Администратор
Сообщений: 902
Статус: Offline
|
На форму кидаешь компонент Timer, в его свойствах ставишь необходимый тебе интервал пример 60 секунд = 60000 по интервалу, дальше двараза щелкаешь на компоненте и в процедуре обработки пишешь
BlockInput;
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
dolphin
|
Дата: Пятница, 20.03.2009, 20:59 | Сообщение # 3
|
|
Администратор
Сообщений: 902
Статус: Offline
|
Отключение USB и мышьки
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
dolphin
|
Дата: Пятница, 20.03.2009, 23:03 | Сообщение # 4
|
|
Администратор
Сообщений: 902
Статус: Offline
|
Пример
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
Пизда
|
Дата: Понедельник, 03.05.2010, 18:11 | Сообщение # 5
|
Группа: Удаленные
|
Пример hello world
|
| |
|
|
|
|
|
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 и мышьки
для работы твоего примера требуется либо запуск сервиса, либо перезагрузка компа, а не только изменение его параметров в реестре
|
| |
|
|
|
