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

            form2.chass.Caption:=IntToStr(tim.chas);

            Form2.den.Position:=tim.den;

            Form2.denn.Caption:=IntToStr(tim.den);

            CloseFile(tm);

    // загрузка общего файла

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

          CopyFile(PChar(Docdir+'h.1'),PChar(ap+'pril\hand.osn'),false);

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

          reset(okonfile);

          read(okonfile,okonper);

          form2.ed_1.Text:=okonper.okon1.name;

          form2.ed_2.Text:=okonper.okon2.name;

          form2.ed_3.Text:=okonper.okon3.name;

          form2.ed_4.Text:=okonper.okon4.name;

          form2.ed_5.Text:=okonper.okon5.name;

          CloseFile(okonfile);

 

     //-------------------всё в одном фале ----------------

    // betka - пробуем создать всё oдним файлом...)

   // if not FileExists(ap+'pril\all.tsaa') then

 

           AssignFile(all_file,ap+'pril\all.tsaa');

           Reset(all_file);

           read(all_file,all_pril);

      // загрузка первой проги, и проверка наличия файла!)))

        Form2.ed0.Text:=all_pril.o_1.mane;

        Form2.vr0.Text:=IntToStr(all_pril.o_1.ogr);

        Form2.tone.Max:=all_pril.o_1.ogr*60;

        Form2.tone.Hint:=all_pril.o_1.mane;       i:=dostdat(all_pril.o_1.data,IntToStr(all_pril.o_1.index));

        case i ofИзм.

Лист

№ докум.

Подпись

Дата

Лист

54

 

ДП 509000.10101 ПЗ

 

        0 : Form2.tone.Position:=all_pril.o_1.ogr*60;

        1 : Form2.tone.Position:=all_pril.o_1.ost;

        2 : Form2.tone.Position:=0;

        end;

        // вторая....)) Гы))

        Form2.ed2.Text:=all_pril.o_2.mane;

        Form2.vr2.Text:=IntToStr(all_pril.o_2.ogr);

        Form2.tone2.Max:=all_pril.o_2.ogr*60;

        Form2.tone2.Hint:=all_pril.o_2.mane;

 

        i:=dostdat(all_pril.o_2.data,IntToStr(all_pril.o_2.index));

        case i of

        0 : Form2.tone2.Position:=all_pril.o_2.ogr*60;

        1 : Form2.tone2.Position:=all_pril.o_2.ost;

        2 : Form2.tone2.Position:=0;

 

        end;

        // третья гы)))

        Form2.ed3.Text:=all_pril.o_3.mane;

        Form2.vr3.Text:=IntToStr(all_pril.o_3.ogr);

        Form2.tone3.Max:=all_pril.o_3.ogr*60;

        Form2.tone3.Hint:=all_pril.o_3.mane;

     i:=dostdat(all_pril.o_3.data,IntToStr(all_pril.o_3.index));

        case i of

        0 : Form2.tone3.Position:=all_pril.o_3.ogr*60;

        1 : Form2.tone3.Position:=all_pril.o_3.ost;

        2 : Form2.tone3.Position:=0;

        end;

      //4 гыыы.....

        Form2.ed4.Text:=all_pril.o_4.mane;

        Form2.vr4.Text:=IntToStr(all_pril.o_4.ogr);

        Form2.tone4.Max:=all_pril.o_4.ogr*60;

        Form2.tone4.Hint:=all_pril.o_4.mane;   i:=dostdat(all_pril.o_4.data,IntToStr(all_pril.o_4.index));

        case i ofИзм.

Лист

№ докум.

Подпись

Дата

Лист

55

 

ДП 509000.10101 ПЗ

 

        0 : Form2.tone4.Position:=all_pril.o_4.ogr*60;

        1 : Form2.tone4.Position:=all_pril.o_4.ost;

        2 : Form2.tone4.Position:=0;     

        end;

       //5

        Form2.ed5.Text:=all_pril.o_5.mane;

        Form2.vr5.Text:=IntToStr(all_pril.o_5.ogr);

        Form2.tone5.Max:=all_pril.o_5.ogr*60;

        Form2.tone5.Hint:=all_pril.o_5.mane;

       i:=dostdat(all_pril.o_5.data,IntToStr(all_pril.o_5.index));

 

        case i of

        0 : Form2.tone5.Position:=all_pril.o_5.ogr*60;

        1 : Form2.tone5.Position:=all_pril.o_5.ost;

        2 : Form2.tone5.Position:=0;

        end;

       //6

        Form2.ed6.Text:=all_pril.o_6.mane;

        Form2.vr6.Text:=IntToStr(all_pril.o_6.ogr);

        Form2.tone6.Max:=all_pril.o_6.ogr*60;

        Form2.tone6.Hint:=all_pril.o_6.mane;

 

        i:=dostdat(all_pril.o_6.data,IntToStr(all_pril.o_6.index));

 

        case i of

        0 : Form2.tone6.Position:=all_pril.o_6.ogr*60;

        1 : Form2.tone6.Position:=all_pril.o_6.ost;

        2 : Form2.tone6.Position:=0;

        end;

      end;

      timer1.Enabled:=true;

end;

 

procedure TForm1.iniClick(Sender: TObject);

begin

     readparam;

  Form2.icon1.Visible:=True;

        if Form4.son.Checked then

         begin

           Form2.mp1.FileName:=(ap+'sound\zapusk.wav');

           Form2.mp1.Open;

           form2.mp1.Play;

           form4.son.Checked:=True;

         end;

    Form2.startИзм.

Лист

№ докум.

Подпись

Дата

Лист

56

 

ДП 509000.10101 ПЗ

.Enabled:=True;

    Form2.all_tmr.Enabled:=True

   end;

 

procedure TForm1.vremTimer(Sender: TObject);

begin

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

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

  Form2.sek.Position:=form2.sek.Position+1;

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

  timzap(form2.sek.Position,Form2.min.Position,Form2.chas.Position,form2.den.Position);

if Form2.sek.Position>59 then

  begin

      Form2.sek.Position:=0;

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

      timzap(form2.sek.Position,Form2.min.Position,Form2.chas.Position,form2.den.Position);

      Form2.min.Position:= Form2.min.Position+1;

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

      timzap(form2.sek.Position,Form2.min.Position,Form2.chas.Position,form2.den.Position);

 

     if Form2.min.Position>59 then

      begin

         Form2.min.Position:=0;

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

         timzap(form2.sek.Position,Form2.min.Position,Form2.chas.Position,form2.den.Position);

         form2.chas.Position:=Form2.chas.Position+1;

         Form2.chass.Caption:=IntToStr(Form2.chas.Position);

         timzap(form2.sek.Position,Form2.min.Position,Form2.chas.Position,form2.den.Position);

           if Form2.chas.Position>24 then

           begin

               Form2.chas.Position:=0;

               Form2.chass.Caption:=IntToStr(Form2.chas.Position);

               timzap(form2.sek.Position,Form2.min.Position,Form2.chas.Position,form2.den.Position);

               form2.dИзм.

Лист

№ докум.

Подпись

Дата

Лист

57

 

ДП 509000.10101 ПЗ

en.Position:= Form2.den.Position+1;

               Form2.denn.Caption:=IntToStr(Form2.den.Position);

               timzap(form2.sek.Position,Form2.min.Position,Form2.chas.Position,form2.den.Position);

           end

      end

  end;

    Form2.s1.Caption:=form2.sekk.Caption;

    Form2.m1.Caption:=Form2.minn.Caption;

    Form2.c1.Caption:=form2.chass.Caption;

    Form2.d1.Caption:=Form2.denn.Caption;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  if not FileExists('file\otch.asn')then

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

  memo1.Lines.LoadFromFile(ap+'file\otch.asn');

  if not FileExists('file\date.asn') then

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

    date.Lines.LoadFromFile(ap+'file\date.asn');

if date.Text=DateToStr(now) then

    begin

      Memo1.Lines.Add('Время : '+TimeToStr(now)+'  Минут : '+inttostr(tim.min)+'  Часов : '+ IntToStr(tim.chas)+'  Дней : '+inttostr(tim.den));

    end

    else

    begin

     Memo1.Lines.Add('===============================');

     memo1.Lines.Add(DateToStr(now));

     Memo1.Lines.Add('_______________________________');

     memo1.Lines.Add('Время : '+TimeToStr(now)+'  Минут : '+inttostr(tim.min)+'  Часов : '+ IntToStr(tim.chas)+'  Дней : '+inttostr(tim.den));

    end;

    date.Text:=DateToStr(now);

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

    memo1.Lines.SaveToFile(ap+'file\otch.asn');

end;

 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftSИзм.

Лист

№ докум.

Подпись

Дата

Лист

58

 

ДП 509000.10101 ПЗ

tate);

begin

if ((ssAlt in Shift) and (Key = VK_F4)) then Key := 0;

end;

 

procedure TForm1.btn1Click(Sender: TObject);

begin

writeparam;

end;

 

initialization

 

  hMutex := CreateMutex(nil, True, PChar(ExtractFileName(Application.ExeName)));

finalization

  CloseHandle(hMutex);

end.

 

Листинг 2 – main.pas

Изм.

Лист

№ докум.

Подпись

Дата

Лист

59

 

ДП 509000.10101 ПЗ

 

{$R *.dfm}

//имя компа узнаём

  function GetComputerNetName: string;

var

  buffer: array[0..255] of char;

  size: dword;

begin

  size := 256;

  if GetComputerName(buffer, size) then

    Result := buffer

  else

    Result := ''

end;

     // Закрытие формы

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action:=caNone;

Form1.btn1Click(self);

Form2.Visible:=False;

//Form2.ClientWidth:=444;

end;

 

 

procedure TForm2.N2Click(Sender: TObject);

begin

    if Form4.chpasvix.Checked then

    begin

      Form5.Tag:=2;

      Form5.Show;Изм.

Лист

№ докум.

Подпись

Дата

Лист

 

ДП 509000.10101 ПЗ

 

    end

    else

    begin

      start.Enabled:=False;

      Form1.btn1Click(self);

      closs('Winsetap.exe');

      Form1.Close;

    end;

end;

 

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

Form2.ClientWidth:=444;

form3.rd.Lines.LoadFromFile(ap+'file\otch.asn');

form3.ShowModal;

end;

 

procedure TForm2.SpeedButton2Click(Sender: TObject);

begin

  Form1.writeparam;

  N2Click(Self);

end;

 

procedure TForm2.FormActivate(Sender: TObject);

begin

Application.CreateHandle;

ShowWindow(Application.Handle, sw_Hide);

BitBtn1Click(self);

end;

 

procedure TForm2.SpeedButton3Click(Sender: TObject);

begin

if Form4.chpasnas.Checked then

begin

  form4.BitBtn1Click(Self);

  Form5.Tag:=1;

  Form5.Show;

end else

  begin

    form4.BitBtn1Click(Self);

    Form4.ShowModal;

    end;

end;

 

procedure TForm2.ch0Click(Sender: TObject);

 

begin

if ch0.Checked=False then

beginИзм.

Лист

№ докум.

Подпись

Дата

Лист

 

ДП 509000.10101 ПЗ

 

  ed0.Enabled:=true;

  vr0.Enabled:=true;

  SpeedButton5.Enabled:=true;

  SpeedButton17.Enabled:=True;

 

end else

begin

  ed0.Enabled:=false;

  vr0.Enabled:=false;

  SpeedButton5.Enabled:=false;

  SpeedButton17.Enabled:=false;

end;

end;

 

procedure TForm2.SpeedButton5Click(Sender: TObject);

begin

  all_pril.o_1.mane:=ed0.Text;

  all_pril.o_1.ogr:=StrToInt(vr0.Text);

  write(all_file,all_pril);