急！ 状态栏显示程序运行状态的API是什么？

Question

状态栏显示程序运行状态的API是什么？

Answer 1

？？不太清楚你的意思～～不是这个吧？～～procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Title := '其实你不明白伴水的心';
end;

Answer 2

谢谢指点！
我当时是想调用API函数  shell_notifyicon

Answer 3

//分析一下VCL，其实是用SetWindowText()Api函数实现的 ：）　～～
procedure TApplication.SetTitle(const Value: string);
begin
  if FHandleCreated then
  begin
    if (GetTitle <> Value) or (FTitle <> '') then
    begin
      SetWindowText(FHandle, PChar(Value));
      FTitle := '';
    end;
  end
  else
    FTitle := Value;
end;