procedure THIFileTools._work_doCopy;
var
F1,F2:string;
begin
F1 := ReadString(_Data,_data_FileName,');
F2 := ReadString(_Data,_data_NewFileName,');
CopyFile(PChar(F1),PChar(F2),false);
if FileExists(F2) then
_hi_CreateEvent(_Data,@_event_onEnd);
end;
это мне сюда надо вставить "CopyFile(PChar(NewFile1), PChar(OldFile1), False);" или в маску?



P.S. простите! отхожу от наркоза туплю...