Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > как переделать функцию чтобы файлы

Автор: casinosoftguru 16.2.2009, 02:33

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

Код


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

Автор: MetalFan 16.2.2009, 09:55

FOF_NOCONFIRMATION

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

Автор: Данкинг 16.2.2009, 11:47

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