Текущий архив: 2004.03.09;
Скачать: CL | DM;

Вниз

SHEmptyRecycleBin   Найти похожие ветки 

← →
Kinderr   (2003-12-23 20:08) [0]

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

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

---

← →
Dimaxx ©   (2003-12-24 02:04) [1]

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

---

← →
X-MAN   (2003-12-24 03:43) [2]

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

---

← →
имя   (2004-01-04 16:32) [3]

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

---

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

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

---

← →
хз ©   (2004-01-05 05:28) [5]

Вроде вот так. Посмотри в справке про заполнение флагов в 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-05 05:30) [6]

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

---

← →
Dimka Maslov ©   (2004-01-05 08:50) [7]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.03.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c