fpcsrc/tests/webtbs/tw1820.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{ %version=1.1 }
{ %TARGET=win32 }
unit tw1820;
interface

{$mode Delphi}

Uses Windows;

type
  IEnumWorkItems = interface (IUnknown)
      ['{148BD528-A2AB-11CE-B11F-00AA00530503}']
  end;


const
  IEnumTasks = IEnumWorkItems;

implementation

end.