Москва 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.