|
How to use Form Extractor?
Run Form Extractor, load any executable file into the program and Form Extractor will show the full information about all forms included into loaded file. Click the form, see the form preview, move mouse over the control to read more in the status line, see the DFM and PAS contents and just choose Save from the main menu (or click the appropriate button from the toolbar) to extract and save the selected form. The form can be save both in text or binary format. See the example of the PasswordDialog form extracted from the VCLDB70.BPL package below.
DFM file contents:
object PasswordDialog: TPasswordDialog
Left = 260
Top = 184
ActiveControl = Edit
BorderStyle = bsDialog
Caption = 'Enter password'
ClientHeight = 132
ClientWidth = 273
ParentFont = True
PixelsPerInch = 96
Position = poScreenCenter
TextHeight = 13
object OKButton: TButton
Left = 109
Top = 98
Width = 75
Height = 25
Caption = '&OK'
Default = True
Enabled = False
ModalResult = 1
TabOrder = 1
end
object CancelButton: TButton
Left = 190
Top = 98
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 2
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 257
Height = 81
Caption = 'Password'
TabOrder = 0
object Edit: TEdit
Left = 16
Top = 18
Width = 225
Height = 20
PasswordChar = '*'
TabOrder = 0
end
object AddButton: TButton
Left = 16
Top = 46
Width = 65
Height = 25
Caption = '&Add'
Enabled = False
TabOrder = 1
end
object RemoveButton: TButton
Left = 88
Top = 46
Width = 65
Height = 25
Caption = '&Remove'
Enabled = False
TabOrder = 2
end
object RemoveAllButton: TButton
Left = 160
Top = 46
Width = 81
Height = 25
Caption = 'Re&move all'
TabOrder = 3
end
end
end
PAS file contents:
unit PasswordDialogUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TPasswordDialog = class(TForm)
OKButton: TButton;
CancelButton: TButton;
GroupBox1: TGroupBox;
Edit: TEdit;
AddButton: TButton;
RemoveButton: TButton;
RemoveAllButton: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
PasswordDialog: TPasswordDialog;
implementation
{$R *.DFM}
end.
|
