Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Приложение - Агент 


DelBoy   (2001-12-15 21:05) [0]

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



KilkennyCat   (2001-12-16 06:20) [1]

Очень просто. RxLib



DelBoy   (2001-12-16 12:05) [2]

Мм... не понял, можно с каким нибудь примером, просто RxLib мне ни о чем не говорит :(



Вадим   (2001-12-16 13:03) [3]

Юзай TRxTrayIcon из RxLib (доп. библиотека)



DelBoy   (2001-12-18 19:28) [4]

Ни чего не понимаю :(
А пример можно? :)



panov   (2001-12-18 20:50) [5]

Где есть ответ:
1. FAQ
2. Статьи



Dimaond Cat   (2001-12-19 01:18) [6]

Есть такая штука как RxLib, это сборище компонентов которых нет (или не удачны) в стандартной поставке дельфи, вот о чем говорилось выше

но если не хочется пользоваться компонентами то вот работающий кусок кода

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,
shellapi, Menus, ExtCtrls, StdCtrls;
// {shellapi добавлено вручную}
// Добавляем наше сообщение
const
wm_IconMessage = wm_User+12;

type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
N1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure N1Click(Sender: TObject);
private
nid: TNotifyIconData; // Подключаем структуру значка
{ Private declarations }
public
// Проседура обрабатывающая наше сообщение от значка
procedure IconTray (var Msg: TMessage);
message wm_IconMessage;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.FormCreate(Sender: TObject);
begin
Icon.Handle :=Application.Icon.Handle; // Загружаем изображенияе значка
nid.cbSize := sizeof (nid);//Задаем размер значка соответсвенный его структуре
nid.wnd := Form1.Handle; // Кто обрабатывает сообщения от значка
nid.uID := 1; // icon ID
nid.uCallBAckMessage := wm_IconMessage; // Задаем сообщение которое посылает наш значек обработчику когда над ним происходят действия
nid.hIcon := Icon.Handle;
nid.szTip := "Всплывающая Надпись";
nid.uFlags := nif_Message or
nif_Icon or nif_Tip; //Задаем флаги
Shell_NotifyIcon (NIM_ADD, @nid); //Собственно включаем значек

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
//При закрытии программы значек следует убить
nid.uFlags := 0;
Shell_NotifyIcon (NIM_DELETE, @nid);
end;

procedure TForm1.IconTray (var Msg: TMessage);
var
Pt: TPoint;
begin
GetCursorPos (Pt);
//Получаем и обрабатываем сообщение от значка
if Msg.lParam = WM_RBUTTONUP then
begin
SetForegroundWindow (Form1.handle);
PopupMenu1.Popup (Pt.x, Pt.y);
end;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
//Делаем нечто
end;

end.



Just   (2002-02-12 16:03) [7]

Почему не работает?



Just   (2002-02-12 16:21) [8]

Работает ! Спасибо!




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.039 c
4-33029           MCi                   2002-02-07 09:19  2002.04.11  
Как получить права на действия в W2k


1-32767           KvORubin              2002-03-31 06:27  2002.04.11  
Как корректно воспроизвести WAV файл (Без TMediaPlayer) ???


3-32694           Serg___               2002-03-21 10:46  2002.04.11  
ADO vs BDE


1-32903           PlaZZma               2002-03-29 16:52  2002.04.11  
Как избавиться от мигания Image?


6-32916           j21                   2002-01-26 18:37  2002.04.11  
Inet