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;