VPF::WindowsXp - Форум программистов

Rution

Дата 20.6.2004, 21:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 17.3.2004

Репутация: нет
Всего: нет

Помогите.
Вопрос: с помощью чего или как сделать сообщение в tray( как при подключение USB).

Illusion Dolphin

Дата 20.6.2004, 22:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Где-то я это сморганил, но проверить не успел... (если я прально понял вопрос, конечно...)

Цитата

...
interface

uses ShellApi;

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; // Previously 64 chars, now 128

dwState: DWORD;
dwStateMask: DWORD;
szInfo: array[0..255] of AnsiChar;
TimeoutOrVersion: TTimeoutOrVersion;
szInfoTitle: array[0..63] of AnsiChar;
dwInfoFlags: DWORD;
{$IFDEF _WIN32_IE_600}
guidItem: TGUID;
{$ENDIF}
end;
TBalloonHintIcon = (bitNone, bitInfo, bitWarning, bitError);
TBalloonHintTimeOut = 10..60;

const
NIIF_NONE = $00000000;
NIIF_INFO = $00000001;
NIIF_WARNING = $00000002;
NIIF_ERROR = $00000003;

NIF_STATE = $00000008;
NIF_INFO = $00000010;
NIF_GUID = $00000020;
...

implementation

function HideBalloonHint: boolean;
var NID: TNotifyIconDataEx;
begin
NID.cbSize := SizeOf(NID);
NID.hWnd := zMain.wnd;
NID.uID := 100;
NID.uFlags:=NIF_INFO;
NID.szInfo:='';
Result:=Shell_NotifyIcon(NIM_MODIFY, @NID);
end;

function ShowBalloonHint(Title: String; Text: String;
IconType: TBalloonHintIcon; TimeoutSecs: TBalloonHintTimeOut): boolean;
const
aBalloonIconTypes: array[TBalloonHintIcon] of Byte =
(NIIF_NONE, NIIF_INFO, NIIF_WARNING, NIIF_ERROR);
var NID: TNotifyIconDataEx;
begin
HideBalloonHint;
NID.cbSize := SizeOf(NID);
NID.hWnd := zMain.wnd;
NID.uID := 100;
NID.uFlags := NIF_INFO;

StrLCopy(NID.szInfo, PChar(Text), SizeOf(NID.szInfo)-1);
StrLCopy(NID.szInfoTitle, PChar(Title), SizeOf(NID.szInfoTitle)-1);

NID.TimeoutOrVersion.uTimeout := TimeoutSecs * 1000;
NID.dwInfoFlags := aBalloonIconTypes[IconType];
Result:=Shell_NotifyIcon(NIM_MODIFY, @NID);
end;

...

//где-то в проге пишем
ShowBalloonHint('my cool hint','это мой куульный балонный хинт ',bitInfo,30);

вообще-то я этот код отсылал Song'у, но видимо у него или времени нет в FAQ его поместить - или он (код) оказывается отстойный

зы: тока не надо приписывать мне создание TNotifyIconDataEx - эт я выдернул (честно стырил) из компонента TCoolTrayIcon

Добавлено в 15:06
код видимо хреново читается (даже для пишущих на Дельфях) - но эт не я виноват - эт пробелы в начале строк на сервере удаляются...

Добавлено в 15:09
а, чуть было не забыл Show/HideBalloonHint - надо пользовать с иконками в трэе созданными с пом. ф-ции Shell_NotifyIcon() - т.к. приведенный код всего лишь модифицирует эти иконки...

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

StayAtHome

Дата 21.6.2004, 00:09 (ссылка)

(нет голосов)

Загрузка ...

Домосед

Профиль
Группа: Участник
Сообщений: 456
Регистрация: 26.1.2004
Где: Украина

Репутация: 1
Всего: 16

Кстати, а эта вещь есть в DRKB?

Illusion Dolphin

Дата 21.6.2004, 09:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Я там этого не видел и по поиску там ничего не нашлось

...

--------------------

iskatel2

Дата 27.6.2006, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 11.5.2006
Где: 58 RU

Репутация: нет
Всего: нет

подскажите в чем ощибка?
вот код программы которая по теории при нажатии левой кнопки мыши на своей иконке
в области трея должна показывать Balloon но по неизвестной мне причине этого не делает!

Код


unit Unit1;

interface

uses
  Windows, ShellApi, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  Forms, Dialogs, Menus;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    Exit: TMenuItem;
    procedure ExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure WMSysCommand(var Msg: TWMSysCommand);    message WM_SysCommand;
    procedure WMShowWindow(var Msg: TWMShowWindow);    message WM_ShowWindow;
     { Private declarations }
  public
    { Public declarations }
  end;

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..63] of AnsiChar; // Previously 64 chars, now 128
    dwState: DWORD;
    dwStateMask: DWORD;
    szInfo: array[0..255] of AnsiChar;
    TimeoutOrVersion: TTimeoutOrVersion;
    szInfoTitle: array[0..63] of AnsiChar;
    dwInfoFlags: DWORD;
    {$IFDEF _WIN32_IE_600}
    guidItem: TGUID;
    {$ENDIF}
    end;

  TBalloonHintIcon = (bitNone, bitInfo, bitWarning, bitError);
  TBalloonHintTimeOut = 10..60;

  const
    NIIF_NONE = $00000000;
    NIIF_INFO = $00000001;
    NIIF_WARNING = $00000002;
    NIIF_ERROR = $00000003;
    NIF_STATE = $00000008;
    NIF_INFO = $00000010;
    NIF_GUID = $00000020;

var
  Form1: TForm1;
  NID:_NOTIFYICONDATA;
  pintr:Pointer;
  hide_bol:Boolean;

implementation

{$R *.dfm}

procedure AddTrayIcon();
begin
  hide_bol:=true;
  ShowWindow(form1.Handle, SW_HIDE);
  PostMessage(Application.Handle,WM_SHOWWINDOW,0,SW_PARENTCLOSING);
  Shell_NotifyIcon(NIM_ADD, pintr);
end;

//********* Ïðÿ÷åì Balloon*****************************************

function HideBalloonHint: boolean;
var NIDEx: TNotifyIconDataEx;
begin
  NIDEx.cbSize := SizeOf(NIDEx);
  NIDEx.hWnd := FindWindow('TForm1','Balloon Systray');
  NIDEx.uID := 100;
  NIDEx.uFlags:=NIF_INFO;
  NIDEx.szInfo:='';
Result:=Shell_NotifyIcon(NIM_MODIFY, @NIDEx);
end;

//********* Ïîêàçûâàåì Balloon*****************************************

function ShowBalloonHint(Title: String; Text: String;
IconType: TBalloonHintIcon; TimeoutSecs: TBalloonHintTimeOut): boolean;
const
  aBalloonIconTypes: array[TBalloonHintIcon] of Byte =
    (NIIF_NONE, NIIF_INFO, NIIF_WARNING, NIIF_ERROR);
var
  NIDEx: TNotifyIconDataEx;
begin
//  HideBalloonHint;
  NIDEx.cbSize := SizeOf(NIDEx);
  NIDEx.hWnd := nid.Wnd {FindWindow('TForm1','Balloon Systray')};
  NIDEx.uID := NID.uID {100};
  NIDEx.uFlags := NID.uFlags;
  NIDEx.hIcon := NID.hIcon;
  NIDEx.uCallbackMessage := WM_SHOWWINDOW;
  NIDEx.szTip := 'Balloon SysTrayArea programm';
  StrLCopy(NIDEx.szInfo, PChar(Text), SizeOf(NIDEx.szInfo)-1);
  StrLCopy(NIDEx.szInfoTitle, PChar(Title), SizeOf(NIDEx.szInfoTitle)-1);
  NIDEx.TimeoutOrVersion.uTimeout := TimeoutSecs * 1000;
  NIDEx.dwInfoFlags := aBalloonIconTypes[IconType];
  Result:=Shell_NotifyIcon(NIM_MODIFY, @NIDEx);
end;

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType =  SC_ICON then AddTrayIcon()
    else inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  pintr:=@NID;
  NID.cbSize:=1024;
  NID.Wnd:=FindWindow('TForm1','Balloon Systray');
  NID.uID:=Application.Handle;
  NID.hIcon:=form1.Icon.Handle;
  NID.uFlags:=$7;  { $7 or 0111b = NIF_MESSAGE, NIF_ICON, NIF_TIP}
  NID.uCallbackMessage:=WM_SHOWWINDOW; {WM_GETMINMAXINFO}
  NID.szTip:='Balloon SysTrayArea programm';
//********************************************************
end;

procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
var
  pnt:TPoint;
begin
  case Msg.Status of
    $202 : if hide_bol then
            ShowBalloonHint('BALLOON','Âîò îí ß!!',bitInfo,30);
    $205 : begin
            GetCursorPos(pnt);
            PopupMenu1.Popup(pnt.X,pnt.Y);
           end
    else inherited;
  end;
end;

procedure TForm1.ExitClick(Sender: TObject);
begin
if hide_bol then
  begin
  Shell_NotifyIcon(NIM_DELETE,pintr);
  ShowWindow(form1.Handle, SW_SHOW) ;
  PostMessage(Application.Handle,WM_SHOWWINDOW,1,SW_PARENTOPENING);
  end;
Application.Terminate;
end;

end.

Yanis

Дата 27.6.2006, 21:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Rution @ 20.6.2004, 22:21

)

Помогите.
Вопрос: с помощью чего или как сделать сообщение в tray( как при подключение USB).

http://vingrad.ru/DELPHI-DLP-000922

Цитата(StayAtHome @ 21.6.2004, 01:09

)

Кстати, а эта вещь есть в DRKB?

Есть.

Это сообщение отредактировал(а) Yanis - 27.6.2006, 21:34

--------------------

*щёлк*

Poseidon

Дата 27.6.2006, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

http://vingrad.ru/DELPHI-DLP-000647

http://vingrad.ru/DELPHI-SYSTEM-002915 (для кого писал?)

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »