Class TWinList (unit FindWin1)

Inherits from

TComponent

Constructors


Constructor Create(AOwner : TComponent);



Functions

Destructor Destroy;


Procedure Execute;


function GetIconHandle(Idx : Integer): HIcon;


function GetModuleHandle(Idx : Integer): THandle;


function GetModuleName(Idx : Integer): String;


function GetParentName(Idx : Integer): String;


function GetTaskHandle(Idx : Integer): THandle;


function GetWinExePath(Idx : Integer): String;


function GetWinExStyl(Idx : Integer): LongInt;


function GetWinHandle(Idx : Integer): HWND;


function GetWinParent(Idx : Integer): HWND;


function GetWinStyle (Idx : Integer): LongInt;


function GetWnClasName(Idx : Integer): String;


procedure AppMessage(var Msg: TMsg; var Handled: Boolean);


procedure FuAbout(value :String);


Procedure GetWindowsInfo(WinHandle : HWND);


procedure SetOurHook(value:Boolean);


procedure SomeChanged;


procedure SortWin;


Properties

property About : String


property EmptyNames : Boolean


property EnableHook : Boolean


property TaskBarSty : Boolean


property WhatDoFind : TFind_ID


property WindowList : TStringList


Events

event OnChanged : TNotifyEvent


Variables

fAbout : String;


fAcceptEmptyNames : Boolean;


FFindID : TFind_ID;


fHookOn : Boolean;


fOnChanged : TNotifyEvent;


fTaskBarStyle : Boolean;


fWindowsList : TStringList;


WinObj : TWinInfo;



Constructors


Constructor Create(AOwner : TComponent);


Functions


Destructor Destroy;


Procedure Execute;


function GetIconHandle(Idx : Integer): HIcon;


function GetModuleHandle(Idx : Integer): THandle;


function GetModuleName(Idx : Integer): String;


function GetParentName(Idx : Integer): String;


function GetTaskHandle(Idx : Integer): THandle;


function GetWinExePath(Idx : Integer): String;


function GetWinExStyl(Idx : Integer): LongInt;


function GetWinHandle(Idx : Integer): HWND;


function GetWinParent(Idx : Integer): HWND;


function GetWinStyle (Idx : Integer): LongInt;


function GetWnClasName(Idx : Integer): String;


procedure AppMessage(var Msg: TMsg; var Handled: Boolean);


procedure FuAbout(value :String);


Procedure GetWindowsInfo(WinHandle : HWND);


procedure SetOurHook(value:Boolean);


procedure SomeChanged;


procedure SortWin;


Properties


property About : String


property EmptyNames : Boolean


property EnableHook : Boolean


property TaskBarSty : Boolean


property WhatDoFind : TFind_ID


property WindowList : TStringList


Events


event OnChanged : TNotifyEvent


Variables


fAbout : String;


fAcceptEmptyNames : Boolean;


FFindID : TFind_ID;


fHookOn : Boolean;


fOnChanged : TNotifyEvent;


fTaskBarStyle : Boolean;


fWindowsList : TStringList;


WinObj : TWinInfo;