powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Уведомления в Windows 10
43 сообщений из 43, показаны все 2 страниц
Уведомления в Windows 10
    #39859874
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кто-нибудь сталкивался с добавлением уведомлений из своих приложений в windows 10?
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39859879
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
10.09.2019 14:55, mkr пишет:
> кто-нибудь сталкивался с добавлением уведомлений из своих приложений в windows 10?

что ты хочешь сотворить?
в чем затык?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39859895
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мимопроходящий,
да вот, ищу, с какой стороны подойти)

для начала ищу способ работы с Windows.UI.Notifications из delphi5
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39859899
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
10.09.2019 15:14, mkr пишет:
> для начала ищу способ работы с Windows.UI.Notifications из delphi5

Win10 + Delphi-5 ?
хм...
готично!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39859901
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39859906
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мимопроходящий,

спасибо, до win32 ещё не доходил, покапаю в этом направлении
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39859911
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
10.09.2019 15:38, mkr пишет:
> спасибо, до win32 ещё не доходил,

хм...
а ты хотел скрестить D5 и UWP ?
с интересом на это посмотрел бы.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39859944
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мимопроходящий10.09.2019 15:38, mkr пишет:
> спасибо, до win32 ещё не доходил,

хм...
а ты хотел скрестить D5 и UWP ?
с интересом на это посмотрел бы.
аналогично)))
а вообще в rio уведомления в windows 10 идут из коробки
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39859945
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мимопроходящийиз delphi5

о майн гот
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39859959
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
X11о майн гот

ничего не поделаешь, огромный проект...
asutp2а вообще в rio уведомления в windows 10 идут из коробки
уже в курсе...
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39859965
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
теоритически, там нужно просто послать xml (пока непонятно куда)
Код: xml
1.
2.
3.
4.
5.
6.
7.
<toast>
    <visual>
        <binding template="ToastText01">
            <text id="1">bodyText</text>
        </binding>  
    </visual>
</toast>
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39860020
kealon(Ruslan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mkr,

там нужно создать один из интерфейсов WinRT, но импортировать заголовки и описать без генериков, то ещё приключение
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39860036
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DLL написать, да и все.
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39860058
DmSer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mkrкто-нибудь сталкивался с добавлением уведомлений из своих приложений в windows 10?

Не сталкивался, но вчера эта тема всплывала в статье Марко Канту:
https://community.idera.com/developer-tools/b/blog/posts/a-tale-of-3-apis-vcl-integration-with-winapi-com-shellapi-winrt
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39860189
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
10.09.2019 20:38, rgreat пишет:
> DLL написать, да и все.

это уже сделано в M$.
нахрена ломиться ввысь через анус,
если есть готовое Win32 API.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39860211
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DmSerНе сталкивался, но вчера эта тема всплывала в статье Марко Канту:
https://community.idera.com/developer-tools/b/blog/posts/a-tale-of-3-apis-vcl-integration-with-winapi-com-shellapi-winrt

Написал письмо Марко... вот перевод ответа:
Это довольно сложно, так как вы должны взаимодействовать с WinRT
вручную - и это очень большой объем работы.
начиная с Delphi 10 Сиэтл проблема решается на ура.
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39860216
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
11.09.2019 11:41, mkr пишет:
> вручную - и это очень большой объем работы.

не сдавайся!
дерзай!
я верю в тебя!

(достал попкорн )

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39860344
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Выдрать код из 10-ки
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39860406
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не знаю, я вот использую стандартную компоненту TTrayIcon и BaloonHint

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure ShowBaloonHint(const Msg, Title: string; iTimeout: integer = 0);
begin
  fTrayIcon.BalloonHint  := msg;
  fTrayIcon.BalloonTitle := Title;
  fTrayIcon.BalloonFlags := bfInfo;

  if iTimeout > 0 then
    TrayIcon.BalloonTimeout  := 5000;

  fTrayIcon.ShowBalloonHint;
end;
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39860414
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
11.09.2019 16:19, X11 пишет:
> Не знаю, я вот использую стандартную компоненту TTrayIcon и BaloonHint

а ты видел какая у него версия Delphi?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39860649
crossa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Так нужно работать именно с уведомлениями, которые появились в Windows 10, или просто показывать всплывающее сообщение в области уведомлений?

Этот пример (с использованием NotifyIconData) работает в Delphi 5. Большинству пользователей таких уведомлений вполне хватит. И работает это во всех современных версиях Windows.
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39862585
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
crossa Этот пример (с использованием NotifyIconData) работает в Delphi 5. Большинству пользователей таких уведомлений вполне хватит. И работает это во всех современных версиях Windows.
в данном случае можем отобразить только одно уведомление...
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863003
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в итоге сделал dll-ку в Delphi 10)
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863228
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
17.09.2019 17:36, mkr пишет:
> в итоге сделал dll-ку в Delphi 10)

а как дысал, как дысал... (С)
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863443
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если кому интересно github
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863474
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mkr,

И зачем ты сделал DLL в виде OLE сервера?

Простого экспорта 1-й функции не хватило?
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863480
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatИ зачем ты сделал DLL в виде OLE сервера?

Простого экспорта 1-й функции не хватило?

как получилось, так и сделал, там же написано first release))

ActiveX + ComObject
OleCtrls видел, но не обратил внимания.
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863482
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если предложите решение получше - не откажусь!
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863483
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mkr,

Per rectum ad astra. (c)
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863484
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mkrесли предложите решение получше - не откажусь!

"Простого экспорта 1-й функции не хватило?"
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863487
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
18.09.2019 17:53, rgreat пишет:

mkr>> если предложите решение получше - не откажусь!
> "Простого экспорта 1-й функции не хватило?"


Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863488
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Vcl.OleServer закомментирован, если что
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863566
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863682
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreat,

спасибо!
но у меня там, вроде, всё красивее. создал класс и посылай уведомления.
а в этом случае каждый раз дёргай TNotificationCenter.Create.
да и как сделать сквозную нумерацию уведомлений в случае с "экспортом 1-й функции"?
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863733
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да, второй вариант попроще в реализации)

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
library NotificationToastDll;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  System.SysUtils,
  System.Classes,
  System.Notification;

{$R *.res}

function ShowNotificationToast(const title, msg: WideString): HResult;  export;
var
  NotificationCenter: TNotificationCenter;
  Notification: TNotification;
begin
  NotificationCenter := TNotificationCenter.Create(nil);
  Notification := NotificationCenter.CreateNotification;
  try
    Notification.Name := 'Windows10Notification';
    Notification.Title := title;
    Notification.AlertBody := msg;

    NotificationCenter.PresentNotification(Notification);

    Result := S_OK;
  finally
    Notification.Free;
    NotificationCenter.Free
  end;
end;

exports ShowNotificationToast;

end.
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863763
sg729
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
mkrесли кому интересно github
Интересно, но..
Касперский ругается на NotificationToastExport.dll
Обнаружено: HEUR:Trojan-Banker.Win32.Danabot.gen
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863778
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sg729,
eset молчит.
значит HEUR:Trojan-Banker.Win32.Danabot.gen тоже написан на delphi и использует toast'ы
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863961
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sg729Интересно, но..
Касперский ругается на NotificationToastExport.dll
Обнаружено: HEUR:Trojan-Banker.Win32.Danabot.gen

проверил онлайн - тот же результат, попробую с тех. поддержкой разрулить
что самое интетерсное, в упрощённой реализации - всё ok.
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39863987
sg729
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
mkrsg729Интересно, но..
Касперский ругается на NotificationToastExport.dll
Обнаружено: HEUR:Trojan-Banker.Win32.Danabot.gen

проверил онлайн - тот же результат, попробую с тех. поддержкой разрулить
что самое интетерсное, в упрощённой реализации - всё ok.
Не парьтесь из-за пустяков, упрощенный вариант отлично работает, спасибо! -)
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39864199
mkr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sg729,

Это было ошибочное срабатывание.
Оно будет исправлено.
Благодарим Вас за помощь.

С уважением, Vyacheslav Goryachev, Вирусный аналитик
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39864571
Linux_64
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Это ?
...
Рейтинг: 0 / 0
Уведомления в Windows 10
    #39864579
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Рустам, поциент начинает расползаться...
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Уведомления в Windows 10
    #40011268
fireton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
mkr,

Падает этот второй вариант. Думаю из-за того, что передаётся строка в DLL. Если уведомление не успело «спрятаться», то при выходе из программы вылетает AV. Наверное, надо передавать PWideChar или как-то так.
...
Рейтинг: 0 / 0
43 сообщений из 43, показаны все 2 страниц
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Уведомления в Windows 10
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]