![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
CopyFile_ in_Win95 [D5, Win2k]
vovan1 © (2001-12-20 15:09:00)Доброго времени суток! Подскажите пожалуйста, в Win95 не хочет работать функция CopyFile, т.е. вновь созданный файл в этой системе не хочет копироваться на другой диск, хотя на других системах (Win2000) усе работает нормально. По описаниям, эта функция ДОЛЖНА РАБОТАТЬ в Win95. Помогите, а то с этой 95 виндой скоро тронусь.
XPDeveloper (2001-12-21 02:33:00) [1]function TForm1.FileCopy(FFrom, FTo : string) : boolean;
var F : TShFileOpStruct;
begin
Result:=false;
F.Wnd := Handle;
F.wFunc := FO_COPY;
FTo := FTo+#0;
FFrom := FFrom+#0;
F.pTo := Pchar(FTo);
F.pFrom := Pchar(FFrom);
F.fFlags := FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR;
if ShFileOperation(F) = 0 then
Result:=true;
end;
Можно копировать сразу несколько файлов, с undo - см. документацию
Anatoly Podgoretsky (2001-12-20 22:15:00) [2]Так она и работает, у тебя наверно ошибка в программе.
Mick (2001-12-20 16:54:00) [3]В таких случаях обычно "Надо все микросхемы менять" :)
gek (2001-12-20 15:44:00) [4]Под WimMe у меня нормально раб
copyfile(pchar(FILE_NAME_1),pchar(FILE_NAME_2),false);