Delphi - Как в Delphi при нажатии кнопки, когда хочешь удалить файл

[Maks oszone]

Дравствуйте! У меня такая пробла. При нажатии юзера на кнопку

выдается сообщение: "Вы действительно хотите удалить этот файл?"

Как сделать чтоб сообщение не появлялось и автоматом был ответ "ДА". (сразу удалялся файл.)

За ранее спасибо.

[pre]uses ShellApi;

Var

T:TSHFileOpStruct;

P:String;

procedure TForm1.Button1Click(Sender: TObject);

//function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall;

begin

P:='C:\Program Files\xxx.exe';

 With T do

 Begin

   Wnd:=0;

   wFunc:=FO_DELETE;

   pFrom:=Pchar(P);

   fFlags:=FOF_ALLOWUNDO

 End;

 SHFileOperation(T);

end;[/pre]

[Prisoner]

Читаем описание структуры SHFILEOPSTRUCT (в win32s.hlp, что идет в поставке Дельфи) и видим что в поле fFlags можно указать константу FOF_NOCONFIRMATION

[Prisoner]

Maks oszone

Есть там процедура DeleteFile(). Попробуй её

[UZER]

Большое спасибо Prisoner

[Maks oszone]

>Есть там процедура DeleteFile(). Попробуй её<

функция DeleteFile никаких окон не выводит и удаляет

не в корзину .DeleteFile(FileName):boolean;