Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Сервис онлайн-записи на собственном Telegram-боте
Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание,
но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.Для новых пользователей первый месяц бесплатно. Чат-бот для мастеров и специалистов, который упрощает ведение записей: — Сам записывает клиентов и напоминает им о визите; — Персонализирует скидки, чаевые, кешбек и предоплаты; — Увеличивает доходимость и помогает больше зарабатывать; Как продвинуть сайт на первые места?
Вы создали или только планируете создать свой сайт, но не знаете, как продвигать?
Продвижение сайта – это не просто процесс, а целый комплекс мероприятий,
направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
Ускорение продвижения
Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст,
она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней.
Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.Москва 2012
Московский Государственный Горный Университет Кафедра САПР
Отчёт по домашней работе № 2 По дисциплине «Операционные системы». Работа с ОС Windows
выполнил: студент гр. АСП-2-10 Чижов В.Н. Проверила: доцент Волкова Л. П.
Москва 2012
Задание: разработать сценарий и программу на языке высокого уровня.
Для решения данной задачи выбрана среда разработки ПО – Delphi. Сценарий для реализации на языке высокого уровня разработан по аналогии сценария созданного в предыдущей лабораторной работе.
Используемые команды: Функция CreateDir создаёт папку в текущей директории CopyFile ('C: \1.txt', 'D: \1.txt', true); При указании второго параметра (Конечный_файл) мы указываем не просто папку куда хотим скопировать файл, но и еще желаемое имя с расширение файла. Т.е если Начальный файл c: \1.txt, то если указать имя конечного файла как d: \1Copy.txt то в процессе копирования наш 1.txt переименуется в 1Copy.txt. RenameFile ('Начальное_имя', 'Конечное_имя') DeleteFile ('Имя_файла');
Текст программы: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; ListBox1: TListBox; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1; implementation {$R *.dfm}
procedure ListFileDir(Path: string; FileList: TStrings); var SR: TSearchRec; begin if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin repeat if (SR.Attr < > faDirectory) then begin FileList.Add(SR.Name); end; until FindNext(SR) < > 0; FindClose(SR); end; end;
procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Add('****** СОДЕРЖИМОЕ ФЛЕШКИ ******'); ListFileDir('G: \', ListBox1.Items); ListBox1.Items.Add(' '); if not CreateDir('c: \NEW\') then ListBox1.Items.Add('****** Произошла ошибка при создании каталога') else ListBox1.Items.Add('****** создание каталога прошла успешно'); if not CopyFile('g: \1.txt', 'c: \NEW\1.txt', true) then ListBox1.Items.Add('****** Произошла ошибка при копировании 1.txt! ' else ListBox1.Items.Add('****** копирование 1.txt прошло успешно); if not CopyFile('g: \w.jpg', 'c: \NEW\w.jpg', true) then ListBox1.Items.Add('****** Произошла ошибка при копировании w.jpg!! ') else ListBox1.Items.Add('****** Копирование w.jpg прошло успешно '); if not RenameFile('c: \NEW\1.txt', 'c: \NEW\Copy.txt') then ListBox1.Items.Add('****** Произошла ошибка при переименовании ') else ListBox1.Items.Add('****** Переименование прошло успешно '); if not DeleteFile('g: \1.txt') then ListBox1.Items.Add('****** Произошла ошибка при удалении g: \1.txt') else ListBox1.Items.Add('****** Удаление g: \l.txt прошло успешно’); if not DeleteFile('g: \w.jpg') then ListBox1.Items.Add('****** Произошла ошибка при удалении w.jpg') else ListBox1.Items.Add('****** Удаление w.jpg прошло успешно'); ListBox1.Items.Add(' '); ListBox1.Items.Add('****** СОДЕРЖИМОЕ ФЛЕШКИ ПОСЛЕ ПЕРЕМЕЩЕНИЯ******'); ListFileDir('G: \', ListBox1.Items); end; end.
|