как свернуть программу к часикам?

[Илюха]

Как свернуть программу к часикам(SysTray)? я перечитал много статей но там всё сложно.
Если есть какой то код чтобы менше пичатать и попроще

[Xandr]

Компонент держи просто до улыбки.

[SkyM@n]

Сообщение от Илюха

Как свернуть программу к часикам(SysTray)? я перечитал много статей но там всё сложно.
Если есть какой то код чтобы менше пичатать и попроще

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

зы. учи олбанский!

[JTG]

Разбаловали молодое поколение компонентами... брр.
зы. учи олбанский и апи

[Stilet]

Илья, ниче там сложного :

unit Unit1;

interface

uses crtfox, ComObj, activex, ShellApi, shlobj, registry,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ValEdit, StdCtrls, Menus, DdeMan;


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

TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
Hide1: TMenuItem;
Quit1: TMenuItem;
Show1: TMenuItem;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure WMICON(var msg: TMessage); message WM_USER + 123;
procedure Hide1Click(Sender: TObject);
procedure Show1Click(Sender: TObject);
procedure Quit1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var nidata :TNotifylconData; f:thandle; re:_OFSTRUCT;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMICON(var msg: TMessage);
var P : TPoint;
begin
case msg.LParam of
WM_LBUTTONDOWN:
begin
GetCursorPos(p);
SetForegroundWindow(Application.Mai nForm.Handle);
PopupMenu1.Popup(P.X, P.Y);
end;
WM_LBUTTONDBLCLK :;// RestoreItemClick(Self);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var e:cardinal;

begin
caption:=inttostr(GetUserDefaultLan gID);
//заполняем поля описания иконки
with nidata do
begin
cbSize := SizeOf(TNotifylconData) ;
Wnd := Self.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_USER + 123;
hlcon := Application.Icon.Handle;
szTip :='Подсказка';
end;
//и добавляем ее в Трей
Shell_NotifyIcon(NIM_ADD, @nidata);

end;

procedure TForm1.Hide1Click(Sender: TObject);
begin
form1.Hide;
end;

procedure TForm1.Show1Click(Sender: TObject);
begin
form1.Show;
end;

procedure TForm1.Quit1Click(Sender: TObject);
begin
close;
end;

end.

Или юзай соответствующие компоненты...

[Илюха]

Спасибо!!!

[zonclayv]

А как сделать чтобы программа сразу после запуска находилась в трее?

[DeDoK]

в OnCreate это пропиши. или пользуй CoolTrayICon. тада в OnCreate пишеш CoolTrayIcon.HideMainForm; и все

[apx_angel]

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

Компонент держи просто до улыбки.

огромное спасибо за компонент