|
#46
|
|||
|
|||
Подскажите, процедуру, чтобы при нажатии кнопки открывался pdf или txt файл. Путь к файлу заранее известен, лежит вместе с файлами проекта.
И ещё. Код:
procedure TForm1.Button3Click(Sender: TObject); begin if (Form3.CheckBox1.Checked= True) and (LabeledEdit1.Text<>'FAR') and (LabeledEdit2.Text<>'ААА') then ShowMessage ('Доступ закрыт.') else begin if (LabeledEdit1.Text='') and (LabeledEdit2.Text<>'') then ShowMessage ('Введите ник!') else if (LabeledEdit1.Text<>'') and (LabeledEdit2.Text='') then ShowMessage ('Введите пароль!') else if (LabeledEdit1.Text='') and (LabeledEdit2.Text='') then ShowMessage ('Введите и ник, и пароль!') else begin Form2.Show ; if (LabeledEdit1.Text='FAR') and (LabeledEdit2.Text='ААА') then begin Form2.Label1.Caption:= 'Сейчас на сайте:'+ #32+Form1.LabeledEdit1.Text + #32+ '(Админ!)' ; Form2.Button2.Visible:= True end else begin Form2.Label1.Caption:= 'Сейчас на сайте:'+ #32+Form1.LabeledEdit1.Text ; Form2.Button2.Visible:= False end; end; end; end; |