Разработка программного продукта. Дистанционное обучение автоматизированному проектированию радиоэлектронных средств в виртуальном конструкторском бюро.

DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
CurDir:=GetCurrentDir;
try
reg:=TRegistry.Create;
reg.OpenKey('SOFTWARE\Diplom',false);
//
if FileExists(reg.ReadString('Path1')) then Btn1.Enabled:=true
else Btn1.Enabled:=false;
Btn1.Caption:=reg.ReadString('Name1');
//
if FileExists(reg.ReadString('Path1_2')) then Btn1_2.Enabled:=true
else Btn1_2.Enabled:=false;
Btn1_2.Caption:=reg.ReadString('Name1_2');
//
if FileExists(reg.ReadString('Path2')) then Btn2.Enabled:=true
else Btn2.Enabled:=false;
Btn2.Caption:=reg.ReadString('Name2');
//
if FileExists(reg.ReadString('Path2_3')) then Btn2_3.Enabled:=true
else Btn2_3.Enabled:=false;
Btn2_3.Caption:=reg.ReadString('Name2_3');
//
if FileExists(reg.ReadString('Path2_4')) then Btn2_4.Enabled:=true
else Btn2_4.Enabled:=false;
Btn2_4.Caption:=reg.ReadString('Name2_4');
//
if FileExists(reg.ReadString('Path2_9')) then Btn2_9.Enabled:=true
else Btn2_9.Enabled:=false;
Btn2_9.Caption:=reg.ReadString('Name2_9');
//
if FileExists(reg.ReadString('Path2_13')) then Btn2_13.Enabled:=true
else Btn2_13.Enabled:=false;
Btn2_13.Caption:=reg.ReadString('Name2_13');
//
if FileExists(reg.ReadString('Path2_14')) then Btn2_14.Enabled:=true
else Btn2_14.Enabled:=false;
Btn2_14.Caption:=reg.ReadString('Name2_14');
//
if FileExists(reg.ReadString('Path2_15')) then Btn2_15.Enabled:=true
else Btn2_15.Enabled:=false;
Btn2_15.Caption:=reg.ReadString('Name2_15');
//
if FileExists(reg.ReadString('Path3')) then Btn3.Enabled:=true
else Btn3.Enabled:=false;
Btn3.Caption:=reg.ReadString('Name3');
//
if FileExists(reg.ReadString('Path3_4')) then Btn3_4.Enabled:=true
else Btn3_4.Enabled:=false;
Btn3_4.Caption:=reg.ReadString('Name3_4');
//
if FileExists(reg.ReadString('Path3_5')) then Btn3_5.Enabled:=true
else Btn3_5.Enabled:=false;
Btn3_5.Caption:=reg.ReadString('Name3_5');
//
if FileExists(reg.ReadString('Path4')) then Btn4.Enabled:=true
else Btn4.Enabled:=false;
Btn4.Caption:=reg.ReadString('Name4');
//
if FileExists(reg.ReadString('Path4_5')) then Btn4_5.Enabled:=true
else Btn4_5.Enabled:=false;
Btn4_5.Caption:=reg.ReadString('Name4_5');
//
if FileExists(reg.ReadString('Path5')) then Btn5.Enabled:=true
else Btn5.Enabled:=false;
Btn5.Caption:=reg.ReadString('Name5');
//
if FileExists(reg.ReadString('Path5_1')) then Btn5_1.Enabled:=true
else Btn5_1.Enabled:=false;
Btn5_1.Caption:=reg.ReadString('Name5_1');
//
if FileExists(reg.ReadString('Path6')) then Btn6.Enabled:=true
else Btn6.Enabled:=false;
Btn6.Caption:=reg.ReadString('Name6');
//
if FileExists(reg.ReadString('Path6_3')) then Btn6_3.Enabled:=true
else Btn6_3.Enabled:=false;
Btn6_3.Caption:=reg.ReadString('Name6_3');
//
if FileExists(reg.ReadString('Path7')) then Btn7.Enabled:=true
else Btn7.Enabled:=false;
Btn7.Caption:=reg.ReadString('Name7');
//
if FileExists(reg.ReadString('Path7_4')) then Btn7_4.Enabled:=true
else Btn7_4.Enabled:=false;
Btn7_4.Caption:=reg.ReadString('Name7_4');
//
if FileExists(reg.ReadString('Path7_8')) then Btn7_8.Enabled:=true
else Btn7_8.Enabled:=false;
Btn7_8.Caption:=reg.ReadString('Name7_8');
//
if FileExists(reg.ReadString('Path8')) then Btn8.Enabled:=true
else Btn8.Enabled:=false;
Btn8.Caption:=reg.ReadString('Name8');
//
if FileExists(reg.ReadString('Path8_12')) then Btn8_12.Enabled:=true
else Btn8_12.Enabled:=false;
Btn8_12.Caption:=reg.ReadString('Name8_12');
//
if FileExists(reg.ReadString('Path9')) then Btn9.Enabled:=true
else Btn9.Enabled:=false;
Btn9.Caption:=reg.ReadString('Name9');
//
if FileExists(reg.ReadString('Path9_21')) then Btn9_21.Enabled:=true
else Btn9_21.Enabled:=false;
Btn9_21.Caption:=reg.ReadString('Name9_21');
//
if FileExists(reg.ReadString('Path10')) then Btn10.Enabled:=true
else Btn10.Enabled:=false;
Btn10.Caption:=reg.ReadString('Name10');
//
if FileExists(reg.ReadString('Path10_9')) then Btn10_9.Enabled:=true
else Btn10_9.Enabled:=false;
Btn10_9.Caption:=reg.ReadString('Name10_9');
//
if FileExists(reg.ReadString('Path11')) then Btn11.Enabled:=true
else Btn11.Enabled:=false;
Btn11.Caption:=reg.ReadString('Name11');
//
if FileExists(reg.ReadString('Path11_10')) then Btn11_10.Enabled:=true
else Btn11_10.Enabled:=false;
Btn11_10.Caption:=reg.ReadString('Name11_10');
//
if FileExists(reg.ReadString('Path12')) then Btn12.Enabled:=true
else Btn12.Enabled:=false;
Btn12.Caption:=reg.ReadString('Name12');
//
if FileExists(reg.ReadString('Path12_11')) then Btn12_11.Enabled:=true
else Btn12_11.Enabled:=false;
Btn12_11.Caption:=reg.ReadString('Name12_11');
//
if FileExists(reg.ReadString('Path13')) then Btn13.Enabled:=true
else Btn13.Enabled:=false;
Btn13.Caption:=reg.ReadString('Name13');
//
if FileExists(reg.ReadString('Path14')) then Btn14.Enabled:=true
else Btn14.Enabled:=false;
Btn14.Caption:=reg.ReadString('Name14');
//
if FileExists(reg.ReadString('Path15')) then Btn15.Enabled:=true
else Btn15.Enabled:=false;
Btn15.Caption:=reg.ReadString('Name15');
//
if FileExists(reg.ReadString('Path20_5')) then Btn20_5.Enabled:=true
else Btn20_5.Enabled:=false;
Btn20_5.Caption:=reg.ReadString('Name20_5');
//
if FileExists(reg.ReadString('Path20_6')) then Btn20_6.Enabled:=true
else Btn20_6.Enabled:=false;
Btn20_6.Caption:=reg.ReadString('Name20_6');
//
if FileExists(reg.ReadString('Path20_7')) then Btn20_7.Enabled:=true
else Btn20_7.Enabled:=false;
Btn20_7.Caption:=reg.ReadString('Name20_7');
//
if FileExists(reg.ReadString('Path21_22')) then Btn21_22.Enabled:=true
else Btn21_22.Enabled:=false;
Btn21_22.Caption:=reg.ReadString('Name21_22');
//
finally
end;
end;

procedure TForm1.ExitButtonClick(Sender: TObject);
begin
Close
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path2');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path2')+' '+reg.ReadString('InFile2')),SW_SHOWNORMAL);
end;

procedure TForm1.RxLabel17Click(Sender: TObject);
begin
Step2Form:=TStep2Form.Create(self);
Step2Form.ShowModal;
Step2Form.Free;
end;

procedure TForm1.RxLabel16Click(Sender: TObject);
begin
//
Step1Form:=TStep1Form.Create(self);
Step1Form.ShowModal;
Step1Form.Free;
//
end;

procedure TForm1.Btn1Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path1');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path1')+' '+reg.ReadString('InFile1')),SW_SHOWNORMAL);
end;

procedure TForm1.RxLabel16ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name1';
CurPath:='Path1';
CurInFile:='InFile1';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Btn2Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path2');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path2')+' '+reg.ReadString('InFile2')),SW_SHOWNORMAL);
end;

procedure TForm1.RxLabel5ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name2';
CurPath:='Path2';
CurInFile:='InFile2';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Btn5Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path5');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path5')+' '+reg.ReadString('InFile5')),SW_SHOWNORMAL);
end;

procedure TForm1.RxLabel17ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name5';
CurPath:='Path5';
CurInFile:='InFile5';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.RxLabel7Click(Sender: TObject);
begin
Step4Form:=TStep4Form.Create(self);
Step4Form.ShowModal;
Step4Form.Free;
end;

procedure TForm1.Btn4Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path4');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path4')+' '+reg.ReadString('InFile4')),SW_SHOWNORMAL);
end;

procedure TForm1.RxLabel7ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name4';
CurPath:='Path4';
CurInFile:='InFile4';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Btn3Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path3');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path3')+' '+reg.ReadString('InFile3')),SW_SHOWNORMAL);
end;

procedure TForm1.RxLabel3ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name3';
CurPath:='Path3';
CurInFile:='InFile3';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path3_4');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path3_4')+' '+reg.ReadString('InFile3_4')),SW_SHOWNORMAL);
end;

procedure TForm1.Image2ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name3_4';
CurPath:='Path3_4';
CurInFile:='InFile3_4';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.RxLabel5Click(Sender: TObject);
begin
Step3Form:=TStep3Form.Create(self);
Step3Form.ShowModal;
Step3Form.Free;
end;

procedure TForm1.RxLabel3Click(Sender: TObject);
begin
Step5Form:=TStep5Form.Create(self);
Step5Form.ShowModal;
Step5Form.Free;
end;

procedure TForm1.RxLabel9ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name8';
CurPath:='Path8';
CurInFile:='InFile8';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.RxLabel10ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name12';
CurPath:='Path12';
CurInFile:='InFile12';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Btn8Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path8');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path8')+' '+reg.ReadString('InFile8')),SW_SHOWNORMAL);
end;

procedure TForm1.Btn12Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path12');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path12')+' '+reg.ReadString('InFile12')),SW_SHOWNORMAL);
end;

procedure TForm1.RxSpeedButton1Click(Sender: TObject);
begin
Close
end;

procedure TForm1.Image1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name1_2';
CurPath:='Path1_2';
CurInFile:='InFile1_2';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image3ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name2_3';
CurPath:='Path2_3';
CurInFile:='InFile2_3';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path2_3');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path2_3')+' '+reg.ReadString('InFile2_3')),SW_SHOWNORMAL);
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path1_2');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path1_2')+' '+reg.ReadString('InFile1_2')),SW_SHOWNORMAL);
end;

procedure TForm1.Image33Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path3_5');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path3_5')+' '+reg.ReadString('InFile3_5')),SW_SHOWNORMAL);
end;

procedure TForm1.Image33ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name3_5';
CurPath:='Path3_5';
CurInFile:='InFile3_5';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image11Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path4_5');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path4_5')+' '+reg.ReadString('InFile4_5')),SW_SHOWNORMAL);
end;

procedure TForm1.Image11ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name4_5';
CurPath:='Path4_5';
CurInFile:='InFile4_5';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.RxLabel12ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name10';
CurPath:='Path10';
CurInFile:='InFile10';
//
CurTypeFile:='Type10';
CurHlpFile:='hFile10';
//
Set3Form:=TSet3Form.Create(self);
Set3Form.ShowModal;
Set3Form.Free;
end;

procedure TForm1.RxLabel18ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name11';
CurPath:='Path11';
CurInFile:='InFile11';
//
CurTypeFile:='Type11';
CurHlpFile:='hFile11';
//
Set3Form:=TSet3Form.Create(self);
Set3Form.ShowModal;
Set3Form.Free;
end;

procedure TForm1.Btn10Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path10');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path10')+' '+reg.ReadString('InFile10')),SW_SHOWNORMAL);
end;

procedure TForm1.Btn11Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path11');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path11')+' '+reg.ReadString('InFile11')),SW_SHOWNORMAL);
end;

procedure TForm1.Image13ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name2_4';
CurPath:='Path2_4';
CurInFile:='InFile2_4';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image13Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path2_4');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path2_4')+' '+reg.ReadString('InFile2_4')),SW_SHOWNORMAL);
end;

procedure TForm1.RxLabel11ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name9';
CurPath:='Path9';
CurInFile:='InFile9';
//
CurTypeFile:='Type9';
CurHlpFile:='hFile9';
//
Set3Form:=TSet3Form.Create(self);
Set3Form.ShowModal;
Set3Form.Free;
end;

procedure TForm1.Btn9Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path9');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path9')+' '+reg.ReadString('InFile9')),SW_SHOWNORMAL);
end;

procedure TForm1.Image27ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name8_12';
CurPath:='Path8_12';
CurInFile:='InFile8_12';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image27Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path8_12');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path8_12')+' '+reg.ReadString('InFile8_12')),SW_SHOWNORMAL);
end;

procedure TForm1.Image26Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path12_11');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path12_11')+' '+reg.ReadString('InFile12_11')),SW_SHOWNORMAL);
end;

procedure TForm1.Image26ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name12_11';
CurPath:='Path12_11';
CurInFile:='InFile12_11';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image21Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path11_10');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path11_10')+' '+reg.ReadString('InFile11_10')),SW_SHOWNORMAL);
end;

procedure TForm1.Image21ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name11_10';
CurPath:='Path11_10';
CurInFile:='InFile11_10';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image38Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path10_9');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path10_9')+' '+reg.ReadString('InFile10_9')),SW_SHOWNORMAL);
end;

procedure TForm1.Image38ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name10_9';
CurPath:='Path10_9';
CurInFile:='InFile10_9';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Btn6Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path6');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path6')+' '+reg.ReadString('InFile6')),SW_SHOWNORMAL);
end;

procedure TForm1.Btn7Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path7');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path7')+' '+reg.ReadString('InFile7')),SW_SHOWNORMAL);
end;

procedure TForm1.RxLabel2ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name6';
CurPath:='Path6';
CurInFile:='InFile6';
//
CurTypeFile:='Type6';
CurHlpFile:='hFile6';
//
Set3Form:=TSet3Form.Create(self);
Set3Form.ShowModal;
Set3Form.Free;
end;

procedure TForm1.RxLabel8ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name7';
CurPath:='Path7';
CurInFile:='InFile7';
//
CurTypeFile:='Type7';
CurHlpFile:='hFile7';
//
Set3Form:=TSet3Form.Create(self);
Set3Form.ShowModal;
Set3Form.Free;
end;

procedure TForm1.Btn13Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path13');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path13')+' '+reg.ReadString('InFile13')),SW_SHOWNORMAL);
end;

procedure TForm1.Btn14Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path14');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path14')+' '+reg.ReadString('InFile14')),SW_SHOWNORMAL);
end;

procedure TForm1.Btn15Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path15');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path15')+' '+reg.ReadString('InFile15')),SW_SHOWNORMAL);
end;

procedure TForm1.RxLabel6ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name13';
CurPath:='Path13';
CurInFile:='InFile13';
//
CurTypeFile:='Type13';
CurHlpFile:='hFile13';
//
Set3Form:=TSet3Form.Create(self);
Set3Form.ShowModal;
Set3Form.Free;
end;

procedure TForm1.RxLabel13ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name14';
CurPath:='Path14';
CurInFile:='InFile14';
//
CurTypeFile:='Type14';
CurHlpFile:='hFile14';
//
Set3Form:=TSet3Form.Create(self);
Set3Form.ShowModal;
Set3Form.Free;
end;

procedure TForm1.RxLabel14ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name15';
CurPath:='Path15';
CurInFile:='InFile15';
//
CurTypeFile:='Type15';
CurHlpFile:='hFile15';
//
Set3Form:=TSet3Form.Create(self);
Set3Form.ShowModal;
Set3Form.Free;
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path5_1');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path5_1')+' '+reg.ReadString('InFile5_1')),SW_SHOWNORMAL);
end;

procedure TForm1.Image4ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name5_1';
CurPath:='Path5_1';
CurInFile:='InFile5_1';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image18Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path6_3');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path6_3')+' '+reg.ReadString('InFile6_3')),SW_SHOWNORMAL);
end;

procedure TForm1.Image18ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name6_3';
CurPath:='Path6_3';
CurInFile:='InFile6_3';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.RxLabel10Click(Sender: TObject);
begin
Step6Form:=TStep6Form.Create(self);
Step6Form.ShowModal;
Step6Form.Free;
end;

procedure TForm1.Image14Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path7_4');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path7_4')+' '+reg.ReadString('InFile7_4')),SW_SHOWNORMAL);
end;

procedure TForm1.Image14ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name7_4';
CurPath:='Path7_4';
CurInFile:='InFile7_4';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.RxLabel9Click(Sender: TObject);
begin
Step8Form:=TStep8Form.Create(self);
Step8Form.ShowModal;
Step8Form.Free;
end;

procedure TForm1.RxLabel2Click(Sender: TObject);
begin
reg:=TRegistry.Create;
reg.OpenKey('SOFTWARE\Diplom\Help',false);
FileName:=reg.ReadString('hFile6');
if FileName='' then exit;
if reg.ReadString('Type6')='1' then
begin
DetailForm:=TDetailForm.Create(self);
DetailForm.ShowModal;
DetailForm.Free;
end else
begin
Detail2Form:=TDetail2Form.Create(self);
Detail2Form.ShowModal;
Detail2Form.Free;
end;
end;

procedure TForm1.RxLabel8Click(Sender: TObject);
begin
reg:=TRegistry.Create;
reg.OpenKey('SOFTWARE\Diplom\Help',false);
FileName:=reg.ReadString('hFile7');
if FileName='' then exit;
if reg.ReadString('Type7')='1' then
begin
DetailForm:=TDetailForm.Create(self);
DetailForm.ShowModal;
DetailForm.Free;
end else
begin
Detail2Form:=TDetail2Form.Create(self);
Detail2Form.ShowModal;
Detail2Form.Free;
end;
end;

procedure TForm1.RxLabel6Click(Sender: TObject);
begin
reg:=TRegistry.Create;
reg.OpenKey('SOFTWARE\Diplom\Help',false);
FileName:=reg.ReadString('hFile13');
if FileName='' then exit;
if reg.ReadString('Type13')='1' then
begin
DetailForm:=TDetailForm.Create(self);
DetailForm.ShowModal;
DetailForm.Free;
end else
begin
Detail2Form:=TDetail2Form.Create(self);
Detail2Form.ShowModal;
Detail2Form.Free;
end;
end;

procedure TForm1.RxLabel13Click(Sender: TObject);
begin
reg:=TRegistry.Create;
reg.OpenKey('SOFTWARE\Diplom\Help',false);
FileName:=reg.ReadString('hFile14');
if FileName='' then exit;
if reg.ReadString('Type14')='1' then
begin
DetailForm:=TDetailForm.Create(self);
DetailForm.ShowModal;
DetailForm.Free;
end else
begin
Detail2Form:=TDetail2Form.Create(self);
Detail2Form.ShowModal;
Detail2Form.Free;
end;
end;

procedure TForm1.RxLabel14Click(Sender: TObject);
begin
reg:=TRegistry.Create;
reg.OpenKey('SOFTWARE\Diplom\Help',false);
FileName:=reg.ReadString('hFile15');
if FileName='' then exit;
if reg.ReadString('Type15')='1' then
begin
DetailForm:=TDetailForm.Create(self);
DetailForm.ShowModal;
DetailForm.Free;
end else
begin
Detail2Form:=TDetail2Form.Create(self);
Detail2Form.ShowModal;
Detail2Form.Free;
end;
end;

procedure TForm1.RxLabel18Click(Sender: TObject);
begin
reg:=TRegistry.Create;
reg.OpenKey('SOFTWARE\Diplom\Help',false);
FileName:=reg.ReadString('hFile11');
if FileName='' then exit;
if reg.ReadString('Type11')='1' then
begin
DetailForm:=TDetailForm.Create(self);
DetailForm.ShowModal;
DetailForm.Free;
end else
begin
Detail2Form:=TDetail2Form.Create(self);
Detail2Form.ShowModal;
Detail2Form.Free;
end;
end;

procedure TForm1.RxLabel12Click(Sender: TObject);
begin
reg:=TRegistry.Create;
reg.OpenKey('SOFTWARE\Diplom\Help',false);
FileName:=reg.ReadString('hFile10');
if FileName='' then exit;
if reg.ReadString('Type10')='1' then
begin
DetailForm:=TDetailForm.Create(self);
DetailForm.ShowModal;
DetailForm.Free;
end else
begin
Detail2Form:=TDetail2Form.Create(self);
Detail2Form.ShowModal;
Detail2Form.Free;
end;
end;

procedure TForm1.RxLabel11Click(Sender: TObject);
begin
reg:=TRegistry.Create;
reg.OpenKey('SOFTWARE\Diplom\Help',false);
FileName:=reg.ReadString('hFile9');
if FileName='' then exit;
if reg.ReadString('Type9')='1' then
begin
DetailForm:=TDetailForm.Create(self);
DetailForm.ShowModal;
DetailForm.Free;
end else
begin
Detail2Form:=TDetail2Form.Create(self);
Detail2Form.ShowModal;
Detail2Form.Free;
end;
end;

procedure TForm1.Image15Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path2_13');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path2_13')+' '+reg.ReadString('InFile2_13')),SW_SHOWNORMAL);
end;

procedure TForm1.Image16Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path2_14');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path2_14')+' '+reg.ReadString('InFile2_14')),SW_SHOWNORMAL);
end;

procedure TForm1.Image17Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path2_15');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path2_15')+' '+reg.ReadString('InFile2_15')),SW_SHOWNORMAL);
end;

procedure TForm1.Image15ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name2_13';
CurPath:='Path2_13';
CurInFile:='InFile2_13';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image16ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name2_14';
CurPath:='Path2_14';
CurInFile:='InFile2_14';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image17ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name2_15';
CurPath:='Path2_15';
CurInFile:='InFile2_15';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image37Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path20_5');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path20_5')+' '+reg.ReadString('InFile20_5')),SW_SHOWNORMAL);
end;

procedure TForm1.Image30Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path20_6');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path20_6')+' '+reg.ReadString('InFile20_6')),SW_SHOWNORMAL);
end;

procedure TForm1.Image34Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path20_7');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path20_7')+' '+reg.ReadString('InFile20_7')),SW_SHOWNORMAL);
end;

procedure TForm1.Image37ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name20_5';
CurPath:='Path20_5';
CurInFile:='InFile20_5';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image30ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name20_6';
CurPath:='Path20_6';
CurInFile:='InFile20_6';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image34ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name20_7';
CurPath:='Path20_7';
CurInFile:='InFile20_7';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image28Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path7_8');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path7_8')+' '+reg.ReadString('InFile7_8')),SW_SHOWNORMAL);
end;

procedure TForm1.Image28ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name7_8';
CurPath:='Path7_8';
CurInFile:='InFile7_8';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image39Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path9_21');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path9_21')+' '+reg.ReadString('InFile9_21')),SW_SHOWNORMAL);
end;

procedure TForm1.Image40Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path21_22');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path21_22')+' '+reg.ReadString('InFile21_22')),SW_SHOWNORMAL);
end;

procedure TForm1.Image29Click(Sender: TObject);
begin
temp_st:=reg.ReadString('Path2_9');
while copy(temp_st,length(temp_st),1)<>'\' do delete(temp_st,length(temp_st),1);
SetCurrentDir(temp_st);
WinExec(PChar(reg.ReadString('Path2_9')+' '+reg.ReadString('InFile2_9')),SW_SHOWNORMAL);
end;

procedure TForm1.Image39ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name9_21';
CurPath:='Path9_21';
CurInFile:='InFile9_21';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image40ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name21_22';
CurPath:='Path21_22';
CurInFile:='InFile21_22';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.Image29ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
CurName:='Name2_9';
CurPath:='Path2_9';
CurInFile:='InFile2_9';
SetForm:=TSetForm.Create(self);
SetForm.ShowModal;
SetForm.Free;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Top:=Top - 10;
end;

end.



Температурное поле РЭС состоит из значений температур ее ЭРИ, а также температур различных конструктивных деталей, воздуха внутри аппарата и т.п. Совокупность значений этих температур характеризует тепловой режим РЭС.
Теория теплообмена - наука о процессах распространения теплоты. Различают три основных вида теплообмена: теплопроводность, конвекция и тепловое излучение.
Теплопроводностью (кондукцией) называется молекулярный перенос теплоты в сплошной среде.
Свободная конвекция в ограниченом пространстве обычно рассматривается по аналогии с передачей теплоты путем теплопроводности.
Тепловое излучение - процесс распространения теплоты с электромагнитными волнами.
6 Конвекцией называется перенос теплоты при перемещении объемов «жидкости» (газа или жидкости) в пространстве. Теплообмен между жидкостью или газом и поверхностью твердого тела называют конвективным теплообменом или теплоотдачей.

1 Нестационарный тепловой процесс - непостоянный, изменяющийся во времени.












3





97
































































































































































БЛОК 2
организация анализа ТР РЭС

БЛОК 1
организация ввода исходной информации

УПРАВЛЯЮЩАЯ ПРОГРАММА ПОДСИСТЕМЫ

n

n

n

n

n

n

1

TForm

TVetvForm

TUzelForm

TModelForm

TParamForm

TBox

TModul

TBlock

TPlastina

TUzel

TVetv

TModel

TMainForm







TObject































БЛОК 11
интепретация и вывод результатов анализа ТР РЭС

МР 1

МР 1

МР 1

МР 1

БЛОК 9
библиотека аналитических моделей типовых законов теплообмена

БЛОК 8
формирование уравнений

БЛОК 10
численное решение СЛАУ

БЛОК 7
организация решения уравнения МТП

A

B

A

B

БЛОК 5
библиотека структур моделей типовых для РЭС условий охлаждения (граничных условий)

БЛОК 5
библиотека сегментов линейных структур моделей типовых конструкций РЭС

БЛОК 4
библиотека моделей элементов

М-П 4

М-П 3

М-П 2

М-П 1

БЛОК 3
управление модулями – предпроцессорами (автоматическое построение МТП)