- •Передача данных между процессами посредством сообщений
- •Задание
- •Программа работы
- •Использованные компоненты и методы программы “Source”:
- •Листинг программы “Dest” – приёмник сообщений
- •If not r then ShowMessage('Ошибка передачи сообщения.');
- •Использованные компоненты и методы:
- •Результат работы программ
- •Листинг заголовочного файла программы:
- •Лабораторная работа №2 Создание, запуск и управление процессами в многозадачной ос.
- •Листинг исполняемого файла программы:
- •Результат работы программы:
- •Листинг заголовочного файла программы:
- •Листинг исполняемого файла программы:
- •Результат работы программы:
- •Ответы на контрольные вопросы:
- •Лабораторная работа № 4 Синхронизация задач с помощью событий.
- •Программа работы:
- •Листинг заголовочного файла программы “source”:
- •Листинг исполняемого файла программы “source”:
- •Листинг заголовочного файла программы “dest”:
- •Результат работы программы:
- •Результат работы программы:
- •Ответы на контрольные вопросы:
- •Результат работы программы:
- •Ответы на контрольные вопросы:
Листинг исполняемого файла программы:
object Form1: TForm1
Left = 378
Top = 165
Width = 461
Height = 334
Caption = #1071#1082#1086#1074#1077#1085#1082#1086' '#1044'.'#1040'.'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 32
Top = 144
Width = 76
Height = 20
Caption = #1043#1076#1077' '#1092#1072#1081#1083
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 128
Top = 144
Width = 185
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'C:\'
OnKeyPress = Edit1KeyPress
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 185
Height = 89
Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1079#1072#1087#1091#1089#1082#1072
TabOrder = 1
object RadioButton1: TRadioButton
Left = 8
Top = 16
Width = 161
Height = 17
Caption = #1052#1072#1082#1089#1080#1084#1080#1079#1080#1088#1086#1074#1072#1085#1085#1099#1081' '
TabOrder = 0
end
object RadioButton2: TRadioButton
Left = 8
Top = 32
Width = 113
Height = 17
Caption = #1053#1086#1088#1084#1072#1083#1100#1085#1099#1081
Checked = True
TabOrder = 1
TabStop = True
end
object RadioButton3: TRadioButton
Left = 8
Top = 48
Width = 137
Height = 17
Caption = #1052#1080#1085#1080#1084#1080#1079#1080#1088#1086#1074#1072#1085#1085#1099#1081
TabOrder = 2
end
object RadioButton4: TRadioButton
Left = 8
Top = 64
Width = 113
Height = 17
Caption = #1057#1082#1088#1099#1090#1099#1081
TabOrder = 3
end
end
object GroupBox2: TGroupBox
Left = 248
Top = 8
Width = 201
Height = 89
Caption = #1055#1088#1080#1086#1088#1080#1090#1077#1090
TabOrder = 2
object RadioButton5: TRadioButton
Left = 8
Top = 16
Width = 113
Height = 17
Caption = #1042#1099#1089#1086#1082#1080#1081' '
TabOrder = 0
end
object RadioButton6: TRadioButton
Left = 8
Top = 32
Width = 113
Height = 17
Caption = #1057#1088#1077#1076#1085#1080#1081
Checked = True
TabOrder = 1
TabStop = True
end
object RadioButton7: TRadioButton
Left = 8
Top = 48
Width = 113
Height = 17
Caption = #1053#1080#1079#1082#1080#1081
TabOrder = 2
end
end
object BitBtn1: TBitBtn
Left = 24
Top = 176
Width = 145
Height = 121
TabOrder = 3
OnClick = BitBtn1Click