Показать сообщение отдельно
  #22  
Старый 18.02.2017, 14:47
TidusX TidusX вне форума
Прохожий
 
Регистрация: 20.10.2013
Сообщения: 19
Версия Delphi: XE10.2 Tokyo
Репутация: 10
По умолчанию

И еще для совместимости, если программу запустят на другой виндоус, в которой нет этой функциональности, то как разумнее сделать?
Код:
initialization
 if Win32MajorVersion > 9 then
  begin
  CoInitialize(nil);
  DesktopNotification := TVirtualDesktopNotification.Create;
  DesktopNotification._Register;
  end;
finalization
  if Win32MajorVersion > 9 then
  begin
  DesktopNotification._Unregister;
  CoUninitialize;
  end;
end.
Я вот так сделал, а то иначе твоя демка даже не хотела запускаться на ХР по понятным причинам.
Ответить с цитированием