| Class TWinList (unit FindWin3) |
TComponent
| Constructors |
Constructor Create(AOwner : TComponent);| Functions |
Destructor Destroy;
Procedure Execute;
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;and so on ProcessEntry
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;