Windows 7 taskbar и Delphi

Для управления состоянием и значением прогресса текущего действия, отображаемого на значке панели задачи приложения в СО windows 7 используются COM интерфейс ITaskBarList3 описанный в ShlObj.pas (Delphi2010). Для использования данного функционала создадим новое приложение с одной формой MainForm, расположим на нем stateSelect (TRadioGroup) и progressBar (TTrackBar). Для удобства опишем тип-запись TTaskState с полями имя-значение:

type TTaskState = record
        name : string;
        value : byte;
     end;

и объявим массив констант для описания возможных значений состояний, отображаемых на панели задач.

const
    taskStates : array [0..4] of TTaskState = (
            (name : 'TBPF_NOPROGRESS';    value : TBPF_NOPROGRESS),
            (name : 'TBPF_INDETERMINATE'; value : TBPF_INDETERMINATE),
            (name : 'TBPF_NORMAL';        value : TBPF_NORMAL ),
            (name : 'TBPF_ERROR';         value : TBPF_ERROR),
            (name : 'TBPF_PAUSED';        value : TBPF_PAUSED)
        );

В раздел private описания класса TMainForm добавим описание нужного интерфейса, переменные для хранения значений состояния и прогресса, а так же методы для изменения данных значений.

  private
    taskBarList : ITaskBarList3;

    fState : integer;
    fProgress : integer;

    procedure setTaskState(newState:integer);
    procedure setTaskProgress(newValue : integer);

в разделе public объявим соответствующие свойства для управления состоянием и прогрессом.

    property state : integer read fState write setTaskState;
    property progress : integer read fProgress write setTaskProgress;

в событии создания формы FormCreate создадим COM объект для работы с с панелью задач Windows (ITaskBarList), проверим поддерживает ли ОС требуемый нам интерфейс ITaskBarList3 и заполним stateSelect значениями из массива taskStates.

procedure TMainForm.FormCreate(Sender: TObject);
var tbList : ITaskBarList;
    hr : HRESULT;
    state : TTaskState;
begin
    tbList := CreateComObject(CLSID_TaskBarList) as ITaskBarList;
    hr := tbList.QueryInterface(IID_ITaskBarList3,taskBarList);
    if hr <> S_OK then begin
        taskBarList := nil;
           tbList._Release;
    end;

    for state in TaskStates do
        stateSelect.Items.AddObject(state.name,TObject(state.value));
end;

В обработчике события OnChange stateSelect будем устанавливать состояние значка панели задач, в зависимости от выбранного пункта. Для этого определим обработчик события и метод записи свойства state следующим образом

procedure TMainForm.StateSelectClick(Sender: TObject);
begin
    self.state :=  stateSelect.ItemIndex;
end;

procedure TMainForm.setTaskState(newState: Integer);
begin
    if assigned(taskBarList) then
        taskBarList.SetProgressState(handle,taskStates[newState].value);
end;

Установим значения min/max progressBar'a в 0/100 и опишем обработчик события изменения его значения, а также метод изменения значения свойства progress

procedure TMainForm.progressBarChange(Sender: TObject);
begin
    self.progress := progressBar.Position;
end;

procedure TMainForm.setTaskProgress(newValue: Integer);
begin
    if assigned(taskBarList) then
        taskBarList.SetProgressValue(handle,newValue,100);
end;

Результаты работы данного кода представлены на рисунке.

апдейт от 14.06.2011г.: тестовый проект с установкой состояния и прогресса
зы: приведенному коду в статье не соответствует. реализация более корректная.