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

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

SHEmptyRecycleBin [D7, WinXP]

Kinderr ©   (2003-12-23 20:08:00) 

Пишу
SHEmptyRecycleBin(0,
nil,
0);

Звука очистки нет. Почему?

---

Dimka Maslov   (2004-01-05 08:50:00) [1]

Существует в Delphi такой вот глюк. Если стандартный звук должен проигрывается в функции, вызванной в обработчике пункта меню, то никаких звуков не издаётся. Лечится только PlaySoundом

---

хз   (2004-01-05 05:30:00) [2]

Сорри, не то :-)) Пора спать наверное...

---

хз   (2004-01-05 05:28:00) [3]

Вроде вот так. Посмотри в справке про заполнение флагов в TSHFileOpStruct...


Function DeleteFileWithUndo(sFileName:String):Boolean;
Var
Fos:TSHFileOpStruct;
Begin
If Not FileExists(sFileName)Then
Exit;
sFileName:=sFileName+#0;
FillChar(Fos,SizeOf(Fos),0);
With Fos Do
Begin
wFunc:=FO_DELETE;
pFrom:=PChar(sFileName);
fFlags:=FOF_ALLOWUNDO or FOF_FILESONLY Or {FOF_NOCONFIRMATION or} FOF_SILENT;
End;
Result:=(0=ShFileOperation(Fos));
End;


---

имя   (2004-01-04 22:39:00) [4]

Удалено модератором

---

имя   (2004-01-04 16:32:00) [5]

Удалено модератором

---

X-MAN   (2003-12-24 03:43:00) [6]

А нужно? Если да то проиграй с помощью PlaySound;

---

Dimaxx   (2003-12-24 02:04:00) [7]

Скорее всего, его генерит сама винда.

---

Наверх