|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Установка по нажатию кнопки bitbtn
Всем привет! не могу сообразить, вроде на правильном пути но все же не работает моя задумка, суть в том, что бы по нажатию кнопки устанавливалась одна программа а при нажатом checkbox и по нажатию все той же кнопки устанавливалась другая программа: Пример кода:
Код:
procedure TForm4.Image13Click(Sender: TObject); begin if CheckBox3.checked then begin CheckBox3.Enabled:=true; begin //--------------------avast if FileExists('\\PCServer\Distrib\Avast\avast.exe') then WinExec('\\PCServer\Distrib\Avast\.exe',1) else ShowMessage('File not found,'); //-------------------------------------------- end; end else //------------------- NOD32----------------------- if MessageDlg('Скопируйте инсталяционный пакет согласно разрядности системы и запустите установку ( Только для сотрудников ).',mtConfirmation,[mbYes,mbNo],0)= mrYes then winexec('explorer \\PCServer\autoinstall\NOD42_2018\Eset_NOD42_2018',SW_SHOW) end; Второй вариант тоже не работает: Код:
//-----------Tight ------- if FileExists('\\PSServer\autoinstall\TightVNC 2.7.exe') then WinExec('\\PSServer\autoinstall\TightVNC 2.7.exe',1) else if CheckBox7.checked= false then begin if FileExists('\\PSServer\autoinstall\tightvnc-2-setup.exe') then WinExec('\\PSServer\autoinstall\tightvnc-2-setup.exe',1) ; Последний раз редактировалось Daniil, 21.06.2017 в 11:00. |