Как поместить программу в tray и запускать

[Johnt]

Люди!! Как поместить программу в tray и запускать при перехвате API сообщения выключения компьютера.. ктонить скиньте код!!!!

[Трофимов Александр]

Чтобы поместить в трей даже компонент есть, помещаешь на форму, и при сворачивании программы, она помещается у часов или самому хочется написать?

[Teen4jump]

Как компонент называется???

[Квэнди]

Delphi 2006 - TtrayIcon

[Teen4jump]

В какой он категории, но возможно у меня нет этого компонента или он называется по другому т.к у меня Delpi 2005;

[Aslan]

Вот пример отрывка программы:
uses
ShellAPI; { добавить }
const
WM_ICONNOTIFY = WM_USER+1234;
type
TFormJList = class(TForm)
procedure WMIconNotify(var Message : TMessage); Message WM_ICONNOTIFY;
private
FHI : TIcon;
FNID : PNotifyIconData;
public
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FHI := TIcon.Create;
FHI.Handle := LoadIcon(HInstance,'TRAYICON'); { имя картинка в файле ресурсов }
New(FNID);
FNID^.cbSize := sizeof(FNID^);
FNID^.Wnd := Form1.Handle;
FNID^.uID := 1;
FNID^.uCallbackMessage := WM_ICONNOTIFY;
FNID^.HIcon := FHI.Handle;
for I := 0 to 63 do
if (I + 1) <= Length(Application.Title) then
if Copy(Application.Title, I + 1, 1) <> '' then
FNID^.szTip[I] := Application.Title[I + 1]
else
FNID^.szTip[I] := #0
else
FNID^.szTip[I] := #0;
FNID^.uFlags := nif_Message or nif_Icon or nif_Tip;
Shell_NotifyIcon(NIM_ADD, FNID);
end;
procedure TForm1.WMIconNotify;
var
PT : TPoint;
begin
case Message.lParam of
WM_RBUTTONDOWN:
begin
GetCursorPos(PT);
SetForegroundWindow(Handle);
PopupMenu1.Popup(PT.X, PT.Y); { меню сами добавите }
end;
end;
end;

[_SERGEYX_]

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

Угу, такую штуку обычно делают на случай налоговой проверки. Например, при выключении компа зашифровать данные. Но... проверяющие любят выдергивать комп из розетки, забирать винчестер и такой номер не проходит.

[Трофимов Александр]

http://www.x-sfera.de/index.php?opti...tartdown&id=26

[ZhekON]

Как поместить программу в tray

зайди по этой ссылке и найдёш о компоненте который работает с треем :http://programmersforum.ru/showthread.php?t=5470

[masterdela]

Сообщение от Teen4jump

В какой он категории, но возможно у меня нет этого компонента или он называется по другому т.к у меня Delpi 2005;

В Additional, называется TTrayIcon. Кидаешь его на форму, свойство Visible делаешь в true, и всё. В трее у тебя будет иконка программы, или в свойстве Icon можешь задать свою.