Показать сообщение отдельно
  #1  
Старый 21.06.2017, 10:30
Daniil Daniil вне форума
Прохожий
 
Регистрация: 02.04.2014
Сообщения: 22
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Установка по нажатию кнопки 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)  ;
И есть еще один вариан то там уже 2 checkbox-a и одна кнопка, три разных программы предполагается запускать.
Ответить с цитированием