И еще для совместимости, если программу запустят на другой виндоус, в которой нет этой функциональности, то как разумнее сделать?
Код:
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.
Я вот так сделал, а то иначе твоя демка даже не хотела запускаться на ХР по понятным причинам.