[r1]: tags / 15 / Windows7 / dwTaskbarList.pas  Maximize  Restore  History

Download this file

101 lines (83 with data), 3.0 kB

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
unit dwTaskbarList;
interface
{$INCLUDE 'DelphiVersions.inc'}
uses
Windows;
{$IFNDEF Delphi2007_Up}
type
ULONGLONG = UInt64;
{$ENDIF}
const
CLSID_TaskbarList: TGUID = '{56FDF344-FD6D-11D0-958A-006097C9A090}';
CLSID_TaskbarList2: TGUID = '{602D4995-B13A-429B-A66E-1935E44F4317}';
CLSID_TaskbarList3: TGUID = '{EA1AFB91-9E28-4B86-90E9-9E9F8A5EEFAF}';
const
THBF_ENABLED = $0000;
THBF_DISABLED = $0001;
THBF_DISMISSONCLICK = $0002;
THBF_NOBACKGROUND = $0004;
THBF_HIDDEN = $0008;
const
THB_BITMAP = $0001;
THB_ICON = $0002;
THB_TOOLTIP = $0004;
THB_FLAGS = $0008;
const
THBN_CLICKED = $1800;
const
TBPF_NOPROGRESS = $00;
TBPF_INDETERMINATE = $01;
TBPF_NORMAL = $02;
TBPF_ERROR= $04;
TBPF_PAUSED = $08;
const
TBATF_USEMDITHUMBNAIL: DWORD = $00000001;
TBATF_USEMDILIVEPREVIEW: DWORD = $00000002;
const
WM_DWMSENDICONICTHUMBNAIL = $0323;
WM_DWMSENDICONICLIVEPREVIEWBITMAP = $0326;
type
TTipString = array[0..259] of WideChar;
PTipString = ^TTipString;
tagTHUMBBUTTON = packed record
dwMask: DWORD;
iId: UINT;
iBitmap: UINT;
hIcon: HICON;
szTip: TTipString;
dwFlags: DWORD;
end;
THUMBBUTTON = tagTHUMBBUTTON;
THUMBBUTTONLIST = ^THUMBBUTTON;
TThumbButton = THUMBBUTTON;
TThumbButtonList = array of TThumbButton;
type
ITaskbarList = interface
['{56FDF342-FD6D-11D0-958A-006097C9A090}']
procedure HrInit; safecall;
procedure AddTab(hwnd: Cardinal); safecall;
procedure DeleteTab(hwnd: Cardinal); safecall;
procedure ActivateTab(hwnd: Cardinal); safecall;
procedure SetActiveAlt(hwnd: Cardinal); safecall;
end;
ITaskbarList2 = interface(ITaskbarList)
['{602D4995-B13A-429B-A66E-1935E44F4317}']
procedure MarkFullscreenWindow(hwnd: Cardinal; fFullscreen: Bool); safecall;
end;
ITaskbarList3 = interface(ITaskbarList2)
['{EA1AFB91-9E28-4B86-90E9-9E9F8A5EEFAF}']
procedure SetProgressValue(hwnd: Cardinal; ullCompleted, ullTotal: ULONGLONG); safecall;
procedure SetProgressState(hwnd: Cardinal; tbpFlags: DWORD); safecall;
procedure RegisterTab(hwndTab: Cardinal; hwndMDI: Cardinal); safecall;
procedure UnregisterTab(hwndTab: Cardinal); safecall;
procedure SetTabOrder(hwndTab: Cardinal; hwndInsertBefore: Cardinal); safecall;
procedure SetTabActive(hwndTab: Cardinal; hwndMDI: Cardinal; tbatFlags: DWORD); safecall;
procedure ThumbBarAddButtons(hwnd: Cardinal; cButtons: UINT; Button: THUMBBUTTONLIST); safecall;
procedure ThumbBarUpdateButtons(hwnd: Cardinal; cButtons: UINT; pButton: THUMBBUTTONLIST); safecall;
procedure ThumbBarSetImageList(hwnd: Cardinal; himl: Cardinal); safecall;
procedure SetOverlayIcon(hwnd: Cardinal; hIcon: HICON; pszDescription: LPCWSTR); safecall;
procedure SetThumbnailTooltip(hwnd: Cardinal; pszTip: LPCWSTR); safecall;
function SetThumbnailClip(hwnd: Cardinal; prcClip: PRect):Cardinal; safecall;
end;
implementation
end.

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.





No, thanks