VPF::как переделать функцию чтобы файлы

casinosoftguru

Дата 16.2.2009, 02:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.12.2008

Репутация: нет
Всего: нет

юзаю вот такой код но винда спрашивает разрешение на замену, как от него избавиться ?

Код


function CCCopyFile(const Source, Dest: string): Boolean;
 var
 Fos: TSHFileOpStruct;
 begin
ZeroMemory(@Fos, SizeOf(Fos));
 with Fos do
begin
 Wnd := Application.Handle;
 wFunc := FO_COPY;
 fFlags := FOF_SILENT or FOF_FILESONLY;
 pFrom := PChar(Source + #0);
 pTo := PChar(Dest)
 end;
 Result := (0 = ShFileOperation(Fos));
 end;

погуглил, неактуально smile

Это сообщение отредактировал(а) casinosoftguru - 16.2.2009, 06:38

MetalFan

Дата 16.2.2009, 09:55 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

FOF_NOCONFIRMATION

Добавлено через 56 секунд
автор, пометь вопрос, как решенный

--------------------

There are always someone smarter than you...

Данкинг

Дата 16.2.2009, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

А что, простой copyfile уже не катит? smile

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »