![]() |
Дравствуйте! У меня такая пробла. При нажатии юзера на кнопку
выдается сообщение: "Вы действительно хотите удалить этот файл?" Как сделать чтоб сообщение не появлялось и автоматом был ответ "ДА". (сразу удалялся файл.) За ранее спасибо. [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] |
Читаем описание структуры SHFILEOPSTRUCT (в win32s.hlp, что идет в поставке Дельфи) и видим что в поле fFlags можно указать константу FOF_NOCONFIRMATION
|
Maks oszone
Есть там процедура DeleteFile(). Попробуй её |
Большое спасибо Prisoner
:oszone: |
>Есть там процедура DeleteFile(). Попробуй её<
функция DeleteFile никаких окон не выводит и удаляет не в корзину .DeleteFile(FileName):boolean; |
Время: 12:00. |
Время: 12:00.
© OSzone.net 2001-