var
Tray: TNotifyIconData;
begin
with Tray do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := AllocateHWnd(Form1.TrayMsg);
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE;
hIcon := Icon.Handle;
uCallBackMessage := WM_USER + 1025
end;
Shell_NotifyIcon(NIM_ADD, Addr(Tray));
Hide // скрываем форму
end;
Как забрать прогу из таскбара
Как забрать прогу из таскбара и поместить ее в трей ? И еще: как зделать, если прогу закрыть откриваэться нужная форма, но главная не закриваэтся ?
Цитата:
Originally posted by malush
Как забрать прогу из таскбара и поместить ее в трей ?
Код:
И еще: как зделать, если прогу закрыть откриваэться нужная форма, но главная не закриваэтся ?
В обработчике формы находишь OnCloseQuery
Там делаешь
Код:
Form2.ShowModal;
CanClose := False
CanClose := False
Цитата:
Originally posted by malush
Как забрать прогу из таскбара
Как забрать прогу из таскбара
Код:
Application.ShowMainForm := false;