в DRKB есть пример, но вот он работает только на 1 компе, на 2х других, где операционка такаяже точно, с тогоже СД установлена, там вопрос типа "удалить в корзину" вылезает, а надо, чтобы не вылезал!

Код

...   TBuffer = array of Char; implementation procedure CreateBuffer( Names : array of string; var P : TBuffer ); var I, J, L : Integer; begin   for I := Low( Names ) to High( Names ) do     begin       L := Length( P );       SetLength( P, L + Length( Names[ I ] ) + 1 );       for J := 0 to Length( Names[ I ] ) - 1 do         P[ L + J ] := Names[ I, J + 1 ];       P[ L + J ] := #0;     end;   SetLength( P, Length( P ) + 1 );   P[ Length( P ) ] := #0; end;  function DeleteFiles( Handle : HWnd; Names : array of string; ToRecycle : Boolean ) : Integer; var   SHFileOpStruct : TSHFileOpStruct;   Src : TBuffer; begin   CreateBuffer( Names, Src );   with SHFileOpStruct do     begin       Wnd := Handle;       wFunc := FO_DELETE;       pFrom := Pointer( Src );       pTo := nil;       fFlags := 0;       if ToRecycle then fFlags := FOF_ALLOWUNDO;       fAnyOperationsAborted := False;       hNameMappings := nil;       lpszProgressTitle := nil;     end;   Result := SHFileOperation( SHFileOpStruct );   Src := nil; end;

Вроде бы всё правильно, не должна вопросов задавать! а задает!!! я вообще не понимаю что за лажа может быть?
Может есть другой способ у кого-нибудь?

Повторяю, нужно чтобы было удаление файла в корзину, без единого вопроса под ХР, 2000, 2003, 98ю не надо!

Цитата(h2o @ 12.12.2005, 12:16)

но вот он работает только на 1 компе, на 2х других, где операционка такаяже точно, с тогоже СД установлена, там вопрос типа "удалить в корзину" вылезает

Просто на этом компе в свойствай Корзины снята "галочка" "Запрашивать подтверждение на удаление", а на двух других эта "галочка" установлена.

Мне кажется что можно как-то программно сказать винде, что "галочка снята", и кажется что это нужно говорить по средствам реестра. Нужно порыть...

Можно удалять файл Не в корзину:

Код

var f: file; begin   assignfile(f,opendialog1.filename);   erase(f); end;

Но галочка "Запрашивать..." у меня стоит. Удаляет без проблемм, не спрашивая. Может это из-зи Win2000?

Можно так

Код

function Recycle(const FileName: string; Wnd: HWND = 0): Boolean; var   FileOp: TSHFileOpStruct; begin   FillChar(FileOp, SizeOf(FileOp), 0);   if Wnd = 0 then     Wnd := Application.Handle;   FileOp.Wnd := Wnd;   FileOp.wFunc := FO_DELETE;   FileOp.pFrom := PChar(FileName);   FileOp.fFlags := FOF_ALLOWUNDO or FOF_NOERRORUI or FOF_SILENT;   Result := (SHFileOperation(FileOp) = 0) and (not     FileOp.fAnyOperationsAborted); end;

использовать

Код

procedure TForm1.Button1Click(Sender: TObject) begin   Recycle('d:\folder\filename.ext', Handle); end;

А это не одно и тоже: код Dron84 и h2o???

Цитата

Но галочка "Запрашивать..." у меня стоит. Удаляет без проблемм, не спрашивая. Может это из-зи Win2000?

lol
просто так ты затираешь файл и всё )
а удаление через корзину это файл сначао помещается в корзину (на харде папка для этого отведена) и опятьже с той папки (точный путь не помню) мона удалить файл ! а вот средствами корзины когда удаляешь она спрашивает сначало потверждение)

Флаг должен быть ->

Код

fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION ;

SoWa
идея одна и таже, но написано по разному...

я когда пробовал делать
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
то комп в циклическом действии
делал что-то моё... потом удалял фаил... потом опять делал что-то моё... и так заданное количество раз
Но вот странность первый фаил удаляет без вопросов, а при втором круге прога виснет на удалении?
или не надо
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
а просто надо
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION ; - как написал RAdmin
я так не пробовал, но тогда что значит флаг FOF_SILENT?
поидее флаг
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
значит - втихушку удалить фаил в корзину без подтверждения?
что не так?

а вообще почему fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
а например не fFlags := FOF_ALLOWUNDO and FOF_NOCONFIRMATION

Цитата

Но вот странность первый фаил удаляет без вопросов, а при втором круге прога виснет на удалении?

Может надо дождаться завершения предыдущей операции а потом
приступать к следующей

Цитата

а вообще почему fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION

Потому что "or" это логическая побитовая сумма а "and"
умножение ("and" скорее всего вернет $000000)

Это сообщение отредактировал(а) alexeis1 - 13.12.2005, 12:04

http://forum.vingrad.ru/index.php?showtopi...ndpost&p=220617