Class TForm1 (unit MyComponent)

Inherits from

TForm

Constructors



Functions

procedure Button10Click(Sender: TObject);


procedure Button11Click(Sender: TObject);


procedure Button12Click(Sender: TObject);


procedure Button13Click(Sender: TObject);


procedure Button14Click(Sender: TObject);


procedure Button15Click(Sender: TObject);


procedure Button16Click(Sender: TObject);


procedure Button17Click(Sender: TObject);


procedure Button18Click(Sender: TObject);


procedure Button1Click(Sender: TObject);

Close the file

procedure Button21Click(Sender: TObject);


procedure Button22Click(Sender: TObject);


procedure Button23Click(Sender: TObject);


procedure Button24Click(Sender: TObject);

with APIThing

procedure Button25Click(Sender: TObject);

case APIThing.

procedure Button26Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

Image1.

procedure Button3Click(Sender: TObject);

case

procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);


procedure Button7Click(Sender: TObject);


procedure Button8Click(Sender: TObject);


procedure Button9Click(Sender: TObject);

with VolumeInfo

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


Properties

Events

Variables

Button1 : TButton;


Button10 : TButton;


Button11 : TButton;


Button12 : TButton;


Button13 : TButton;


Button14 : TButton;


Button15 : TButton;


Button16 : TButton;


Button17 : TButton;


Button18 : TButton;


Button2 : TButton;


Button21 : TButton;


Button22 : TButton;


Button23 : TButton;


Button24 : TButton;


Button25 : TButton;


Button26 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Button7 : TButton;


Button8 : TButton;


Button9 : TButton;


Image1 : TImage;


Label1 : TLabel;


Panel1 : TPanel;


Timer1 : TTimer;


APIThing : TtvAPIThing;

Public declarations


Constructors


Functions


procedure Button10Click(Sender: TObject);


procedure Button11Click(Sender: TObject);


procedure Button12Click(Sender: TObject);


procedure Button13Click(Sender: TObject);


procedure Button14Click(Sender: TObject);


procedure Button15Click(Sender: TObject);


procedure Button16Click(Sender: TObject);


procedure Button17Click(Sender: TObject);


procedure Button18Click(Sender: TObject);


procedure Button1Click(Sender: TObject);

Close the file


procedure Button21Click(Sender: TObject);


procedure Button22Click(Sender: TObject);


procedure Button23Click(Sender: TObject);


procedure Button24Click(Sender: TObject);

with APIThing


procedure Button25Click(Sender: TObject);

case APIThing.DriveType;


procedure Button26Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

Image1.Picture.Icon.Handle := APIThing.ExtractAssociatedIcon( Application.ExeName );


procedure Button3Click(Sender: TObject);

case


procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);


procedure Button7Click(Sender: TObject);


procedure Button8Click(Sender: TObject);


procedure Button9Click(Sender: TObject);

with VolumeInfo


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


Properties


Events


Variables


Button1 : TButton;


Button10 : TButton;


Button11 : TButton;


Button12 : TButton;


Button13 : TButton;


Button14 : TButton;


Button15 : TButton;


Button16 : TButton;


Button17 : TButton;


Button18 : TButton;


Button2 : TButton;


Button21 : TButton;


Button22 : TButton;


Button23 : TButton;


Button24 : TButton;


Button25 : TButton;


Button26 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Button7 : TButton;


Button8 : TButton;


Button9 : TButton;


Image1 : TImage;


Label1 : TLabel;


Panel1 : TPanel;


Timer1 : TTimer;


APIThing : TtvAPIThing;

Public declarations