如何使编绎后的.exe文件显示在与右下角与时间是一栏？

Question

求助？

Answer 1

当运行.exe时，程序图标出现在屏幕的右下角。

Answer 2

uses shellapi;
procedure TForm1.FormShow(Sender: TObject);
var
  NotifyIcon:TNotifyIconData;
begin
    with NotifyIcon do
        begin
            cbSize:=SizeOf(NotifyIcon);  //NotifyIcon变量的大小
            Wnd:=Handle;  //指向当前窗体Form1的句柄
            uID:=1;
            uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
            //uCallbackMessage:=WM_MYMESSAGE;  //回调消息
            hIcon:=Application.Icon.Handle;  //托盘图标的句柄.如果没有Application，
                                             //在托盘中看不到图标。
            szTip:='托盘程序演练';  //鼠标放在任务栏图标上时，显示的内容
        end;
        Shell_NotifyIcon(NIM_ADD, @NotifyIcon);   //在托盘中添加图表
end;附：Shell_NotifyIcon(NIM_DELETE, @NotifyIcon);   //将图表从托盘中删除

Answer 3

托盘图标的实现你装个 COOLTRAYICON就可以了