| Цитата |
...
uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1},
{$R *.res}
begin
Application.Initialize;
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
...
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=false;
with NID do
begin
cbSize:= SizeOf(TNotifyIconData);
Wnd:=Handle;
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage:=MyTrayIcon;
hIcon:=Application.Icon.Handle;
szTip:='Дайте задание!!!';
end;
Shell_NotifyIcon(NIM_ADD,@NID);
end;
... |
|
