[Daniil]

Всем привет! не могу сообразить, вроде на правильном пути но все же не работает моя задумка, суть в том, что бы по нажатию кнопки устанавливалась одна программа а при нажатом 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 и одна кнопка, три разных программы предполагается запускать.

[Alegun]

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 if CheckBox3.checked then
  begin
  //--------------------avast
 // CheckBox3.Enabled:= FileExists('\\PCServer\Distrib\Avast\avast.exe');
   if WinExec('\\PCServer\Distrib\Avast\.exe',1) < 32 then
    ShowMessage('File not found,');
  end else
   begin
   //------------------- NOD32-----------------------
    if MessageDlg('Скопируйте инсталяционный пакет согласно разрядности' +
     ' системы и запустите установку ( Только для сотрудников ).',
      mtConfirmation,[mbYes,mbNo],0)= mrYes then
       if WinExec('explorer \\PCServer\autoinstall\NOD42_2018\Eset_NOD42_2018',SW_SHOW) < 32 then
        ShowMessage('File not found,');
   end;
end;

[Daniil]

Что означает < 32 then???

[Daniil]

При этом действии выводит ShowMessage('File not found,'); Путь до файла правильный , сам файл существует, выполняю это все на win 10! возможно это и есть причина?
if CheckBox3.checked then
begin
//--------------------avast
// CheckBox3.Enabled:= FileExists('\\PCServer\Distrib\Avast\avast.exe');
if WinExec('\\PCServer\Distrib\Avast\.exe',1) < 32 then
ShowMessage('File not found,');
Проверил на xp, работает.В режиме совместимости windows 7 на 10-ке, не работает.

[Alegun]

Сообщение от Daniil

Что означает < 32 then???

function WinExec - If the function succeeds, it returns a value greater than 32. If the function fails, it returns an error value that indicates the cause of the failure. The return value is cast as an HINSTANCE for backward compatibility with 16-bit Windows applications. It is not a true HINSTANCE, however. It can be cast only to an int and compared to either 32 or the following error codes below.

Это устаревшая функция, вместо неё лучше вызвать ShellExecuteEx(), а ещё лучше CreateProcess()