Delphi-PRAXiS - Delphi Taskbarlist (IID

Hab das hier zufällig im Net gefunden ohne copyright oder anderer infos.
Vielleicht kann es ja jemand brauchen.

In VB hab ich es schon realisiert.
Delphi-Quellcode:
			unit Unit1;

interface

uses 

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 

  Dialogs, ShlObj, ActiveX, ComObj, ExtCtrls, StdCtrls;

const

  CLSID_TaskbarList: TGUID = '{56fdf344-fd6d-11d0-958a-006097c9a090}';

  IID_ITaskbarList:  TGUID = '{56FDF342-FD6D-11d0-958A-006097C9A090}';

  IID_ITaskbarList2: TGUID = '{602D4995-B13A-429b-A66E-1935E44F4317}';

  IID_ITaskbarList3: TGUID = '{ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf}';

type

  TBPF = (TBPF_NOPROGRESS = 0,

          TBPF_INDETERMINATE = 1,

          TBPF_NORMAL = 2,

          TBPF_ERROR = 4,

          TBPF_PAUSED = 8);

  TBATF = (TBATF_USEMDITHUMBNAIL = 1,

           TBATF_USEMDILIVEPREVIEW = 2);

   ITaskbarList = interface(IUnknown)

      ['{56FDF342-FD6D-11d0-958A-006097C9A090}']

      function HrInit : HResult; stdcall;

      function AddTab(hWndOwner : HWND) : HResult; stdcall;

      function DeleteTab(hWndOwner : HWND) : HResult; stdcall;

      function ActivateTab(hWndOwner : HWND) : HResult; stdcall;

      function SetActiveAlt(hWndOwner : HWND) : HResult; stdcall;

   end; { ITaskbarList }

  ITaskbarList2 = interface(ITaskbarList)

    ['{602D4995-B13A-429b-A66E-1935E44F4317}']

    function MarkFullscreenWindow(wnd : HWND; fFullscreen : bool) : HResult; stdcall;

  end;

  ITaskbarList3 = interface (ITaskbarList2)

  ['{ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf}']

    function SetProgressValue (hWnd: HWND; ullCompleted: int64; ullTotal: int64): HResult; stdcall;

    function SetProgressState (hWnd: HWND; tbpFlags: TBPF): HResult; stdcall;

    function RegisterTab (hwndTab: HWND; hwndMDI: HWND): HResult; stdcall;

    function UnregisterTab (hwndTab: HWND): HResult; stdcall;

    function SetTabOrder (hwndTab: HWND; hwndInsertBefore: HWND): HResult; stdcall;

    function SetTabActive (hwndTab: HWND; hwndMDI: HWND; tbatFlags: TBATF): HResult; stdcall;

    function ThumbBarAddButtons (hWnd: HWND; cButtons: integer; pButtons: pointer): HResult; stdcall;

    function ThumbBarUpdateButtons (hWnd: HWND; cButtons: cardinal; pButtons: pointer): HResult; stdcall;

    function ThumbBarSetImageList (hWnd: HWND; himl: pointer): HResult; stdcall;

    function SetOverlayIcon (hWnd: HWND; hIcon: HICON; pszDescription: PWideChar): HResult; stdcall;

    function SetThumbnailTooltip (hWnd: HWND; pszTip: PWideChar): HResult; stdcall;

    function SetThumbnailClip (hWnd: HWND; prcClip: PRect): HResult; stdcall;

  end;

type 

  TForm1 = class(TForm) 

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private 

    { Private declarations } 

    FTaskBarList : ITaskbarList3;

  public 

    { Public declarations } 

  end;

var 

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  FTaskBarList.SetProgressState(form1.handle, TBPF_ERROR);

  FTaskBarList.SetProgressValue(form1.handle, 45, 100);

end;

procedure TForm1.FormCreate(Sender: TObject); 

begin 

  FTaskBarList := CreateComObject(CLSID_TaskbarList)  as     ITaskbarList3;

end;

end.
gruss