如何在程序启动时直接进入任务栏？(30分)

最好提供代码参考。

在主窗体的Create事件中写入：
procedure TFAppServer.FormCreate(Sender: TObject);
var
ZAppName: array[0..127] of char;
Hold: String;
Found: HWND;
begin
Hold := Application.Title;
Application.Title := 'OnlyOne'+ IntToStr(HInstance);
StrPCopy(ZAppName, Hold);
Found := FindWindow(nil, ZAppName);
Application.Title := Hold;
if Found<>0 then
begin
ShowWindow(Found, SW_RESTORE);
Application.Terminate;
end;

registerhotkey(FAppServer.handle,1,mod_alt,vk_return);
FAppServer.windowstate := wsminimized;
Application.OnMinimize:=appMINIMIZE;

end;
调用的函数为
procedure TFAppServer.appMINIMIZE(Sender: TObject);
begin
ShowWindow(FAppServer.Handle,SW_HIDE);
ShowWindow(Application.Handle,SW_HIDE);
end;

提示appMINIMIZE没有定义？

procedure TForm1.FormShow(Sender: TObject);
begin
application.Minimize;
end;

有谁知道怎么检测应用程序有没有响应啊,知道的高手请指点一下我.QQ38829979

procedure TForm1.FormShow(Sender: TObject);
begin
application.Minimize;
end;

这样是不行的。没有达到我得要求。窗口可能会出现闪一下

接受答案了.