請問要如何讓BCB可以最小化到右下角的區域通知裡呢?

我有找到一段程式碼,但不知是否跟著有相關,重點是我看不太懂delphi,不知道在BCC怎寫~_||

const
WM_Notify = wm_User 1000;
private
//系统托盘处理过程
procedure TrayIcon(var message:TMessage);message WM_notify;
public
{ Public declarations }
end;
var
sn: TNotifyIconDataA;


implementation

procedure TForm1.N4Click(Sender: TObject);
begin
//最小化到系统通知区域
sn.cbSize :=sizeof(sn);
sn.Wnd :=form1.Handle;
sn.uID :=0;
sn.uFlags :=NIF_ICON or NIF_TIP or NIF_MESSAGE ;
sn.uCallbackMessage :=wm_notify ;
sn.hIcon :=application.Icon.Handle;
sn.szTip :='hello';
Shell_NotifyIcon(nim_add,@sn);
end;

procedure tform1.TrayIcon(var message : tmessage);
var
Cp: TPoint;
Begin
Case message.LParam of
//右键单击
WM_RButtonDown: begin
GetCursorPos(cp);
popupmenu1.Popup(cp.x,cp.y);
PostMessage(self.Handle ,WM_NULL, 0, 0 );
end;
End;
End;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//删除系统通知区域图标
Shell_NotifyIcon(nim_delete,@sn);
end;

在Sample元件盤內的TrayIcon物件(對象)可達到你所要的功能

至於如何使用，請善用站內的搜尋功能唷！

編輯記錄