21.06.2017, 12:08
|
|
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Код:
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;
|