BLACKFIRE69
16-11-2023, 10:02
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;
.
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;
.