Delphi

LodSB · Отправлено: **18:14, 29-03-2004** | #21

Еще одно дополнение по поводу горячих клавиш, кому интересно - RegisterHotKey/UnregisterHotKey

UZER · Отправлено: **07:28, 31-03-2004** | #22

Можно ли отключить клавиатуру во всей системе?
Нашел вего один пример:

Код:

program antiklava;
uses Windows; { подключение необходимых модулей }
var
klava:boolean; { объявление логической переменной}
begin
klava:=true; { устанавливаем значение переменной }
while true do { начинаем бесконечный цикл }
begin
Yield; { делаем так, чтобы всё не подвисло :)}
Sleep(2*60*1000); { ничего не делаем 2 минуты }
klava:=not klava; { присваиваем переменной противоположное значение }
EnableHardwareInput(klava); { и в зависимости от переменной, 
отключаем или включаем клаву с мышкой}
end;
end.

Но на ЕnableHardwareInput Delphi ругается, что такого не существует.
Заранее спасибо за помоСЧь

[s]Исправлено: UZER, 6:29 31-03-2004[/s]

Prisoner · Отправлено: **07:55, 31-03-2004** | #23

А так?

Код:

procedure BlockInput; external 'user32.dll';

procedure Block;
asm
  push 1;
  call BlockInput;
end;

procedure UnBlock;
asm
  push 0;
  call BlockInput;
end;

UZER · Отправлено: **09:04, 31-03-2004** | #24

Забыл сказать - это должно работать на WinXP.
Prisoner
Пасиб. Сейчас попробую...

Добавлено:

Все работает. Спасибо.

UZER · Отправлено: **14:12, 23-04-2004** | #25

Скажите, является ли TServerSocket и TClientSocket компонентами дельфи, идущими с ней в коплекте? Или их надо скачивать дополнительно...?

Prisoner · Отправлено: **02:40, 24-04-2004** | #26

К сожалению не могу проверить входит ли оные в поставку (седьмая) ибо не стоит... кхм... среда не стоит. В ближайшие пару дней возможно появится...
А поисковики дают такое решение.

UZER · Отправлено: **10:12, 24-04-2004** | #27

Prisoner
Спасибо большое!

Профиль · Отправлено: **19:09, 24-04-2004** | #28

Как установить выравнивание "по правому краю"?

JCooper · Отправлено: **22:26, 24-04-2004** | #29

AndrejChec выравнивание чего?

UZER · Отправлено: **16:37, 25-04-2004** | #30

Помогите осуществить задачу:
Есть сеть из нескольких компьютеров. Как можно узнать, включен ли (подключен ли к сети) в данный момент нужный компьютер, прежде чем послать ему сообщение?
Заранее спасибо

AndrejChec Сообщения: n/a	Профиль \| Цитировать Как установить выравнивание "по правому краю"?
	Отправлено: 19:09, 24-04-2004 \| #28

JCooper Сообщения: 196 Благодарности: 0	Профиль \| Сайт \| Отправить PM \| Цитировать AndrejChec выравнивание чего?
	Отправлено: 22:26, 24-04-2004 \| #29