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

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

Как удалить файл или весь каталог в корзину?

DimaS ©   (2003-07-17 13:41:00) 

Как удалить файл или весь каталог в корзину?
SHFileOperation(SHF) у меня в WinXP не работает когда я пишу:

var SHF: TSHFileOpStruct;
begin
SHF.Wnd := Application.Handle;
SHF.wFunc := FO_DELETE;
SHF.pFrom := PChar(obj);
SHF.fFlags := FOF_ALLOWUNDO;
( SHF)

Как удалить файл или весь каталог в корзину?
SHFileOperation(SHF) у меня в WinXP не работает когда я пишу:

var SHF: TSHFileOpStruct;
begin
SHF.Wnd := Application.Handle;
SHF.wFunc := FO_DELETE;
SHF.pFrom := PChar(obj);
SHF.fFlags := FOF_ALLOWUNDO;
SHFileOperation(SHF);
end;

---

Anatoly Podgoretsky   (2003-07-19 11:28:00) [1]

Что бы ни кто не догадался.

---

Song   (2003-07-19 11:12:00) [2]

2Prov © (17.07.03 14:29)
А зачем With в твоём примере?

---

Лёша   (2003-07-18 21:09:00) [3]

ой, извините, прогнал. перенести то можно в пределах диска, а вот в корзине на раб. столе не появляется...
:)

---

Лёша   (2003-07-18 20:57:00) [4]

а не проще переписать в корзину и удалить оригинал?

---

Anatoly Podgoretsky   (2003-07-18 10:21:00) [5]

Самое главное, что все они не верны!

pFrom:="C:\1.doc"#0;

---

Morfein   (2003-07-18 00:25:00) [6]

Гениальный код от Prov"а! :))Мож тогда уже лучше так:

uses
ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
OpStruc : TSHFileOpStruct;
Begin
ZeroMemory(@OpStruc, SizeOf(OpStruc));
with OpStruc do
begin
wFunc:=FO_DELETE;
pFrom:="C:\1.doc";
fFlags:= FOF_SILENT;
end;
ShFileOperation (OpStruc);
end;

---

Prov   (2003-07-17 14:29:00) [7]

короче напиши так:

uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var OpStruc: TSHFileOpStruct;
Begin
ZeroMemory(@OpStruc, SizeOf(OpStruc));
with OpStruc do
begin
OpStruc.Wnd:= Handle;
OpStruc.wFunc:= FO_DELETE;
OpStruc.pFrom:= "C:\1.doc";
OpStruc.fFlags:= FOF_SILENT;
OpStruc.fAnyOperationsAborted:= false;
( OpStruc)

короче напиши так:

uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var OpStruc: TSHFileOpStruct;
Begin
ZeroMemory(@OpStruc, SizeOf(OpStruc));
with OpStruc do
begin
OpStruc.Wnd:= Handle;
OpStruc.wFunc:= FO_DELETE;
OpStruc.pFrom:= "C:\1.doc";
OpStruc.fFlags:= FOF_SILENT;
OpStruc.fAnyOperationsAborted:= false;
OpStruc.hNameMappings:= nil;
end;
ShFileOperation (OpStruc);
end;

---

DimaS   (2003-07-17 14:00:00) [8]

и какими их задать?

---

Anatoly Podgoretsky   (2003-07-17 13:58:00) [9]

Я не спрашивал что, а спрашивал какое значение!!!
А если любые, то и результаты любые.

---

DimaS   (2003-07-17 13:55:00) [10]

obj - это путь к файлу,
а остальные не заданы

---

Anatoly Podgoretsky   (2003-07-17 13:49:00) [11]

Какие значения у

LPCSTR pTo;
BOOL fAnyOperationsAborted;
LPVOID hNameMappings;
LPCSTR lpszProgressTitle;
и
obj

---

Наверх