| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копирование файла. [D5, WinXP]
Ламье_ в_ винапи © (2003-11-06 15:46:00)
Сия функция копрования файло, выдрана из FAQ"a.
Копирует в ToDir под таким же именем, как его скопировать под другим файлом, передеавая ToFile. Т.е. путь и !другое! имя файла.
function TForm1.CopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
F.Wnd := 0;
F.wFunc := FO_COPY;
FromFile:=FromFile+#0;
F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0;
F.pTo:=pchar(ToDir);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
result:=ShFileOperation(F) = 0;
end;
Игорь Шевченко (2003-11-06 15:52:00) [1]
ToDir:=ToDir+"\"+ToFile+#0;
Ламье_ в_ винапи (2003-11-06 15:48:00) [2]
"под другим _ИМЕНЕМ_ ..."
очепятка...
сорри.
| |
