unit fixie;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, CheckLst,registry, Buttons;
type
TfrmFixie = class(TForm)
clbOption: TCheckListBox;
btnSelAll: TBitBtn;
btnNoSel: TBitBtn;
btnFix: TBitBtn;
ListBox1: TListBox;
btnWin: TButton;
btnIeTool: TButton;
btnRight: TButton;
btnDel: TButton;
procedure btnFixClick(Sender: TObject);
procedure btnSelAllClick(Sender: TObject);
procedure btnNoSelClick(Sender: TObject);
procedure btnWinClick(Sender: TObject);
procedure btnIeToolClick(Sender: TObject);
procedure btnRightClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmFixie: TfrmFixie;
regName:string;
implementation
{$R *.dfm}
unit ieArmor;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg, StdCtrls, Buttons,shellapi,registry;
type
TForm1 = class(TForm)
imgNoarmor: TImage;
spdStart: TSpeedButton;
image1: TImage;
spdHome: TSpeedButton;
spdEmail: TSpeedButton;
spdExit: TSpeedButton;
spdArmor: TSpeedButton;
spdClose: TSpeedButton;
imgArmor: TImage;
spdFix: TSpeedButton;
procedure btnExitClick(Sender: TObject);
procedure spdExitClick(Sender: TObject);
procedure spdHomeClick(Sender: TObject);
procedure spdEmailClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure spdArmorClick(Sender: TObject);
procedure spdFixClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
noArmor:boolean;
implementation
uses Unit2, fixie;
{$R *.dfm}