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;