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