диск директория файл - презентация, доклад, проект скачать

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему диск директория файл. Доклад-сообщение содержит 25 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Слайд 2

Описание слайда:

Слайд 3

Описание слайда:

Слайд 4

Описание слайда:

Слайд 5

Описание слайда:

Слайд 6

Описание слайда:

Слайд 7

Описание слайда:

Слайд 8

Описание слайда:

Слайд 9

Описание слайда:

Слайд 10

Описание слайда:

Слайд 11

Описание слайда:

Слайд 12

Описание слайда:

Слайд 13

Описание слайда:

Слайд 14

Описание слайда:

Слайд 15

Описание слайда:

Слайд 16

Описание слайда:

Слайд 17

Описание слайда:

Слайд 18

Описание слайда:

Слайд 19

Описание слайда:

Слайд 20

Описание слайда:

Слайд 21

Описание слайда:

Слайд 22

Описание слайда:

Слайд 23

Описание слайда:

Переименование каталога uses ShellApi; procedure RenameDir(DirFrom, DirTo: string); var shellinfo: TSHFileOpStruct; begin with shellinfo do begin Wnd := 0; wFunc := FO_RENAME; pFrom := PChar(DirFrom); pTo := PChar(DirTo); fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or FOF_SILENT or FOF_NOCONFIRMATION; end; SHFileOperation(shellinfo); end;

Слайд 24

$procedure TForm1.Button1Click(Sender: TObject); begin RenameDir('C:\Dir1', 'C:\Dir2'); end$

Описание слайда:

procedure TForm1.Button1Click(Sender: TObject); begin RenameDir('C:\Dir1', 'C:\Dir2'); end

Слайд 25

$Очистить Мои документы procedure TForm1.Timer1Timer(Sender: TObject); var i: integer; begin DirectoryListBox1.Directory := 'C:\Мои документы'; for i...$

Описание слайда:

Очистить Мои документы procedure TForm1.Timer1Timer(Sender: TObject); var i: integer; begin DirectoryListBox1.Directory := 'C:\Мои документы'; for i := 0 to FileListBox1.Items.Count-1 do DeleteFile('C:\Мои документы"+FileListBox1.Items[i]); end;