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

Groupbox 1..7

Speedbutton1..37

ASN.exe

Zagruzka.pas

 

Bitbtn 1..2

Maskedit1

 

 

Richedit 1

 

Memo 1..4

 

Button 1..2

 

 

Image 1

Image 1

Timer 1..9

 

 

Label 1..3

 

Progressbar1..6

 

Label 1.13

 

Image 1

Timer 1

 

 

 

 

 

ПРИЛОЖЕНИЕ  ЛИзм.

Лист

№ докум.

Подпись

Дата

Лист

48

 

ДП 509000.10101 ПЗ

 

(рекомендуемо)

Листинг программных  модулей

Asn.exe

Лиситниг 1 – модуль zagruzka.pas

// настройки...

procedure tform1.readparam;

Var IniFile:TIniFile;

begin

IniFile:=TIniFile.Create('option.ini');

Form2.ch0.Checked:=inifile.ReadBool('MAIN','ch0',true);

Form2.ch2.Checked:=inifile.ReadBool('MAIN','ch2',true);

Form2.ch3.Checked:=inifile.ReadBool('MAIN','ch3',true);

Form2.ch4.Checked:=inifile.ReadBool('MAIN','ch4',true);

Form2.ch5.Checked:=inifile.ReadBool('MAIN','ch5',true);

Form2.ch6.Checked:=inifile.ReadBool('MAIN','ch6',true);

Form2.h_1.Checked:=inifile.ReadBool('MAIN','h_1',true);

Form2.h_2.Checked:=inifile.ReadBool('MAIN','h_2',true);

Form2.h_3.Checked:=inifile.ReadBool('MAIN','h_3',true);

Form2.h_4.Checked:=inifile.ReadBool('MAIN','h_4',true);

Form2.h_5.Checked:=inifile.ReadBool('MAIN','h_5',true);

Form2.chs0.Checked:=inifile.ReadBool('MAIN','chs0',true);

Form2.chs1.Checked:=inifile.ReadBool('MAIN','chs1',true);

Form2.chs2.Checked:=inifile.ReadBool('MAIN','chs2',true);

Form2.chs3.Checked:=inifile.ReadBool('MAIN','chs3',true);

//

Form4.chstart.Checked:=inifile.ReadBool('OPT_GENERAL','azw',true);//29

Form4.chdis.Checked:=inifile.ReadBool('OPT_GENERAL','dis',true);    // 8

Form4.fon.Checked:=inifile.ReadBool('OPT_GENERAL','fon',true);        // 9

Form4.ttim.Checked:=inifile.ReadBool('OPT_GENERAL','tim',false);      // 10

Form4.son.Checked:=inifile.ReadBool('OPT_GENERAL','sound',false);      // 20

//

Form4.chpasvix.Checked:=inifile.ReadBool('OPT_SC','p',Form4.chpasvix.Checked);

form4.chpasnas.Checked:=inifile.ReadBool('OPT_SC','p1',Form4.chpasnas.Checked);

Form4.pnaspr.Checked:=IniFile.ReadBool('OPT_SC','p2',Form4.pnaspr.Checked);

Form4.pnasckr.Checked:=IniFile.ReadBool('OPT_SC','p3',Form4.pnasckr.Checked);

form4.chcw.CИзм.

Лист

№ докум.

Подпись

Дата

Лист

49

 

ДП 509000.10101 ПЗ

hecked:=IniFile.ReadBool('OPT_SC','p4',Form4.chcw.Checked);

//

 

Form4.edpat.Text:=IniFile.ReadString('OPT_LOC','path','Выберите путь');

Form4.edTim.Text:=inifile.ReadString('OPT_LOC','tim',Form4.edTim.Text);

Form4.loc.Checked:=IniFile.ReadBool('OPT_LOC','activ',Form4.loc.Checked);

//

vr.datu:=IniFile.ReadDate('DATE','Data',vr.datu);

IniFile.Free;

end;

procedure Tform1.writeparam;

Var IniFile:TIniFile;

begin

IniFile:=TIniFile.Create('option.ini');

inifile.WriteBool('MAIN','ch0',Form2.ch0.Checked);

inifile.WriteBool('MAIN','ch2',Form2.ch2.Checked);

inifile.WriteBool('MAIN','ch3',Form2.ch3.Checked);

inifile.WriteBool('MAIN','ch4',Form2.ch4.Checked);

inifile.WriteBool('MAIN','ch5',Form2.ch5.Checked);

inifile.WriteBool('MAIN','ch6',Form2.ch6.Checked);

inifile.WriteBool('MAIN','h_1',form2.h_1.Checked);

inifile.WriteBool('MAIN','h_2',form2.h_2.Checked);

inifile.WriteBool('MAIN','h_3',form2.h_3.Checked);

inifile.WriteBool('MAIN','h_4',form2.h_4.Checked);

inifile.WriteBool('MAIN','h_5',form2.h_5.Checked);

inifile.WriteBool('MAIN','chs0',Form2.chs0.Checked);

inifile.WriteBool('MAIN','chs1',Form2.chs1.Checked);

inifile.WriteBool('MAIN','chs2',Form2.chs2.Checked);

inifile.WriteBool('MAIN','chs3',Form2.chs3.Checked);

//GEBERAL

inifile.WriteBool('OPT_GENERAL','azw',Form4.chstart.Checked);

inifile.WriteBool('OPT_GENERAL','dis',Form4.chdis.Checked);

inifile.WriteBool('OPT_GENERAL','fon',Form4.fon.Checked);

inifile.WriteBool('OPT_GENERAL','tim',Form4.ttim.Checked);

inifile.WriteBool('OPT_GENERAL','sound',Form4.son.Checked);

//

IniFile.WriteBool('OPT_SC','p',form4.chpasvix.Checked);

IniFile.WriteBool('OPT_SC','p1',Form4.chpasnas.Checked);

IniFile.WriteBool('OPT_SC','p2',Form4.pnaspr.Checked);

IniFile.WriteBool('OPT_SC','p3',Form4.pnasckr.Checked);

IniFile.WriteBool('OPT_SC','p4',Form4.chcw.Checked);

//

inifile.WriteString('OPT_LOC','path',form4.edpat.Text);

IniFile.WriteString('OPT_LOC','tim',Form4.edTim.Text);

IniFile.WriteBool('OPT_LOC','activ',Form4.loc.Checked);

//

IniFile.WriteDaИзм.

Лист

№ докум.

Подпись

Дата

Лист

50

 

ДП 509000.10101 ПЗ

te('DATE','Data',vr.datu);

iniFile.Free;

end;

// запускаем форму2. и  проверяем, если в настройках  стоит в трее

 // то запускаем свёрнутым....

procedure tform1.timzap(s,m,c,d : integer);

begin

  AssignFile(tm,ap+'file\time.vsa') ;

  Reset(tm);

  tim.sek:=s;

  tim.min:=m;

  tim.chas:=c;

  tim.den:=d;

  write(tm,tim);

  CloseFile(tm);

  CopyFile('file\time.vsa',PChar(Docdir+'t.1'), false);

  CopyFile(PChar(ap+'file\ini.asn'),PChar(Docdir+'i.1'),false);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Button1Click(SELF);

form2.start.Enabled:=True;

iniClick(self);

   if not Form4.fon.Checked then

   begin

    form1.Visible:=False;

    form2.Show;

    timer1.Enabled:=False;

   end

   else

   begin

     form1.Visible:=False;

     timer1.Enabled:=False;

   end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

//var i : integer;

begin

// прячем иконку....

Application.CreateHandle;

ShowWindow(Application.Handle, sw_Hide);

// чё то типа активации  клавы....

KeyPreview := true;

// запрещаем повторный  запуск------------------//-

if WaitForSingleObject(hMutex, 0)<>0 then     //-                                      //-

    Application.Terminate;                   //-

ap:= ExtractFilePath(Application.ExeName);                                    //-

end;

Изм.

Лист

№ докум.

Подпись

Дата

Лист

 

ДП 509000.10101 ПЗ

 

procedure TForm1.FormActivate(Sender: TObject);

var i : Integer;

begin

  // узнаём асболютный путь и создаём папки

   s:=ExtractFileName(Application.ExeName);

  // readparam;

   // пересздаём каталоги... но файлы не трогаем...

   CreateDir(WinDir+'Documents and Settings\All Users\ASNCP');

   docdir:=WinDir+'Documents and Settings\All Users\ASNCP\';

   //ShowMessage(docdir);

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

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

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

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

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

   // копируем звуки.....

    copyfile(PChar(ap+'sound\ost.wav'),PChar(docdir+'0.m'),false);

    copyfile(PChar(ap+'sound\zapusk.wav'),PChar(docdir+'z.m'),false);

      //--------------------------------------

    memo1.Text:=s;

    //

    if not GetProcessByEXE('Winsetap.exe')<>0 then

    winexec(PChar('Winsetap.exe'), SW_SHOW);

      begin

         // загрущаем список всех сделаных  скриншотов...))

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

            //showic();

            Application.CreateHandle;

            ShowWindow(Application.Handle, sw_Hide);

            form2.ClientWidth:=444;

     //  проверка  наличия файла(пароля), если нет  копируем

       if not FileExists('ind.#') then

       CopyFile(PChar(Docdir+'p.p'),PChar(ap+'ind.#'),false);

        AssignFile(pas1,ap+'ind.#');

        reset(pas1);

        read(pas1,pass);

        Form2.edpas.Text:=IntToStr(pass.pass);

        CloseFiИзм.

Лист

№ докум.

Подпись

Дата

Лист

52

 

ДП 509000.10101 ПЗ

le(pas1);

        CopyFile(PChar(ap+'ind.#'),PChar(Docdir+'p.p'),false);

    // загрузка файла первого скрина

        if not FileExists(ap+'SkrinPril\one.sas') then

        CopyFile(PChar(Docdir+'s1.1'),PChar(ap+'SkrinPril\one.sas'),false);

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

          Reset(sk);

          read(sk,skrin);

          Form2.eds0.Text:=skrin.mane;

          Form2.vrs0.Text:=IntToStr(skrin.time);

          Form2.stim.Interval:=skrin.time*1000;

          CloseFile(sk);

    // звгрузка второго скина

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

        CopyFile(PChar(Docdir+'s2.1'),PChar(ap+'SkrinPril\tvo.sas'),false);

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

           Reset(sk1);

           read(sk1,skrin1);

            Form2.eds1.Text:=skrin1.mane;

            Form2.vrs1.Text:=IntToStr(skrin1.time);

            Form2.stim1.Interval:=skrin1.time*1000;

          CloseFile(sk1);

     //  загрузка 3го файла

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

       CopyFile(PChar(Docdir+'s3.1'),PChar(ap+'SkrinPril\hree.sas'),false);

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

             Reset(sk2);

            read(sk2,skrin2);

            Form2.eds2.Text:=skrin2.mane;

            Form2.vrs2.Text:=IntToStr(skrin2.time);

            Form2.stim2.Interval:=skrin2.time*1000;

         CloseFile(sk2);

     //  загрузка 4го файла

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

       CopyFile(PChar(Docdir+'s4.1'),PChar(ap+'SkrinPril\zero.sas'),false);

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

          Reset(sk3);

          read(sk3,skrin3);

          Form2.eds3.Text:=skrin3.mane;

          Form2.vrs3.Text:=IntToStr(skrin3.time);

          Form2.stiИзм.

Лист

№ докум.

Подпись

Дата

Лист

53

 

ДП 509000.10101 ПЗ

m3.Interval:=skrin3.time*1000;

        CloseFile(sk3);

        // загрузка  файла с временем

         if not FileExists('file\time.vsa') then

CopyFile(PChar(Docdir+'t.1'),PChar(ap+'file\time.vsa'),false);

            AssignFile(tm,ap+'file\time.vsa') ;

            reset(tm);

            read(tm,tim);

            Form2.sek.Position:=tim.sek;

            Form2.sekk.Caption:=IntToStr(tim.sek);

            Form2.min.Position:=tim.min;

            Form2.minn.Caption:=IntToStr(tim.min);

            Form2.chas.Position:=tim.chas;