WIN32程序任务栏加上进度条

uses

Winapi.ShlObj,System.Win.ComObj;

var

FBL: ITaskbarList4;

1. 创建：

    FBL:= CreateComObject(CLSID_TaskbarList) as ITaskbarList4;
    FBL.SetProgressState(Application.Handle, TBPF_NOPROGRESS or TBPF_INDETERMINATE);

2. 实现

   var 

      i：Integer；

    begin

       for i :=1 to 100 do

       begin

           FBL.SetProgressValue(Application.Handle, i, 100);

          sleep（100）;

       end;

    end;