Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

SHFileOperation [D7]


Lamer8 ©   (2005-05-24 20:24:00) 

Помогите избавится от диалогового окна подверждения удаления файла с помощью функции SHFileOperation.
 with shf do
 begin
  wnd:=0;
  wFunc:=FO_DELETE;
  pFrom:=PChar(dir+'\'+Name+#0+#0);
  pTo:=nil;
  fFlags:=FOF_SILENT and FOF_ALLOWUNDO and FOF_NOCONFIRMATION;
  //fAnyOperationsAborted:=false;
 end;
 if SHFileOperation(shf)=0 then
  writeln(' - succesfully deleted!')
ОС: Windows Server 2003


Lamer8   (2005-05-24 21:22:00) [1]

А, блин, точно, стормозил я опять:).


begin...end   (2005-05-24 20:27:00) [2]

> Lamer8   (24.05.05 20:24)

> fFlags:=FOF_SILENT and FOF_ALLOWUNDO and FOF_NOCONFIRMATION

fFlags := FOF_SILENT orFOF_ALLOWUNDO orFOF_NOCONFIRMATION


Наверх

Титульная страница Поиск, карта сайта Написать письмо