Трей

[ZvEr_HaCkEr]

Всем добрых суток! Возникла необходимость сворачивания программы в трей.Пробовал так, но всегда срабатывает Procedure WMGetSysCommand(var Message :TMessage); message WM_SYSCOMMAND;

 protected
    //Здесь "ловится" событие минимизации окна
    Procedure WMGetSysCommand(var Message :TMessage); message WM_SYSCOMMAND;
  private
    { Private declarations }
  public
    { Public declarations }
     autoClose:       Boolean;    // Авто-закрывать после срабатывания
    procedure WMICON(var msg: TMessage); message WM_MYICONNOTIFY; //Нажатие кнопки в Tray
    procedure RestoreMainForm;
    procedure HideMainForm;
    procedure CreateTrayIcon(n:Integer);
    procedure DeleteTrayIcon(n:Integer);
  end;

var
  Form1: TForm1;
  Memory: string;    
  exePath: string;    
  restartLoad: Boolean;  
implementation

uses Unit2;

{$R *.dfm}
procedure trayPopup(p: Tpoint);
begin
GetCursorPos(p);
SetForegroundWindow(Application.MainForm.Handle);
Form1.trayMenu.Popup(P.X, P.Y);
end;

procedure TForm1.WMICON(var msg: TMessage); //Срабатывание меню в Tray
var P : TPoint;
begin
 case msg.LParam of             // обработка обратных сообщений
 WM_LBUTTONUP: trayPopup(p);    //по нажатию левой клавиши мыши
 WM_RBUTTONUP: trayPopup(p);    //по нажатию правой клавиши мыши
 WM_LBUTTONDBLCLK : begin       //Двойной щелчок, восстанавливаем окно и убираем значок
      deleteTrayIcon(1);
      RestoreMainForm;
      end;
 end;    
end;

procedure TForm1.DeleteTrayIcon(n:Integer);
var nidata : TNotifyIconData;
begin
 with nidata do
  begin
   cbSize := SizeOf(TNotifyIconData);
   Wnd := Self.Handle;
   uID := 1;
  end;
  Shell_NotifyIcon(NIM_DELETE, @nidata);   // удаление значка
end;

procedure TForm1.CreateTrayIcon(n:Integer);
var nidata : TNotifyIconData;
onOff:     String;
begin
 with nidata do
  begin
   cbSize := SizeOf(TNotifyIconData);
   Wnd := Self.Handle; //HWND
   uID := 1;          // номер значка
   uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; //обрабатываемые флаги
   uCallBackMessage := WM_MYICONNOTIFY;
   hIcon := Application.Icon.Handle;  
   StrPCopy(szTip,onOff+'Моя прграмма');
  end;
  Shell_NotifyIcon(NIM_ADD, @nidata);    
end;

procedure TForm1.HideMainForm;
begin //при сокрытии окна
  Application.ShowMainForm := False;
  ShowWindow(Application.Handle, SW_HIDE);
  ShowWindow(Application.MainForm.Handle, SW_HIDE);
end;

procedure TForm1.RestoreMainForm;
var i,j : Integer;
begin
  Application.ShowMainForm := True;
  ShowWindow(Application.Handle, SW_RESTORE);
  ShowWindow(Application.MainForm.Handle, SW_RESTORE);
    for I := 0 to Application.MainForm.ComponentCount -1 do
      if Application.MainForm.Components[I] is TWinControl then
        with Application.MainForm.Components[I] as TWinControl do
          if Visible then
          begin
            ShowWindow(Handle, SW_SHOWDEFAULT);
            for J := 0 to ComponentCount -1 do
              if Components[J] is TWinControl then
                ShowWindow((Components[J] as TWinControl).Handle, SW_SHOWDEFAULT);
          end;
end;

Procedure TForm1.WMGetSysCommand(var message : TMessage);
begin
 inherited; //обработка минимизирвания окна
 if (Message.wParam=SC_MINIMIZE) then
 begin
       HideMainForm;
       CreateTrayIcon(1);
       end;
       end;

исправте косяк пожалуйста!Зарание спасибо!!!

[DIgorevich]

А если просто скрыть окно?

procedure TForm1.HideMainForm;
begin //при сокрытии окна
  Application.ShowMainForm := False;
  CreateTrayIcon(1);
  form1.hide;
end;

Вместо WMGetSysCommand

[ZvEr_HaCkEr]

не надо чтоб она в трей сворачивалась как Download Master или Агент

[DIgorevich]

Ну а с чего ты решил, что она не будет этого делать?

[ZvEr_HaCkEr]

Ведь делает на редкоиногда процедура не срабатывает

[DIgorevich]

а еще раз можно код посмотреть теперешний?

[ZvEr_HaCkEr]

в смысле весь проект?

[DIgorevich]

в смысле, как в первом посте

[ZvEr_HaCkEr]

смотрите во вложение

[Kotofff]

А зачем столько мучений, вопросов, порожденных непонятками типа "ведь делает но редко", когда существуют уже проверенные и объезженные компоненты работы с треем (CoolTrayIcon, к примеру), используя которые не отвлекаешься на мелочи, а делаешь программу ...