Листинг головной программы представлен ниже:
unit Temi;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
Windows;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
RadioGroup1: TRadioGroup;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button2Click(Sender: TObject);
begin
HALT(1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
-1 : ShowMessage('Отметьте тему и нажмите ВЫБОР');
0 : ShellExecute(0, 'open', 'c:\TEST_LOC\t01_alkani.exe', nil, nil, SW_SHOWNORMAL);
1 : ShellExecute(0, 'open', 'c:\TEST_LOC\t02_Alkeni.exe', nil, nil, SW_SHOWNORMAL);
2 : ShellExecute(0, 'open', 'c:\TEST_LOC\t03_DIENI.exe', nil, nil, SW_SHOWNORMAL);
3 : ShellExecute(0, 'open', 'c:\TEST_LOC\t04_Alkini.exe', nil, nil, SW_SHOWNORMAL);
4 : ShellExecute(0, 'open', 'c:\TEST_LOC\t05_Areni.exe', nil, nil, SW_SHOWNORMAL);
5 : ShellExecute(0, 'open', 'c:\TEST_LOC\t06_Cikli.exe', nil, nil, SW_SHOWNORMAL);
6 : ShellExecute(0, 'open', 'c:\TEST_LOC\t07_Terpeni.exe', nil, nil, SW_SHOWNORMAL);
7 : ShellExecute(0, 'open', 'c:\TEST_LOC\t08_gpu.exe', nil, nil, SW_SHOWNORMAL);
8 : ShellExecute(0, 'open', 'c:\TEST_LOC\t09_alkanoli.exe', nil, nil, SW_SHOWNORMAL);
9 : ShellExecute(0, 'open', 'c:\TEST_LOC\t10_polioli.exe', nil, nil, SW_SHOWNORMAL);
10 : ShellExecute(0, 'open', 'c:\TEST_LOC\t11_Fenoli.exe', nil, nil, SW_SHOWNORMAL);
11 : ShellExecute(0, 'open', 'c:\TEST_LOC\t12_PrEfir.exe', nil, nil, SW_SHOWNORMAL);
12 : ShellExecute(0, 'open', 'c:\TEST_LOC\t13_Aldegid.exe', nil, nil, SW_SHOWNORMAL);
13 : ShellExecute(0, 'open', 'c:\TEST_LOC\t14_Ketoni.exe', nil, nil, SW_SHOWNORMAL);
14 : ShellExecute(0, 'open', 'c:\TEST_LOC\t15_Xinoni.exe', nil, nil, SW_SHOWNORMAL);
15 : ShellExecute(0, 'open', 'c:\TEST_LOC\t16_R-COOH.exe', nil, nil, SW_SHOWNORMAL);
16 : ShellExecute(0, 'open', 'c:\TEST_LOC\t17_AlkenAcid.exe', nil, nil, SW_SHOWNORMAL);
17 : ShellExecute(0, 'open', 'c:\TEST_LOC\t18_ArenAcid.exe', nil, nil, SW_SHOWNORMAL);
18 : ShellExecute(0, 'open', 'c:\TEST_LOC\t19_R(COOH)2.exe', nil, nil, SW_SHOWNORMAL);
19 : ShellExecute(0, 'open', 'c:\TEST_LOC\t20_GalAngidrid.exe', nil, nil, SW_SHOWNORMAL);
20 : ShellExecute(0, 'open', 'c:\TEST_LOC\t21_Angidridi.exe', nil, nil, SW_SHOWNORMAL);
21 : ShellExecute(0, 'open', 'c:\TEST_LOC\t22_SlEfiri.exe', nil, nil, SW_SHOWNORMAL);
22 : ShellExecute(0, 'open', 'c:\TEST_LOC\t23_Amidi.exe', nil, nil, SW_SHOWNORMAL);
23 : ShellExecute(0, 'open', 'c:\TEST_LOC\t24_Nitrili.exe', nil, nil, SW_SHOWNORMAL);
24 : ShellExecute(0, 'open', 'c:\TEST_LOC\t25_Stereo.exe', nil, nil, SW_SHOWNORMAL);
25 : ShellExecute(0, 'open', 'c:\TEST_LOC\t26_OH-Acid.exe', nil, nil, SW_SHOWNORMAL);
26 : ShellExecute(0, 'open', 'c:\TEST_LOC\t27_OksoAcid.exe', nil, nil, SW_SHOWNORMAL);
27 : ShellExecute(0, 'open', 'c:\TEST_LOC\t28_SmolAcid.exe', nil, nil, SW_SHOWNORMAL);
28 : ShellExecute(0, 'open', 'c:\TEST_LOC\t29_Monozi.exe', nil, nil, SW_SHOWNORMAL);
6
Стр.7