Как сделать калькулятор в Delphi?

Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.

Как Delphi реализует многоплатформенную разработку?

Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...

Скопировать, удалить, переместить всю директорию

Советы » Каталоги » Скопировать, удалить, переместить всю директорию

uses

ShellApi; function

CopyDir(const

fromDir, toDir: string

): Boolean; var

fos: TSHFileOpStruct; begin

ZeroMemory(@fos, SizeOf(fos)); with

fos do

begin

wFunc := FO_COPY; fFlags := FOF_FILESONLY; pFrom := PChar(fromDir + #0); pTo := PChar(toDir) end

; Result := (0 = ShFileOperation(fos)); end

; function

MoveDir(const

fromDir, toDir: string

): Boolean; var

fos: TSHFileOpStruct; begin

ZeroMemory(@fos, SizeOf(fos)); with

fos do

begin

wFunc := FO_MOVE; fFlags := FOF_FILESONLY; pFrom := PChar(fromDir + #0); pTo := PChar(toDir) end

; Result := (0 = ShFileOperation(fos)); end

; function

DelDir(dir: string

): Boolean; var

fos: TSHFileOpStruct; begin

ZeroMemory(@fos, SizeOf(fos)); with

fos do

begin

wFunc := FO_DELETE; fFlags := FOF_SILENT or

FOF_NOCONFIRMATION; pFrom := PChar(dir + #0); end

; Result := (0 = ShFileOperation(fos)); end

; procedure

TForm1.Button1Click(Sender: TObject); begin

if

cCopyDir('d:download', 'e:') = True

then

ShowMessage('Directory copied.'); end

;

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

Категории

Статьи

Советы

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