Автоматизированная система для локального, удалённого контроля и управления компьютером пользователя

  CloseFile(all_file);

  Reset(all_file);

  tone.Max:=StrToInt(vr0.Text)*60;;

  tone.Position:=StrToInt(vr0.Text)*60;

  tone.Hint:=ed0.Text;

end;

 // проверка времени для первой программы.

procedure TForm2.ch2Click(Sender: TObject);

begin

if ch2.Checked=False then

begin

  ed2.Enabled:=true;

  vr2.Enabled:=true;

  SpeedButton6.Enabled:=true;

  SpeedButton18.Enabled:=True;

 

end else

begin

  ed2.Enabled:=false;

  vr2.Enabled:=false;

  SpeedButton6.Enabled:=false;

   SpeedButton18.Enabled:=false;

end;

end;

 

procedure TForm2.SpeedButton6Click(Sender: TObject);

begin

  all_pril.o_2.mane:=ed2.Text;

  all_pril.o_2.ogr:=StrToInt(vr2.Text);

  write(all_file,all_pril);

  CloseFile(all_file);Изм.

Лист

№ докум.

Подпись

Дата

Лист

62

 

ДП 509000.10101 ПЗ

 

  Reset(all_file);

  tone2.Max:=StrToInt(vr2.Text)*60;;

  tone2.Position:=StrToInt(vr2.Text)*60;

  tone2.Hint:=ed2.Text;

end;

 

 

procedure TForm2.SpeedButton12Click(Sender: TObject);

begin

if FileExists('SkrinPril\one.sas') then

else CopyFile(PChar(Windir+'Documents and Settings\All Users\ASNCP\s1.1'),PChar(ap+'SkrinPril\one.sas'),false);

AssignFile(sk,ap+'SkrinPril\one.sas');

Reset(sk);

skrin.mane:=eds0.Text;

skrin.time:=strtoint(vrs0.Text);

stim.Interval:=StrToInt(vrs0.Text)*1000;

write(sk,skrin);

CloseFile(sk);

CopyFile('SkrinPril\one.sas',PChar(Windir+'cDocuments and Settings\All Users\ASNCP\s1.1'), false);

end;

 

 

procedure TForm2.stimTimer(Sender: TObject);

var s,pat : string;

name : string;

i : integer;

begin

  pat:= ExtractFilePath(Application.ExeName);

  s:=eds0.Text;

if GetProcessByEXE(s)<> 0 then

  begin

       name:=DateTimeToStr(now);

      for i:=1 to Length(name) do

     begin

        if name[i]=':' then name[i]:='.';

     end;

      skrins(pat,s,name);

       pat:=pat+'skrin\'+s+'\'+datetostr(now)+'\'+name+'.jasn';

       sps.Lines.Add(pat);

       sps.Lines.SaveToFile(ap+'skrin\path.oas');

  end;

CopyFile('SkrinPril\one.sas',PChar(Windir+'Documents and Settings\All Users\ASNCP\s1.1'), false);

end;Изм.

Лист

№ докум.

Подпись

Дата

Лист

63

 

ДП 509000.10101 ПЗ

 

 

procedure TForm2.chs1Click(Sender: TObject);

begin

if chs1.Checked=False then

begin

  eds1.Enabled:=true;

  vrs1.Enabled:=true;

  SpeedButton14.Enabled:=true;

  SpeedButton24.Enabled:=true;

  stim1.Enabled:=False;  { tin[12]:='0';

   ini.Text:=tin;

   ini.Lines.SaveToFile(ap+'file\ini.asn');}

end else

begin

  eds1.Enabled:=false;

  vrs1.Enabled:=false;

  SpeedButton14.Enabled:=false;

  SpeedButton24.Enabled:=false;

  stim1.Enabled:=True;

 

end;

end;

 

 

procedure TForm2.SpeedButton14Click(Sender: TObject);

begin

    if FileExists('SkrinPril\tvo.sas') then

    else CopyFile(PChar(Windir+'Documents and Settings\All Users\ASNCP\s2.1'),PChar(ap+'SkrinPril\tvo.sas'),false);

     AssignFile(sk1,ap+'SkrinPril\tvo.sas');

     Reset(sk1);

     skrin1.mane:=eds1.Text;

     skrin1.time:=strtoint(vrs1.Text);

     stim1.Interval:=StrToInt(vrs1.Text)*1000;

     write(sk1,skrin1);

     CloseFile(sk1);

     CopyFile('SkrinPril\tvo.sas',PChar(Windir+'Documents and Settings\All Users\ASNCP\s2.1'), false);

end;

 

procedure TForm2.SpeedButton15Click(Sender: TObject);

begin

    if FileExists('SkrinPril\hree.sas') then

    else CopyFile(PChar(Windir+'Documents and Settings\All Users\ASNCP\s3.1'),PChar(ap+'SkrinPril\hree.sas'),false);

     AssignFile(sk2,ap+'SkrinPril\hree.sas');

     Reset(sk2);

     skrin2.mane:=eds2.Text;

     skrin2.time:=strtoint(vrs2.Text);

     stim2.Interval:=StrTИзм.

Лист

№ докум.

Подпись

Дата

Лист

64

 

ДП 509000.10101 ПЗ

oInt(vrs2.Text)*1000;

     write(sk2,skrin2);

     CloseFile(sk2);

     CopyFile('SkrinPril\hree.sas',PChar(Windir+'Documents and Settings\All Users\ASNCP\s3.1'), false);

end;

 

procedure TForm2.SpeedButton16Click(Sender: TObject);

begin

  if not FileExists('SkrinPril\zero.sas') then

   CopyFile(PChar(Windir+'Documents and Settings\All Users\ASNCP\s4.1'),PChar(ap+'SkrinPril\zero.sas'),false);

     AssignFile(sk3,ap+'SkrinPril\zero.sas');

     Reset(sk3);

     skrin3.mane:=eds3.Text;

     skrin3.time:=strtoint(vrs3.Text);

     stim3.Interval:=StrToInt(vrs3.Text)*1000;

     write(sk3,skrin3);

     CloseFile(sk3);

     CopyFile('SkrinPril\zero.sas',PChar(Windir+'Documents and Settings\All Users\ASNCP\s4.1'), false);

End;

procedure TForm2.SpeedButton11Click(Sender: TObject);

begin

winexec(PChar(ap+'openskri.exe'), SW_SHOW)

end;

 

procedure TForm2.SpeedButton13Click(Sender: TObject);

begin

  winexec(PChar(ap+'restarttime.exe'), SW_SHOW)

end;

 

procedure TForm2.BitBtn1Click(Sender: TObject);

var

  hSnapShot: THandle;

  ProcInfo: TProcessEntry32;

begin

  lst1.Items.Clear;

     hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);

  if (hSnapShot <> THandle(-1)) then

  begin

    ProcInfo.dwSize := SizeOf(ProcInfo);

    if (Process32First(hSnapshot, ProcInfo)) then

    begin

      lst1.items.add(ProcInfo.szExeFile);

      while (Process32Next(hSnapShot, ProcInfo)) do

        lst1.Items.Add(ProcИзм.

Лист

№ докум.

Подпись

Дата

Лист

65

 

ДП 509000.10101 ПЗ

Info.szExeFile);

    end;

    CloseHandle(hSnapShot);

  end;

end;

procedure TForm2.clospanelTimer(Sender: TObject);

var

h:hwnd;

begin

    if h_1.Checked=True then

    begin

      h:=findwindow(nil,PChar(ed_1.text));

      if h<>null then

     PostMessage(h,WM_CLOSE,0,0);

    end;

    if h_2.Checked=True then

    begin

      h:=findwindow(nil,PChar(ed_2.text));

      if h<>null then

     PostMessage(h,WM_CLOSE,0,0);

    end;

    if h_3.Checked=True then

    begin

 

      h:=findwindow(nil,PChar(ed_3.text));

      if h<>null then

     PostMessage(h,WM_CLOSE,0,0);

    end;

    if h_4.Checked=True then

    begin

      h:=findwindow(nil,PChar(ed_4.text));

      if h<>null then

     PostMessage(h,WM_CLOSE,0,0);

    end;

    if h_5.Checked=True then

    begin

      h:=findwindow(nil,PChar(ed_5.text));

      if h<>null then

     PostMessage(h,WM_CLOSE,0,0);

    end;

  if not FileExists(ap+'pril\hand.osn')then

   begin

   CreateDir(PChar(ap+'pril'));

   CopyFile(PChar(Windir+'Documents and Settings\All Users\ASNCP\h.1'),PChar(ap+'pril\hand.osn'),false);

   end;

    AssignFile(okonfile,ap+'pril\hand.osn');

    Reset(okonfile);

    okИзм.

Лист

№ докум.

Подпись

Дата

Лист

66

 

ДП 509000.10101 ПЗ

onper.okon1.name:=ed_1.Text;

    okonper.okon2.name:=ed_2.Text;

    okonper.okon3.name:=ed_3.Text;

    okonper.okon4.name:=ed_4.Text;

    okonper.okon5.name:=ed_5.Text;

    write(okonfile,okonper);

    CloseFile(okonfile);

    CopyFile('pril\hand.osn',PChar(Windir+'Documents and Settings\All Users\ASNCP\h.1'),false);

   //пробная версия

    if form4.chdis.Checked=True then

    begin

      h:=findwindow(nil,PChar('Диспетчер задач Windows'));

      if h<>null then

     PostMessage(h,WM_CLOSE,0,0);

    end;

end;

 

procedure TForm2.SpeedButton17Click(Sender: TObject);

begin

  Form8.Tag:=1;

  //Form2.Hide;

  form8.ShowModal;

end;

 

 

procedure TForm2.h_4Click(Sender: TObject);

begin

if h_4.Checked=False then

begin

  ed_4.Enabled:=true;

  op_4.Enabled:=True;

{  tin[27]:='0';

   ini.Text:=tin;

   ini.Lines.SaveToFile(ap+'file\ini.asn')   }

end else

begin

  ed_4.Enabled:=false;

  op_4.Enabled:=false;

  {tin[27]:='1';

  ini.Text:=tin;

  ini.Lines.SaveToFile(ap+'file\ini.asn')  }

end

end;

 

 

procedure TForm2.loctimTimer(Sender: TObject);

var adspat,namfile,foldname : string;

  p:PROCESSENTRY32;

 Изм.

Лист

№ докум.

Подпись

Дата

Лист

67

 

ДП 509000.10101 ПЗ

ct,th:cardinal;

begin

  if DirectoryExists(form4.edpat.Text)then

  begin

  // УЗНАЁМ ИМЯ компа,  и делаем скриншот

   namfile:=GetComputerNetName+'._';

   foldname:=namfile+'x';

   mmo1.Text:=namfile;

   if not FileExists(form4.edpat.Text+namfile) then

     mmo1.Lines.SaveToFile(form4.edpat.Text+namfile);

   locs(form4.edpat.Text,foldname);

    // записываем список запущенных процессов и создаём папку

     CreateDir(form4.edpat.Text+foldname+'\'+'proc');

     BitBtn1Click(Self);

       lst1.Items.SaveToFile(Windir+'Documents and Settings\All Users\ASNCP\proc.sps');

       CopyFile(PChar(Windir+'Documents and Settings\All Users\ASNCP\proc.sps'),PChar(form4.edpat.Text+foldname+'\proc\proces.sps'),false);

   //список запущенных приложени

     form9.OnActivate(self);

     CreateDir(form4.edpat.Text+foldname+'\'+'pril');

     ListBox1.Items.SaveToFile(windir+'Documents and Settings\All Users\ASNCP\pril.sps');

     CopyFile(PChar(Windir+'Documents and Settings\All Users\ASNCP\pril.sps'),PChar(form4.edpat.Text+foldname+'\pril\pril.sps'),false)

     //ListBox1.Items.SaveToFile(form4.edpat.Text+foldname+'\pril\pril.sps');

     end else

     begin

      icon1.BalloonTitle:='ASNCloseProc';

      icon1.BalloonHint:='Не могу найти путь!'+#13+'Проверте настройки. Возможно отключён сетевой кабель';

      Icon1.BalloonFlags:=bfError;

      icon1.ShowBalloonHint

     end

end;

procedure TForm2.locprinTimer(Sender: TObject);

var

i,POS,int,pos2,time,int2 : integer;

h:hwnd;

s :pchar;

namfile,foldname,stu,rem,massa  : string;

stt : string[100];

  begin

   Изм.

Лист

№ докум.

Подпись

Дата

Лист

68

 

ДП 509000.10101 ПЗ

if DirectoryExists(form4.edpat.Text)then

  begin

       namfile:=GetComputerNetName+'._';

       foldname:=namfile+'x';

      // сообщения

      if FileExists(form4.edpat.Text+foldname+'\message.spИзм.

Лист

№ докум.

Подпись

Дата

Лист

69

 

ДП 509000.10101 ПЗ

s') then

      begin

         messag.Lines.LoadFromFile(form4.edpat.Text+foldname+'\message.sps');

         DeleteFile(form4.edpat.Text+foldname+'\message.sps');

         //проба

         Form13.mess.Lines.Clear;