Добрый день! Подскажите,как сделать,чтобы при проверке (копировании) файла заблокировать? То есть выбрали файл,скопировали,но как проверить,что скопировался,и если он не скопировался,надо сделать блокировку,но при этом не попало в дбгрид данных,а если скопировался файл,то спокойно в дбгрид данные добавили.
Код:
| Код |
procedure TForm2.Button1Click(Sender: TObject);
var Path1, Path2 , Path3: String;
begin
Path1 := Form2.wwDBComboDlg1.Text; //открыли опендиалог,выбрали файл,и на комбо строка.
Path2 := '\\Fs\наряды;\'+cex.Text+'\'+data.Text+'\'+cex.Text+'_'+wwDBLookupCombo1.Text+'_'+Edit2.Text+'.tif';
Path3 := '\\Fs\наряды;\'+cex.Text+'\'+data.Text;
if FileExists(Path3)=false then
begin
if ForceDirectories(Path3) then
CopyFile(Path1,Path2);
end;
|
делфи7. Спасибо за помощь. |
