разными способами добавлял иконку в трей - как описано в "Delphi: WinAPI и системное программирование" и через компонент!

BaloonHint не отображается в XP SP2! ТОЛЬКО... издаётся звук шлепка... и (если стоит галка "автоматически скрывать панель задач"), панель появляется на указанное время...
Я не пробовал это делать в Xp или Xp SP1, но в Longhorn (Vista beta 1) всё работает!!!!!!!!!!!!!

балун вызываю так.... через компонент FWTRAYICON
FWTrayIcon1.ShowBalloonHint('Hello World', 'Уведомление', TFWBalloonHintStyle(bhsInfo), 10);
всё стандартно!

пробовал не черезкомпонент. создал иконку как описанно в "Delphi: WinAPI и системное программирование". Нашёл где-то описание структуры, или класса или функции... или всё вместе, и влепил в прогу...
вызов был ShowBalloonHint('Hello World', 'Уведомление', TFWBalloonHintStyle(bhsInfo), 10);
где ShowBalloonHint кажись была функция!

ситуация та же - BaloonHint не отображается в XP SP2! ТОЛЬКО... издаётся звук шлепка... и (если стоит галка "автоматически скрывать панель задач"), панель появляется на указанное время...
Я не пробовал это делать в Xp или Xp SP1, но в Longhorn (Vista beta 1) всё работает!!!!!!!!!!!!!

я разозлился и всё потер.... но! это мне нужно! может знает кто как написать этот долбаный балун хинт иконки в трее, чтобы он показывался как надо в системах класса NT, тоесть...
windows: 2000(sp1,sp2,sp2,sp4), xp (sp1,sp2), windows 200 server (all sp), windows 2003 server (all sp), windows Vista!

может у кого уже готовый пример есть?


Добавлено @ 13:16
у меня Д7, не в этом ли дело?

Попробуй компонент из RxLib. У меня подсказка нормально всплывает

Я пользуюсь компонентом CoolTrayIcon. Там все для этого есть. Если не найдешь, пиши - пришлю

Попробуй через WinApi создавать иконку и показывать от нее сообщение. Подробнее можешь прочитать тут: http://vingrad.ru/DELPHI-SYSTEM-002915

Вот, прикрепил тебе unit с основными функциями что бы было легче разбираться.

Это сообщение отредактировал(а) Poseidon - 22.10.2005, 14:26

Присоединённый файл ( Кол-во скачиваний: 41 )
 TrayIcon.pas 7,01 Kb

компанентом не пользуюсь, делаю ручками...работает нормально... здесь даже где-то пример был...воспользуйся поиском....

Цитата(Albinos_x @ 23.10.2005, 16:29)

здесь даже где-то пример был...воспользуйся поиском....

Ничем не нужно пользоватся. Ты видать имеешь ввиде вот эту мою статью. Я уже давал выше на нее ссылку. Так вот почитать её конечно стоит, для понимания. А вот воспользоваться ИМХО лучше тем юнитом, каторый я прикрепил выше. Там все сделано на основе той статьи. С русским описанием. Что не понятно, в РМ.

М	Albinos_x, спасибо за ответы, но немножко по четче давайте их пожалуйста. Если говорите, что пишите сами, то примерчик совсем не лишним был бы как вы это делаете

Цитата

Albinos_x, спасибо за ответы, но немножко по четче давайте их пожалуйста. Если говорите, что пишите сами, то примерчик совсем не лишним был бы как вы это делаете

Код

uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Menus, ShellAPI; const MyTrayIcon = WM_USER+1; type  TForm1 = class(TForm)    PopupMenu1: TPopupMenu;    ...  private    { Private declarations }    procedure MTIcon(var a: TMessage); message MyTrayIcon;  public    { Public declarations }  end; var  Form1: TForm1;  type TTimeoutOrVersion = record case Integer of 0: (uTimeout: UINT); 1: (uVersion: UINT); end; TNotifyIconDataEx = record cbSize: DWORD; hWnd: HWND; uID: UINT; uFlags: UINT; uCallbackMessage: UINT; hIcon: HICON; szTip: array[0..127] of AnsiChar;  dwState: DWORD; dwStateMask: DWORD; szInfo: array[0..255] of AnsiChar; TimeoutOrVersion: UINT;  szInfoTitle: array[0..63] of AnsiChar; dwInfoFlags: DWORD; guidItem: TGUID; end;        TBalloonTimeout = 10..30{seconds};        TBalloonIconType = (bitNone,    // нет иконки                       bitInfo,    // информационная иконка (синяя)                       bitWarning, // иконка восклицания (жёлтая)                       bitError);  // иконка ошибки (краснаа)  const    NIIF_NONE = $00000000;    NIIF_INFO = $00000001;    NIIF_WARNING = $00000002;    NIIF_ERROR = $00000003;    NIF_STATE = $00000008;    NIF_INFO = $00000010;    NIF_GUID = $00000020; ... var NID: TNotifyIconData; // обработка щелчков мыши procedure TForm1.MTIcon(var a: TMessage); var P:TPoint; begin case a.LParam of   WM_LBUTTONDBLCLK :  begin                       Show;                       end;   WM_RBUTTONDOWN   :  begin                       GetCursorPos(P);                       PopupMenu1.Popup(P.X,P.Y);                       end;     end; end; // процесс создания формы procedure TForm1.FormCreate(Sender: TObject); begin // невидимая форма Application.ShowMainForm:=false; // параметры иконки with NID do  begin  cbSize:= SizeOf(TNotifyIconData);  Wnd:=Handle;  uID:=1;  uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;  uCallbackMessage:=MyTrayIcon;  hIcon:=Application.Icon.Handle;  szTip:='Это я!!!';  end; // добавляем иконку   Shell_NotifyIcon(NIM_ADD,@NID); end; procedure TForm1.N1Click(Sender: TObject); begin Show; end; // событие завершение работы приложения procedure TForm1.FormDestroy(Sender: TObject); begin // уничтожаем иконку Shell_NotifyIcon(NIM_Delete,@NID); end; // функция создания сообщения из трея function MessWin(const Window: HWND; const IconID: Byte; const Timeout: TBalloonTimeout; const BalloonText, BalloonTitle: String; const BalloonIconType: TBalloonIconType): Boolean; const  aBalloonIconTypes : array[TBalloonIconType] of Byte = (NIIF_NONE, NIIF_INFO, NIIF_WARNING, NIIF_ERROR); var  NID_50 : TNotifyIconDataEx; begin  FillChar(NID_50, SizeOf(TNotifyIconDataEx), 0);  with NID_50 do begin    cbSize := SizeOf(TNotifyIconDataEx);    hWnd := Window;    uID := IconID;    uFlags := NIF_INFO;    StrPCopy(szInfo, BalloonText);     TimeoutOrVersion := Timeout * 1000;    StrPCopy(szInfoTitle, BalloonTitle);    dwInfoFlags := aBalloonIconTypes[BalloonIconType];   end{with};  Result := Shell_NotifyIcon(NIM_MODIFY, @NID_50);  end; // по какому-то событию показываем сообщение // например клику по форме procedure TForm1.FormClick(Sender: TObject); begin MessWin(Form1.Handle, 1, 10, 'Здесь мой текст', 'заголовок', bitWarning); end;

Что-то вообще тяжко с сообщением в трее...
По инету всего много, но что-то у меня не получается...
Использую CoolTrayIcon1...
Пишу

но выходит ошибка - ругается на тип bitInfo, что типа несоответствие типов TBalloonHintIcon и TBalloonIconType...

В FWTrayIcon оберни вызов Shell_NotifyIcon в Win32Check т.е. должно получиться:


Если что-то не так - то ты сразу увидишь причину ошибки.

Вот здесь
http://www.delphisources.ru/pages/sources/...t_trayicon.html
написано что ограничения у текста в трее у компонента FWTrayIcon 255 символов...мне нужно больше - около 700 символов не считая пробелов

Добавлено через 2 минуты и 59 секунд
и пытался его просто для эксперемента установить...сказал что нет фала ресурса

Это не ограничение компонента, это ограничение системы 

А ты качай его с родного сайта 
http://rouse.drkb.ru/components.php#fwtray

Эту ссылку я первым делом прошарил когда читал сообщение от 19.6.2007, 15:46.
В BDS открываю файл FWExtTrayOnce.dpk как проект.
Не находит ресурс файл FWExtTrayOnce.res. Типа пытается его пересоздать.
Потом начинаю компилировать и вот тут он не компилируется.

Ну если это ограничение системы тогда нужно подумать нужно ли мне это вообще...хотя чисто для практики стоит покопаться...

Перед тем как компилировать - нужно его собрать. Нажми Build первым делом.

Да это системное ограничение. Посмотреть можешь тут http://msdn2.microsoft.com/en-us/library/ms538121.aspx
Обрати внимание на размеры поллей в структуре.

Попробовал всё в 7-ке - прошло и без сборки...просто выдал какое-то предупреждение...но скомпилировать скомпилировал...
А в 2006 продолжает выдавать ту же самую ошибку при Build.



причём перекидывается на последний end из приведённого текста

Добавлено через 2 минуты и 50 секунд
и ещё говорит при этом что неизвестен идентификатор ListMeasureHeight, ListMeasureWidth, ListDrawValue