[CAHbKA]

Сообщение от CAHbKA

Народ я вот разобрался в одном *удаление файла *

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  SHFileOpStruct : TSHFileOpStruct;
  From : array [0..255] of Char;
begin
  SetCurrentDirectory( PChar( 'C:\' ) );
  From := 'Test1.tst' + #0 + 'Test2.tst' + #0 + #0;
  with SHFileOpStruct do
  begin
    Wnd := Handle;
    wFunc := FO_DELETE;
    pFrom := @From;
    pTo := nil;
    fFlags := 0;
    fAnyOperationsAborted := False;
    hNameMappings := nil;
    lpszProgressTitle := nil;
  end;
  SHFileOperation( SHFileOpStruct );
end;

Но вопроса 2
1)Он спрашивает пользователя удалять файл в корзину?
Как сделать чтоб не спрашивал я хочу чтоб если пользователь нажал кнопку *Удалить ...* оно его не спрашивала
2)Он удаляет в корзину что мешает пользователю так как в кнопке должна служить для очитски не включая корзину..
Как это сделать?

Я дурак извините
1) Оно уже удаляет без карзины
2)Я поставил флаг=0 а надо было прописать FOF_NOCONFIRMATION
Если комуто нужно будет делайте