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

Вниз

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

← →
DimaS ©   (2003-07-17 13:41) [0]

Как удалить файл или весь каталог в корзину?
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-17 13:49) [1]

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

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

---

← →
DimaS ©   (2003-07-17 13:55) [2]

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

---

← →
Anatoly Podgoretsky ©   (2003-07-17 13:58) [3]

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

---

← →
DimaS ©   (2003-07-17 14:00) [4]

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

---

← →
Prov ©   (2003-07-17 14:29) [5]

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

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;

---

← →
Morfein ©   (2003-07-18 00:25) [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;

---

← →
Anatoly Podgoretsky ©   (2003-07-18 10:21) [7]

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

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

---

← →
Лёша   (2003-07-18 20:57) [8]

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

---

← →
Лёша   (2003-07-18 21:09) [9]

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

---

← →
Song ©   (2003-07-19 11:12) [10]

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

---

← →
Anatoly Podgoretsky ©   (2003-07-19 11:28) [11]

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

---

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

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

Наверх

Память: 0.49 MB
Время: 0.015 c