Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

Удаление файлов. 


igorr   (2002-03-24 07:11) [0]

Люди добрые помогите разобраться.
Следующий код почему-то у меня не работает.


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:19) [1]

DeleteFile



Rooman   (2002-03-24 10:21) [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:51) [3]

Вообще то ошибка у него явно другая, но про ошибки и как правильно он не спрашивал.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
1-9571            snoup                 2002-03-24 22:25  2002.04.04  
Мне для звонилки нужна статистика (когда считает сколько ты времени провел в интернете)


14-9604           Olgerd                2002-02-21 20:25  2002.04.04  
BAT-файлы


1-9483            КОляныч_              2002-03-25 19:25  2002.04.04  
HELP!!! Работа с текстом! Поиск множества совпадений!


14-9649           tovSuhov              2002-02-21 08:53  2002.04.04  
Вопросик по С++ Builder


14-9623           savva                 2002-02-22 10:06  2002.04.04  
Вопрос к франко говорящему населению сайта (и не только:)). Точнее просьба :))