Home

Page 129
Page 129
background image

 Глава 3

function

 Src,

 string;

 Boolean): Boolean;

Эта функция будет универсальная: для копирования, перемещения и удале-

ния файлов. Нажмите

 чтобы создать заготовку этой

функции. В этой заготовке нужно написать следующее (листинг

Листинг 3.16. Универсальная функция для работы с файлами

function

 OpMode:

 Src,

Dest: string; DelRicleBin:

 Boolean;

Ret: integer;

ipFileOp: TSHFileOpStruct;

begin

 , 0) ;

with ipFileOp do

begin

wnd :  Handle;
wFunc := OpMode;

 :=

pTo :=

if DelRicleBin then

else

fFlags :=

fAnyOperationsAborted

 False;

 := nil;

 :=

end;

try

Ret := SHFileOperation (ipFileOp);

except

Ret := 1;

end;

result := (Ret

 0);

end;


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.