[BLACKFIRE69]

InnoSetup - TaskManager API

type
  FTaskManager = interface(IUnknown)
    '{DBDEFA56-4FD1-4DA3-937A-0D66176BE973}'

    procedure InitHeaderColors(AColor: TColor; ABold: Boolean);
    procedure InitHeaderColor(AColor1, AColor2, AColor3, AColor4, AColor5, AColor6, AColor7, AColor8, AColor9, AColor10, AColor11: TColor; ABold: Boolean);

    procedure FCreate(WHandle: HWND; FLeft, FTop, FWidth, FHeight: Integer; Callback: TTaskMngrCallback);
    procedure Start;
    procedure Stop;

    procedure FirstColumnColor(ABkColor, ATxtColor: TColor);
    procedure FirstColumnColorSingleRow(ABkColorMain, ABkColorOther, ATxtColorMain, ATxtColorOther: TColor; RowIndex: Integer);
    procedure FirstColumnColorRowRange(ABkColorMain, ABkColorOther, ATxtColorMain, ATxtColorOther: TColor; RowIndexFrom, RowIndexTo: Integer);

    procedure SubColumnColor(ColumnIndex: Integer; ABkColor, ATxtColor: TColor);
    procedure SubColumnsColor(ABkColor, ATxtColor: TColor);
    procedure SubColumnsColorEx(ColumnIndexFrom, ColumnIndexTo: Integer; ABkColor, ATxtColor: TColor);

    procedure SubColumnColorSingleRow(ColumnIndex: Integer; ABkColorMain, ABkColorOther, ATxtColorMain, ATxtColorOther: TColor; RowIndex: Integer);
    procedure SubColumnsColorSingleRow(ABkColorMain, ABkColorOther, ATxtColorMain, ATxtColorOther: TColor; RowIndex: Integer);
    procedure SubColumnsColorSingleRowEx(ColumnIndexFrom, ColumnIndexTo: Integer; ABkColorMain, ABkColorOther, ATxtColorMain, ATxtColorOther: TColor; RowIndex: Integer);

    procedure SubColumnColorRowRange(ColumnIndex: Integer; ABkColorMain, ABkColorOther, ATxtColorMain, ATxtColorOther: TColor; RowIndexFrom, RowIndexTo: Integer);
    procedure SubColumnsColorRowRange(ABkColorMain, ABkColorOther, ATxtColorMain, ATxtColorOther: TColor; RowIndexFrom, RowIndexTo: Integer);
    procedure SubColumnsColorRowRangeEx(ColumnIndexFrom, ColumnIndexTo: Integer; ABkColorMain, ABkColorOther, ATxtColorMain, ATxtColorOther: TColor; RowIndexFrom, RowIndexTo: Integer);

    procedure SelectedProcOpenFileLocation;
    procedure SelectedProcOpenProperties;
    procedure SelectedProcEndTask;
    procedure SelectedProcSuspend(const FValue: Boolean);
    procedure SelectedProcSetPriority(const FPriority: DWORD);

    function GetSelectedProcPID: DWORD;
    function GetSelectedProcThreadID: DWORD;
    function GetSelectedProcPath: WideString;
    function GetSelectedProcCPU: WideString;
    function GetSelectedProcRAM: WideString;
    function GetSelectedProcRAMPrivate: WideString;
  end;

.