Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Как в Delphi при нажатии кнопки, когда хочешь удалить файл (http://forum.oszone.net/showthread.php?t=29944)

Maks oszone 24-02-2004 18:02 206455

Дравствуйте! У меня такая пробла. При нажатии юзера на кнопку
выдается сообщение: "Вы действительно хотите удалить этот файл?"
Как сделать чтоб сообщение не появлялось и автоматом был ответ "ДА". (сразу удалялся файл.)
За ранее спасибо.
[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 24-02-2004 21:59 206456

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

UZER 25-02-2004 00:21 206457

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

Maks oszone 27-02-2004 22:34 206458

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

RIKO 08-03-2004 15:57 206459

>Есть там процедура DeleteFile(). Попробуй её<
функция DeleteFile никаких окон не выводит и удаляет
не в корзину .DeleteFile(FileName):boolean;


Время: 12:00.

Время: 12:00.
© OSzone.net 2001-