Приложение. procedure TForm1.Label2Click(Sender: TObject);

unit Unit1;

procedure TForm1.Label2Click(Sender: TObject);

begin

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'HTML\5.htm');

end;

procedure TForm1.Label3Click(Sender: TObject);

begin

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'HTML\11.htm');

end;

procedure TForm1.Label4Click(Sender: TObject);

begin

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'HTML\2.htm');

end;

procedure TForm1.Label5Click(Sender: TObject);

begin

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'HTML\3.htm');

end;

procedure TForm1.Label6Click(Sender: TObject);

begin

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'HTML\31.htm');

end;

procedure TForm1.Label7Click(Sender: TObject);

begin

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'HTML\32.htm');

end;

procedure TForm1.Label8Click(Sender: TObject);

begin

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'HTML\33.htm');

end;

procedure TForm1.Label9Click(Sender: TObject);

begin

WebBrowser1. Navigate (ExtractFilePath (Application. ExeName) + 'HTML\34.htm');

end;

procedure TForm1.Label10Click(Sender: TObject);

begin

WebBrowser1. Navigate (ExtractFilePath (Application. ExeName) + 'HTML\4.htm');

end;

procedure TForm1.Label11Click(Sender: TObject);

begin

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'HTML\41.htm');

end;

procedure TForm1.Label12Click(Sender: TObject);

begin

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'HTML\42.htm');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Label2.Visible:=False;

Label3.Visible:=False;

Label4.Visible:=False;

Label5.Visible:=False;

Label6.Visible:=False;

Label7.Visible:=False;

Label8.Visible:=False;

Label9.Visible:=False;

Label10.Visible:=False;

Label11.Visible:=False;

Label12.Visible:=False;

Label13.Visible:=False;

Label14.Visible:=False;

Button1.Visible:=False;

Button2.Visible:=true;

Button3.Visible:=False;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Label2.Visible:=true;

Label3.Visible:=true;

Label4.Visible:=true;

Label5.Visible:=true;

Label6.Visible:=true;

Label7.Visible:=true;

Label8.Visible:=true;

Label9.Visible:=true;

Label10.Visible:=true;

Label11.Visible:=true;

Label12.Visible:=true;

Label13.Visible:=true;

Label14.Visible:=true;

Button2.Visible:=False;

Button1.Visible:=true;

Button3.Visible:=True;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Dsjl1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Label2.Visible:=true;

Label3.Visible:=true;

Label4.Visible:=true;

Label5.Visible:=true;

Label6.Visible:=true;

Label7.Visible:=true;

Label8.Visible:=true;

Label9.Visible:=true;

Label10.Visible:=true;

Label11.Visible:=true;

Label12.Visible:=true;

Button2.Visible:=False;

Button1.Visible:=true;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

WinExec('2\Project1.exe', sw_restore);

end;

procedure TForm1.Label13Click(Sender: TObject);

begin

WebBrowser1. Navigate (ExtractFilePath (Application. ExeName) + 'HTML\45 htm');

end;

procedure TForm1.Label14Click(Sender: TObject);

begin

WebBrowser1. Navigate(ExtractFilePath(Application.ExeName)+'HTML\9.htm');

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

ShellExecute(Handle,nil,PChar('C:\Program Files\Borland\CBuilder6\Bin.exe'),nil,nil,SW_RESTORE);

end;

end.

Дата добавления: 2015-10-13