dnekrasov

Создаю глобальный hook на несколько событий:

{$IFDEF MACOS}
var
  EvtTap: CFMachPortRef;
  RunLoopSource: CFRunLoopSourceRef;
{$ENDIF}
...
procedure CreateGlobalHook;
{$IFDEF MACOS} 
var 
  EvtMask: UInt64; 
{$ENDIF} 
begin 
{$IFDEF MACOS} 
  if EvtTap = nil then
  begin 
    EvtMask := (1 shl kCGEventKeyDown) or (1 shl kCGEventFlagsChanged) or (1 shl kCGEventLeftMouseUp); 
    EvtTap := CGEventTapCreate(kCGAnnotatedSessionEventTap, kCGTailAppendEventTap, kCGEventTapOptionListenOnly, 
    EvtMask, @EventTapHandler, nil); 
    RunLoopSource := CFMachPortCreateRunLoopSource(kCFAllocatorDefault, EvtTap, 0); 
    CFRunLoopAddSource(CFRunLoopGetCurrent, RunLoopSource, kCFRunLoopCommonModes); 
  end; 

  CGEventTapEnable(EvtTap, 1);
{$ENDIF} 
end;

function EventTapHandler(proxy: CGEventTapProxy; type_: CGEventType; event: CGEventRef; refcon: Pointer): CGEventRef; cdecl;
{$IFDEF MACOS}
var
  iKey: Integer;
  iType: Integer;
{$ENDIF}
begin
{$IFDEF MACOS}
  Result := event;

  iType := CGEventGetType(event);
  iKey := CGEventGetIntegerValueField(event, kCGKeyboardEventKeycode);

  case iType of
    kCGEventFlagsChanged: ...;
    kCGEventLeftMouseUp: ...;
    kCGEventKeyDown: ...;
  end;
{$ENDIF}
end;

В документации нашел, что kCGEventKeyDown и kCGEventKeyUp приходят только в том случае если приложение запущено от root-а или внесено в список "System Preferences->Security & Privacy->Privacy->Accessibility"

Может кто знает как мне программно получить доступ к этим событиям?

function GetHDDSerialID: String;
Const
  kIOPlatformSerialNumberKey = 'IOPlatformSerialNumber';
var
  PlatformExpert: io_service_t;
  M: CFMutableDictionaryRef;
  CFTR: CFTypeRef;
  pac: PAnsiChar;
begin
  M := IOServiceMatching('IOPlatformExpertDevice');
  PlatformExpert := IOServiceGetMatchingService(kIOMasterPortDefault, CFDictionaryRef(M));
  try
    CFTR := IORegistryEntryCreateCFProperty(PlatformExpert,
      CFSTR(kIOPlatformSerialNumberKey), kCFAllocatorDefault, 0);

    pac := CFStringGetCStringPtr(CFTR, 0);

    Result := String(AnsiString(pac));
  finally
    IOObjectRelease(PlatformExpert);
  end;
end;

Подскажите, пожалуйста, как реализовать глобальные хоткеи для своего приложения в OS X

Всегда пожалуйста! 

Приложение убрано из панели задач

Свойства формы:

BorderStyle = None

Transparency = True

...
TMyForm = class(TForm)
...
protected
    procedure CreateHandle; override;
...
end;
...
procedure TMyForm.CreateHandle;
begin
  inherited CreateHandle;

  SetWindowLong(WindowHandleToPlatform(Handle).Wnd, GWL_EXSTYLE,
    GetWindowLong(WindowHandleToPlatform(Handle).Wnd, GWL_EXSTYLE) or WS_EX_APPWINDOW);
end;
...
end.

Здорово, я с вашего позволения опубликую ваше приложение в разделе Приложения, написанные с использованием FireMonkey

 

Хорошая работа.

Публикуйте, конечно.

Спасибо за хороший отзыв.

Clip2net на FireMonkey написан?

Начиная с 2.0 - ДА

   FHandle := WindowHandleToPlatform(Form2.Handle).Wnd;
   SetWindowLong(FHandle, GWL_EXSTYLE,
                 GetWindowLong(FHandle, gwl_exstyle) or WS_EX_APPWINDOW or WS_EX_ACCEPTFILES);

Этот код работает,только его надо переместить из обработчика события OnCreate в обработчик OnShow

Не знаю в чем проблема, но FHandle в этих событиях принимает разные значения и, как я понял, правильный именно в FormShow.

Как это работает можно посмотреть в приложении Clip2net (написано на Delphi XE6)