Переименование каталога

Советы » Каталоги » Переименование каталога

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

; procedure

TForm1.Button1Click(Sender: TObject); begin

RenameDir('C:Dir1', 'C:Dir2'); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com