Class TWinList (unit FindWin)

Inherits from

TComponent

Constructors


Constructor Create(AOwner : TComponent);



Functions

Destructor Destroy;


Procedure Execute;

WinObj.

function GetIconHandle(Idx : Integer): HIcon;


function GetParentName(Idx : Integer): String;


function GetProcessID(Idx : Integer): DWORD;


function GetThreadID (Idx : Integer): HTask;


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 FuAbout(value :String);


Procedure GetWindowsInfo(WinHandle : HWND);


procedure SetTimer(value:Boolean);


procedure SetTimeVal(value:Integer);


procedure SomeChanged;


procedure Timer1Timer(Sender:TObject);


Properties

property About : String


property EmptyNames : Boolean


property EnableTimer : Boolean


property TaskBarSty : Boolean


property TimerIntval : Integer


property WhatDoFind : TFind_ID


property WindowList : TStringList


Events

event OnChanged : TNotifyEvent


Variables

fAbout : String;


fAcceptEmptyNames : Boolean;


FFindID : TFind_ID;


fOnChanged : TNotifyEvent;


fTaskBarStyle : Boolean;


fTimerOn : Boolean;


fTimeVal : Integer;


fWindowsList : TStringList;


timer1 : TTimer;


WinObj : TWinInfo;



Constructors


Constructor Create(AOwner : TComponent);


Functions


Destructor Destroy;


Procedure Execute;

WinObj.hIco := LoadIcon(0, MakeIntResource(IDI_WinLogo));


function GetIconHandle(Idx : Integer): HIcon;


function GetParentName(Idx : Integer): String;


function GetProcessID(Idx : Integer): DWORD;


function GetThreadID (Idx : Integer): HTask;


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 FuAbout(value :String);


Procedure GetWindowsInfo(WinHandle : HWND);


procedure SetTimer(value:Boolean);


procedure SetTimeVal(value:Integer);


procedure SomeChanged;


procedure Timer1Timer(Sender:TObject);


Properties


property About : String


property EmptyNames : Boolean


property EnableTimer : Boolean


property TaskBarSty : Boolean


property TimerIntval : Integer


property WhatDoFind : TFind_ID


property WindowList : TStringList


Events


event OnChanged : TNotifyEvent


Variables


fAbout : String;


fAcceptEmptyNames : Boolean;


FFindID : TFind_ID;


fOnChanged : TNotifyEvent;


fTaskBarStyle : Boolean;


fTimerOn : Boolean;


fTimeVal : Integer;


fWindowsList : TStringList;


timer1 : TTimer;


WinObj : TWinInfo;