怎么使程序最小化时在任务栏中生成一个图标？

Question

const 
  WM_AMOUSE = WM_USER + 100;...
  MainImage: TImage;
...
  private
    procedure IconMouseEvent(var Message: TMessage); Message WM_AMOUSE;...procedure TMainForm.FormCreate(Sender: TObject);
var
  FIconData: TNotifyIconData;
begin
  FIconData.cbSize := SizeOf(FIconData);
  FIconData.Wnd := handle;
  FIconData.uID := 1;
  FIconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
  FIconData.uCallbackMessage := WM_AMOUSE;
  FIconData.hIcon := MainImage.Picture.Bitmap.Handle;
  FIconData.szTip := 'Zhuhai is a nice city!';
  Shell_NotifyIcon(NIM_ADD,@FIconData);
end;procedure TMainForm.IconMouseEvent(var Message: TMessage);
begin
  with Message do
  begin
    if Msg = WM_AMOUSE then
    begin
      if LParam = WM_LBUTTONDBLCLK then
      begin
        if MainForm.WindowState = wsMinimized then
        begin
          ShowWindow(handle,SW_SHOWNORMAL);
          mainform.Show;
          SetForegroundWindow(handle);
        end
        else begin
          ShowWindow(handle,SW_SHOWMINIMIZED);
          MAINFORM.Hide;
        end;
      end;
    end;
  end;
end;end.

Answer 1

调用 ShellApi 单元中的函数即可。

Answer 2

sorry!FIconData.hIcon := MainImage.Picture.Bitmap.Handle
應改爲
FIconData.hIcon := MainImage.Picture.Icon.Handle;