| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Удаление файлов. [D5, Win95/98]
igorr © (2002-03-24 07:11:00)Люди добрые помогите разобраться.
Следующий код почему-то у меня не работает.
procedure TForm1.ToRecycle(AHandle:THandle;DelFile:String);
var
ShFileOpStruct:TShFileOpStruct;
begin
with ShFileOpStruct do
begin
Wnd:=AHandle;
wFunc:=FO_DELETE;
pFrom:=PChar(DelFile);
fFlags:=FOF_ALLOWUNDO;
end;
ShFileOperation(ShFileOpStruct);
end;
DelFile получаю следующим образом:
...
FindResult:=FindFirst(DirName+FileName,faAnyFile,FSearchRec);
...
ToRecycle(FSearchRec.FindHandle,DirName+FSearchRec.Name);
Подскажите, как можно еще удалять файлы?
Anatoly Podgoretsky (2002-03-24 10:51:00) [1]Вообще то ошибка у него явно другая, но про ошибки и как правильно он не спрашивал.
Rooman (2002-03-24 10:21:00) [2]typedef struct _SHFILEOPSTRUCT { // shfos
HWND hwnd;
UINT wFunc;
LPCSTR pFrom;
LPCSTR pTo;
FILEOP_FLAGS fFlags;
BOOL fAnyOperationsAborted;
LPVOID hNameMappings;
LPCSTR lpszProgressTitle;
} SHFILEOPSTRUCT, FAR *LPSHFILEOPSTRUCT;
Members
hwnd
Handle of the dialog box to use to display information about the status of the operation.
Ты не тот хэндл туда подставляешь
И еще - остальные поля надо обнулить
Anatoly Podgoretsky (2002-03-24 10:19:00) [3]DeleteFile
| |
