Unit FindWin1

Renamed from Finwin.pas 6/8/1998 Paul Rice to avoid conflict with other versions.} { Date: 01.03.97 Time: 17:30:40 } { Copyright (c)1996-1997 } { © by Dr.Plass TFindWin2.1 } { } { for DELPHI 1, Win3.1x } { feel free to contact me: } { Peter.Plass@FH-Zwickau.de } { http://www.fh-zwickau.de/~pp/tm.htm } { } { All Rights Reserved. } { This component can be freely used and distributed in commercial and } { private environments, provided this notice is not modified in any way. } { } { based on Jerome Tremblay's component TWindowsList v1.0 } { --> jerome@infose.com } { } { } { } {***************************************************************************} // // // Methods: // procedure Execute; // function GetWinHandle (Idx : Integer): HWND; // function GetWinParent (Idx : Integer): HWND; // function GetTaskHandle(Idx : Integer): HTask; // function GetWinStyle (Idx : Integer): LongInt; // function GetIconHandle(Idx : Integer): HIcon; // function GetWinExStyl (Idx : Integer): LongInt; // function GetWinExePath(Idx : Integer): String; // function GetWnClasName(Idx : Integer): String; // function GetModuleName(Idx : Integer): String; // function GetParentName(Idx : Integer): String; // // e.g.: whdl := WinList1.GetWinHandle(ListBox1.ItemIndex); // // Properties: // Property WhatDoFind : TFind_ID; // Property WindowList : TStringList; // Property EmptyNames : Boolean; // Property TaskBarSty : Boolean; // Property EnableHook : Boolean; // Property OnChanged : TNotifyEvent; // //

Classes

TWinInfo -
TWinList -

Functions

GetStyle -
Register -

Types

TFind_ID

Constants

cAbout

Variables


Functions


function GetStyle(hdl : HWnd):Boolean;


procedure Register;


Types


TFind_ID = (id_All,id_VisOnly,id_InvisOnly);

Constants

cAbout = 'TFindWin2.1(16): © 1997 by Dr.Plass'


Variables