帮我看看这一段关于系统菜单的代码。解决后将开贴放分100(6分)

1 == 工程文件：Project1.dpr
//加一条语句
program Project1;
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.

2 == 主窗口所在单元Unit1.pas
//加一个函数CreateParams
unit Unit1;

interface

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

type
TForm1 = class(TForm)
private
{ Private declarations }
protected
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := 0;
end;

end.}
---------------------
以上这段代码有个BUG.就是最小化不了啊.???你是否已发现.能否帮忙解决一下....
其它大虾如果知道也可以通知我.谢谢..(到时将开再开贴发分)
dream40@etang.com

详情请见。http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1378146

Params.WndParent := 0; 阻止了最小化。想能最小化把它去掉。
因为以下语句使主窗口最小化后，不在任务栏中出现按钮。
如果可以最小化的话，最小化后就不能用通常的方法显示窗口。
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

接受答案了.