Дельфи багдарламасында электронды окулык

    procedure Label10Click(Sender: TObject);

    procedure Label11MouseEnter(Sender: TObject);

    procedure Label11MouseLeave(Sender: TObject);

    procedure Label11Click(Sender: TObject);

  

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;    S:STRING;

 

implementation

 

uses Unit3;

 

{$R *.dfm}

procedure TForm2.Label1Click(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\book\index0.mht');

end;

procedure TForm2.Label1MouseEnter(Sender: TObject);

begin

Label1.Font.Color:=clAqua;

end;

 

procedure TForm2.Label1MouseLeave(Sender: TObject);

begin

Label1.Font.Color:=clBlue;

end;

 

procedure TForm2.Label6MouseEnter(Sender: TObject);

begin

   Label6.Font.Color:=clAqua;

end;

 

procedure TForm2.Label6MouseLeave(Sender: TObject);

begin

   Label6.Font.Color:=clBlue;

end;

 

procedure TForm2.Label2MouseLeave(Sender: TObject);

begin

Label2.Font.Color:=clBlue;

end;

 

procedure TForm2.Label2MouseEnter(Sender: TObject);

begin

     Label2.Font.Color:=clAqua;

end;

 

procedure TForm2.Label3MouseEnter(Sender: TObject);

begin

   Label3.Font.Color:=clAqua;

end;

 

procedure TForm2.Label3MouseLeave(Sender: TObject);

begin

    Label3.Font.Color:=clBlue;

end;

 

procedure TForm2.Label4MouseEnter(Sender: TObject);

begin

     Label4.Font.Color:=clAqua;

end;

 

procedure TForm2.Label4MouseLeave(Sender: TObject);

begin

   Label4.Font.Color:=clBlue;

end;

 

procedure TForm2.Label5MouseLeave(Sender: TObject);

begin

  Label5.Font.Color:=clBlue;

end;

 

procedure TForm2.Label5MouseEnter(Sender: TObject);

begin

     Label5.Font.Color:=clAqua;

end;

 

procedure TForm2.Label7MouseEnter(Sender: TObject);

begin

    Label7.Font.Color:=clAqua;

end;

 

procedure TForm2.Label7MouseLeave(Sender: TObject);

begin

        Label7.Font.Color:=clBlue;

end;

 

procedure TForm2.Label8MouseEnter(Sender: TObject);

begin

    Label8.Font.Color:=clAqua;

end;

 

procedure TForm2.Label8MouseLeave(Sender: TObject);

begin

  Label8.Font.Color:=clBlue;

end;

 

procedure TForm2.Label9MouseEnter(Sender: TObject);

begin

Label9.Font.Color:=clAqua;

end;

 

procedure TForm2.Label9MouseLeave(Sender: TObject);

begin

        Label9.Font.Color:=clBlue;

end;

 

procedure TForm2.Label6Click(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\book\J_T.mht');

end;

 

procedure TForm2.Label2Click(Sender: TObject);

begin

  WebBrowser1.Navigate(GetCurrentDir+'\book\index001.mht');

end;

 

procedure TForm2.Label3Click(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\book\index002.mht');

end;

 

procedure TForm2.Label4Click(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\book\index003.mht');

end;

 

procedure TForm2.Label5Click(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\book\index004.mht');

end;

 

procedure TForm2.Label7Click(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\book\PR_C.mht');

end;

 

procedure TForm2.Label8Click(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\book\FNC.mht');

end;

 

procedure TForm2.Label9Click(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\book\B_K.mht');

end;

 

procedure TForm2.Timer1Timer(Sender: TObject);

begin

RzLEDDisplay1.Caption:=TimeToStr(time);

end;

 

procedure TForm2.FormCreate(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\book\index0.mht');

end;

 

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

close;

end;

 

procedure TForm2.Label10MouseEnter(Sender: TObject);

begin

Label10.Font.Color:=clAqua;

end;

 

procedure TForm2.Label10MouseLeave(Sender: TObject);

begin

Label10.Font.Color:=clBlue;

end;

 

procedure TForm2.Label10Click(Sender: TObject);

begin

form3.ShowModal;

end;

 

procedure TForm2.Label11MouseEnter(Sender: TObject);

begin

  Label11.Font.Color:=clAqua;

end;

 

procedure TForm2.Label11MouseLeave(Sender: TObject);

begin

    Label11.Font.Color:=clBlue;

end;

 

procedure TForm2.Label11Click(Sender: TObject);

begin

  winExec('Тест\Test.exe', SW_RESTORE);

    end;

end.

 

unit Unit3;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls,SHELLAPI;

 

type

  TForm3 = class(TForm)

    GroupBox1: TGroupBox;

    Memo1: TMemo;

    GroupBox2: TGroupBox;

    Label10: TLabel;

    GroupBox3: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    procedure Label10Click(Sender: TObject);

    procedure Label10MouseEnter(Sender: TObject);

    procedure Label10MouseLeave(Sender: TObject);

    procedure Label1MouseEnter(Sender: TObject);

    procedure Label1MouseLeave(Sender: TObject);

    procedure Label2MouseEnter(Sender: TObject);

    procedure Label2MouseLeave(Sender: TObject);

    procedure Label3MouseEnter(Sender: TObject);

    procedure Label3MouseLeave(Sender: TObject);

    procedure Label4MouseEnter(Sender: TObject);

    procedure Label4MouseLeave(Sender: TObject);

    procedure Label1Click(Sender: TObject);

    procedure Label2Click(Sender: TObject);

    procedure Label3Click(Sender: TObject);

    procedure Label4Click(Sender: TObject);

    procedure Label5Click(Sender: TObject);

    procedure Label5MouseEnter(Sender: TObject);

    procedure Label5MouseLeave(Sender: TObject);

    procedure Label6Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

  S:STRING;

 

implementation

 

{$R *.dfm}

 

procedure TForm3.Label10Click(Sender: TObject);

begin

      close;

end;

 

procedure TForm3.Label10MouseEnter(Sender: TObject);

begin

       Label10.Font.Color:=clAqua;

end;

 

procedure TForm3.Label10MouseLeave(Sender: TObject);

begin

Label10.Font.Color:=clBlue;

end;

 

procedure TForm3.Label1MouseEnter(Sender: TObject);

begin

    Label1.Font.Color:=clAqua;

end;

 

procedure TForm3.Label1MouseLeave(Sender: TObject);

begin

        Label1.Font.Color:=clBlue;

end;

 

procedure TForm3.Label2MouseEnter(Sender: TObject);

begin

    Label2.Font.Color:=clAqua;

end;

 

procedure TForm3.Label2MouseLeave(Sender: TObject);

begin

     Label2.Font.Color:=clBlue;

end;

 

procedure TForm3.Label3MouseEnter(Sender: TObject);

begin

       Label3.Font.Color:=clAqua;

end;

 

procedure TForm3.Label3MouseLeave(Sender: TObject);

begin

Label3.Font.Color:=clBlue;

end;

 

procedure TForm3.Label4MouseEnter(Sender: TObject);

begin

         Label4.Font.Color:=clAqua;

end;

 

procedure TForm3.Label4MouseLeave(Sender: TObject);

begin

Label4.Font.Color:=clBlue;

end;

 

procedure TForm3.Label1Click(Sender: TObject);

begin

  Memo1.Lines.LoadFromFile(GetCurrentDir+'\ESEPTER\MATEMATE.PAS');

  s:=GetCurrentDir+'\ESEPTER\MATEMATE.EXE';

  ShellExecute(Handle,'open',PChar(s),nil,nil,SW_RESTORE);

end;

 

procedure TForm3.Label2Click(Sender: TObject);

begin

  Memo1.Lines.LoadFromFile(GetCurrentDir+'\ESEPTER\MATPUTCA.PAS');

  s:=GetCurrentDir+'\ESEPTER\MATPUTCA.EXE';

  ShellExecute(Handle,'open',PChar(s),nil,nil,SW_RESTORE);

end;

 

procedure TForm3.Label3Click(Sender: TObject);

begin

   Memo1.Lines.LoadFromFile(GetCurrentDir+'\ESEPTER\BEKTOR.PAS');

   s:=GetCurrentDir+'\ESEPTER\BEKTOR.EXE';

   ShellExecute(Handle,'open',PChar(s),nil,nil,SW_RESTORE);

end;

 

procedure TForm3.Label4Click(Sender: TObject);

begin

   Memo1.Lines.LoadFromFile(GetCurrentDir+'\ESEPTER\TENDEY.PAS');

   s:=GetCurrentDir+'\ESEPTER\TENDEY.EXE';

   ShellExecute(Handle,'open',PChar(s),nil,nil,SW_RESTORE);

end;

 

procedure TForm3.Label5Click(Sender: TObject);

begin

   Memo1.Lines.LoadFromFile(GetCurrentDir+'\ESEPTER\func.PAS');

   s:=GetCurrentDir+'\ESEPTER\func.EXE';

   ShellExecute(Handle,'open',PChar(s),nil,nil,SW_RESTORE);

end;

 

procedure TForm3.Label5MouseEnter(Sender: TObject);

begin

   Label5.Font.Color:=clAqua;

end;

 

procedure TForm3.Label5MouseLeave(Sender: TObject);

begin

     Label5.Font.Color:=clBlue;

end;

 

procedure TForm3.Label6Click(Sender: TObject);

begin

s:=GetCurrentDir+'\ESEPTER\tpx.EXE';

ShellExecute(Handle,'open',PChar(s),nil,nil,SW_RESTORE);

end;

end.

  //Изменение метки диска

  if not SetDriveLabel(cboDrives.Items[cboDrives.ItemIndex],

                       txtLabel.Text)

  then

    MessageBox(self.Handle, 'Не удалось поменять метку диска', 'Ошибка',

               MB_ICONEXCLAMATION)

  else

    //Перечитаем  информацию о диске

    cboDrivesSelect(self);

procedure TForm1.FormCreate(Sender: TObject);

var

  i: Byte;

begin

  flag1:=0;

  Left := (Screen.Width - Width) div 2;

  Top := (Screen.Height - Height) div 2 - 16;

  with BlendFunc do

     begin

       BlendOp := AC_SRC_OVER;

       BlendFlags := 0;

       SourceConstantAlpha := 127;

       AlphaFormat := 0;

  end;

  BigStream := TBitmap.Create;

  with BigStream do

  begin

    LoadFromFile('Pic Stream_Big.bmp');

    PixelFormat := pf24bit;

    W := Width div 5;

    H := Height;

  end;

  lbInfo.Top := ClientHeight;

  with imgPic1 do

         begin

            SmallW := Width;

            SmallH := Height;

  end;

  with DestR do

  begin

    Left := MaskBevelW;

    Top := MaskBevelW;

    Right := W + MaskBevelW;

    Bottom := H + MaskBevelW;

  end;

  with imgPicRollMask do

  begin

    Width := W + 3 * MaskBevelW;

    Height := H + 3 * MaskBevelW;

    Left := (Form1.ClientWidth - Width) div 2;

       with Canvas do

  begin

      // Dessinez le bevel

      Brush.Color := clBtnFace;

      FillRect(Rect(Width - MaskBevelW, 0, Width, 10));

      FillRect(Rect(0, Height - MaskBevelW, 10, Height));

      for i := 0 to MaskBevelW - 1 do

  begin

        Brush.Color := RGB(10*i, 0, 100 + 15*i);

        FillRect(Rect(i, i, Width - MaskBevelW - i, Height - MaskBevelW - i));      Brush.Color := clLtGray;

      FillRect(Rect(Width - MaskBevelW, MaskBevelW, Width, Height));

      FillRect(Rect(MaskBevelW, Height - MaskBevelW, Width, Height));      CopyRect(DestR, BigStream.Canvas, Rect(0, 0, W, H));

    end;

    Picture.Bitmap.PixelFormat := pf24bit;

end;

  with imgPic1.Picture.Bitmap.Canvas do

begin

    Pen.Mode := pmMask;

    Brush.Color := $DDFFDD;

  end;

end.

implementation