Иконка приложения в панели задач

[Кристинка89]

Всем приветики!!! Я пишу программу с регистрацией...есть форма для ввода логина и пароля после чего открывается основная форма.... Так вот все работает но иконка программы в панели задач не появляется... ПОМОГИТЕ ИСПРАВИТЬ ЭТО Вот мой проект

[volod3000]

Как помесить свою иконку на панель задач

Вот пример :

uses
 ..., ShellAPI;

type
  TForm1 = class(TForm)
.................................
.................
  end;

TNotifyIconData = record
  cbSize: DWORD;
  Wnd: HWND;
  uID: UINT;
  uFlags: UINT;
  uCallbackMessage: UINT;
  hIcon: HICON;
  szTip: array [0..63] of AnsiChar;
end;

.......................

mplementation

{$R *.dfm}


procedure TForm1.WMTaskBarIcon(var M: TMessage);
begin
  // Здесь M.WParam равно uID иконки, пославшей сообщение
  // M.LParam может принимать одно из значений: WM_LBUTTONDOWN,
  // WM_LBUTTONUP, WM_RBUTTONDOWN, WM_RBUTTONUP, WM_MOUSEMOVE.
  // Я надеюсь, назначение этих сообщений очевидно... :)
  if (M.WParam = 1) and (M.LParam = WM_LBUTTONDOWN) then
    MessageBeep(word(-1));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  NotifyIconData: TNotifyIconData;
begin
  with NotifyIconData do
  begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := Handle;
    uID := 1;
    uFlags := NIF_ICON or NIF_TIP;
    uCallbackMessage := WM_TASKBARICON;
    hIcon := Application.Icon.Handle;
    szTip := 'Пример иконки на панели задач';
  end;
  Shell_NotifyIcon(NIM_ADD, @NotifyIconData);
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  NotifyIconData: TNotifyIconData;
begin
  with NotifyIconData do
  begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := Handle;
    uID := 1;
  end;
  Shell_NotifyIcon(NIM_DELETE, @NotifyIconData);
end;

[ZuBy]

http://delphidevelop.ru/publ/rabotat...ntov/2-1-0-273

[Кристинка89]

Уважаемый volod3000, Вы не могли бы сами добавить иконку в мой проект? я попробовала и не получилось, я не до конца поняла как добавлять....если вы добавите я бы посмотрев код поняла принцип... вот добавила проект и иконку которую надо добавить

[ZvEr_HaCkEr]

А не легче взять CoolTrayIcon?

[Кристинка89]

и как его использовать?

у меня Delphi XE и там не получается что-то

[ZvEr_HaCkEr]

Что именно не получается? Установить?? Если так, то показывайте код ошибки.

[Кристинка89]

мне бы вручную сделать как товарищ volod3000 написал, только не до конца разобралась и там тоже

[volod3000]

Лови ответ, думаю теперь все будет понятно:

[D-mon]

Начиная помоему с Delphi 2010 есть такой стандартный компонент как TTrayIcon. Очень прост в использовании. Поэксперементируйте с ним.