Class TForm1 (unit Ffwin)

Inherits from

TForm

*************************************************************************} { 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 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; // //} {

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);


procedure BitBtn4Click(Sender: TObject);


procedure BitBtn5Click(Sender: TObject);


procedure BitBtn6Click(Sender: TObject);


procedure CheckBox3Click(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure ListBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ListWin(Sender:TObject);


Properties

Events

Variables

BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


BitBtn5 : TBitBtn;


BitBtn6 : TBitBtn;


CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


CheckBox3 : TCheckBox;


GroupBox1 : TGroupBox;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


ListBox1 : TListBox;


WinList1 : TWinList;



Constructors


Functions


procedure BitBtn1Click(Sender: TObject);


procedure BitBtn4Click(Sender: TObject);


procedure BitBtn5Click(Sender: TObject);


procedure BitBtn6Click(Sender: TObject);


procedure CheckBox3Click(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure ListBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ListWin(Sender:TObject);


Properties


Events


Variables


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


BitBtn5 : TBitBtn;


BitBtn6 : TBitBtn;


CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


CheckBox3 : TCheckBox;


GroupBox1 : TGroupBox;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


ListBox1 : TListBox;


WinList1 : TWinList;