API高手请进，如何实现把运行的程序最小化到托盘区 ( 积分: 100 )

Actual Windows Menu是一款Windows辅助工具，它在程序窗口的标题栏上添加了几个新的按钮，包括最小化窗口到系统托盘、卷起/打开（缩成只有标题栏）、窗口总在最前面、透明窗口（http://www.skycn.com/soft/29979.html） 这样的功能用DELPHI如何实现？

[]爱莫能助

标题栏按钮找找jedi套件
最小化到任务栏更容易，有TrayIcon套件

smithcouple 我的问题不是控制自己的程序，而是控制其他运行的程序。

最小化到托盘的程序多的是，去搜一下就有了

首先必须找到该程序的 Handle

easy
1 首先找到该程序的句柄
2 放松最小化的消息
procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
h:= FindWindow(nil,pchar('你程序运行是的窗体名称));
if h<> null then
PostMessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
end;

你可以直接用皮肤控件实现,不用写代码

哦,原来是托盘,不是最小化;
这样的代码网上多的是
unit unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Forms, //Dialogs,
StdCtrls, Menus, Controls, ShellApi;
//加上ShellApi
const
{自定义消息，当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}
MYTRAY_MESSAGE = WM_USER + 100;
//托盘图标返回消息
type
TMainForm = class(TForm)
TrayPopMenu: TPopupMenu;
pop1: TMenuItem;
pop2: TMenuItem;
N3: TMenuItem;
popExit: TMenuItem;
//窗口事件
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
//弹出菜单事件
procedure popExitClick(Sender: TObject);
private
{ Private declarations }
TrayIconData : TNotifyIconData;
//定义托盘图标结构
//托盘消息处理事件
procedure MyTrayMessage(var message:TMessage);message MyTRAY_MESSAGE;

public
{ Public declarations }
end;

var
MainForm: TMainForm;
implementation
{$R *.DFM}

// 窗口事件
//----------------------------------------------------------------
procedure TMainForm.FormCreate(Sender: TObject);
{var
ZAppName: array[0..127] of char;
Hold: String;
Found: HWND;
}
begin
//建立托盘图标
TrayIconData.cbSize := sizeof(TrayIconData);
//TrayIconData变量的字节数
TrayIconData.Wnd := Handle;
//主窗口句柄
TrayIconData.uID := 1;
//内部标识，可设为任意数
TrayIconData.hIcon := Icon.Handle;
//要加入的图标句柄，可任意指定，此处为在Tform中Icon属性中指定的图标
//TrayIconData.hIcon := Application.Icon.Handle;
//此句使用了程序的图标，和上句程序有区别，下句亦可，但推荐使用上句，这样图标加
//入到托盘中时图标不会走样。
//TrayIconData.hIcon := LoadIcon(0,IDI_APPLICATION);
TrayIconData.szTip := '系统托盘示例程序';
// 图标的提示信息，即黄色的Hint
TrayIconData.uCallbackMessage := CDROMTRAY_MESSAGE;
//回调函数消息
TrayIconData.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
//指明哪些字段有效

{将程序的窗口样式设为TOOL窗口，可避免在任务条上出现}
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
//向托盘中添加图标
Shell_NotifyIcon(NIM_ADD, @TrayIconData);
end;

procedure TMainForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
TrayIconData.cbSize := sizeof(TrayIconData);
//TrayIconData变量的字节数
TrayIconData.uID := 1;
//内部标识，与加入小图标时的数一致
TrayIconData.Wnd := Handle;
//主窗口句柄
//TrayIconData.uFlags := 0;
Shell_NotifyIcon(NIM_DELETE, @TrayIconData);
//去掉小图标
end;

//------------------------------------------------------------------

//托盘消息处理事件
//------------------------------------------------------------------
procedure TMainForm.CDRomTrayMessage(var message: Tmessage);
var
CursorPos : TPoint;
begin
//在这里处理用户点击托盘图标事件，可以根据WM_MOUSEMOVE消息的不同情况产生不同的
//回应，例如区别对待单击和双击等等
case message.lParam of
//
//WM_LBUTTONDOWN :
//mcisendstring( pchar(cdromStatus),nil,0,handle);
//if not Busy then
begin

//ShowWindow(Handle, SW_SHOW );
WM_RBUTTONDOWN :
begin
GetCursorPos(CursorPos);
SetForegroundWindow(handle);
//此句作用是当程序失去焦点时，弹出菜单也随之消失。
Application.ProcessMessages;
//取得光标当前位置
TrayPopMenu.Popup( CursorPos.x ,CursorPos.y );
PostMessage(Application.MainForm.Handle, WM_NULL, 0, 0);
end;
end;

end;
//----------------------------------------------------------
//弹出菜单事件
//----------------------------------------------------------
procedure TMainForm.popExitClick(Sender: TObject);
begin
Close;
end;
//----------------------------------------------------------
procedure TMainForm.FormPaint(Sender: TObject);
begin
Hide;
end;

end.