Включаем / выключаем хоткеи

[Gauhar]

Скрипт который загружается в Form DLL дополняем функциями:

Code: Select all

Procedure HOTKEYSONOFF();
Begin
   if (GetGlobal('char','HOTKEYS') = 'ON') or (GetGlobal('char','HOTKEYS') = '') then
   begin
      SetGlobal('char','HOTKEYS','OFF');
      ClientPrintEx(0, 53, 3, '== Hotkeys OFF ==');
   end
   else
   begin
      SetGlobal('char','HOTKEYS','ON');
      ClientPrintEx(0, 63, 3, '== Hotkeys ON ==');
   end;
End;

Function IsHotkeysON(): Boolean;
Begin
   if (GetGlobal('char','HOTKEYS') <> 'ON') and (GetGlobal('char','HOTKEYS') <> '') then
   begin
      ClientPrint('ВНИМАНИЕ! У вас отключены хоткеи.');
      Result := FALSE;
   end
   else
      Result := TRUE;
End;

В начале каждой функции которая вызывается хоткеем делаем дополнительное условие:

Code: Select all

if not IsHotkeysON then EXIT;

В хоткеях прописываем: exec HOTKEYSONOFF