Сворачивание программы в трей

[Baaandit]

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

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi, StdCtrls ;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure ActionIcon(n:Integer;Icon:TIcon);
    procedure FormCreate(Sender: TObject);
    Procedure OnMinimizeProc(Sender:TObject);
    Procedure MouseClick(var Msg:TMessage); message WM_USER+1;
    procedure Button1Click(Sender: TObject);
      private
    { Private declarations }
  public

  protected

  Procedure WindowMessage(Var Msg:TMessage); message WM_SYSCOMMAND;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ActionIcon(n:Integer;Icon:TIcon);
Var Nim:TNotifyIconData;
begin
With Nim do // 
Begin
cbSize:=SizeOf(Nim); //
Wnd:=Form1.Handle; // 
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
hicon:=Icon.Handle; //
uCallbackMessage:=wm_user+1;
szTip:='Ñîîáùåíèå ïîÿâëÿþùååñÿ ïðè íàâåäåíèè';
End;
Case n OF //
1: Shell_NotifyIcon(Nim_Add,@Nim);
2: Shell_NotifyIcon(Nim_Delete,@Nim);
3: Shell_NotifyIcon(Nim_Modify,@Nim);
End;
end;

Procedure TForm1.WindowMessage (Var Msg:TMessage);
Begin
IF Msg.WParam=SC_MINIMIZE then Begin
ActionIcon (1,Application.Icon); // 
ShowWindow(Handle,SW_HIDE); // 
ShowWindow(Application.Handle,SW_HIDE); // 

End else inherited;

End;

Procedure TForm1.OnMinimizeProc(Sender:TObject);
Begin
PostMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
End;


procedure TForm1.FormCreate(Sender: TObject);
begin
Application.onMinimize:=OnMinimizeProc;
end;

procedure TForm1.MouseClick(var Msg:TMessage);
Var p:tpoint;
begin
GetCursorPos(p); // 
Case Msg.LParam OF // 
WM_LBUTTONUP,WM_LBUTTONDBLCLK: 
Begin 
ActionIcon (2,Application.Icon); // 
ShowWindow(Application.Handle,SW_SHOW); //
ShowWindow(Handle,SW_SHOW); //
End;
End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.ActionIcon(1,);
end;

[BOBAH13]

Если у окна есть стиль WS_MINIMIZEBOX, тогда можно

PostMessage(Handle, WM_SYSCOMMAND, SC _MINIMIZE, 0);

[Baaandit]

Мне хотелось бы понять этот код, в нем еще есть возможность при нажатие на иконку в трее-развертывание программы в первоначальный вид. Не понимаю как применить эти процедуры.

[Johnson]

быть может не совсем правильно понял, что требуется автору... есть иконка в трее, нужно, чтоб форма "сворачивалась в трей" при клике на неё и разворачивалась обратно?
Если так, то просто на OnClick или OnDubleClick событие вешаете примерно такой код:

procedure TVKmain.TrayIconLButtonDblClick(Sender: TObject);
begin
  if IsWindowVisible(FindWindow('TVKmain', PChar(VKform.Caption))) then begin
	    Application.Minimize;
      ShowWindow( Application.Handle, sw_Hide );
  end else begin
      ShowWindow( Application.Handle, sw_Restore );
      SetForegroundWindow( Application.Handle );
  end;
end;

помеченое красным - заменить на название своего класса и своей формы соответственно...

PS: если честно в коде не разбирался, но не совсем понял, зачем мудрить с мессагами для такой простой задачи... поправьте, если не прав...

[FaTaL]

Да просто используйте TTrayIcon и никаких проблем у Вас не возникнет.

[Johnson]

или TRzTrayIcon из комплекта Raise Component Pack - он немного "продвинутее", но смысл тот же...

[BOBAH13]

Да давайте для двух строк кода, понатыкаем компонент жесть...

все просто, как сворачивать написано, а как ввостановить, так это, ShowWindow(WindowHandle, SW_RESTORE); да и все, остальное за вас Windows сделает

[FaTaL]

Компонента входит в базовый комплект RAD Studio 2010

[Baaandit]

procedure TVKmain.TrayIconLButtonDblClick(Sender: TObject);
begin
  if IsWindowVisible(FindWindow('TVKmain', PChar(VKform.Caption))) then begin
	    Application.Minimize;
      ShowWindow( Application.Handle, sw_Hide );
  end else begin
      ShowWindow( Application.Handle, sw_Restore );
      SetForegroundWindow( Application.Handle );
  end;
end;

Спасибо за код. Но он скрывает программу в диспетчер задач в процессы. А мне надо что программа скрывалась в 'значки где часы'.Наверно надо использовать процедуру TForm1. WindowMessage (Var Msg:TMessage);.Только какой параметр в ней указать.

[raxp]

Но он скрывает программу в диспетчер задач в процессы. А мне надо что программа скрывалась в 'значки где часы'.Наверно надо использовать процедуру TForm1. WindowMessage (Var Msg:TMessage);.Только какой параметр в ней указать.

ну у вас-же все есть, посмотрите свой 1-пост, вам надо к процедуре скрытия (свертывания) всего-лишь добавить иконку в трей через- ActionIcon(n:Integer;Icon:TIcon)