VPF::Как удалить файл или директорию

Pavelbej

Дата 26.11.2007, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Имеется в программе список директорий. Хочу чтобы по нажатию на кнопку Delete (на клавиатуре), выбранная директория удалялось, но чтобы у меня появилось окошко подтверждения удаления, то самое из Windows.

Вот чем сейчас пользуюсь:

Код


function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

procedure TForm1.VTKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (key=VK_delete) then
       begin
        DelDir(PathToDir);
        VT.DeleteSelectedNodes;
       end;
end;

Но сообщения нет, все удаляется молчя.
Если можно, то как удалить директорию с помощью ОС?

Rennigth

Дата 26.11.2007, 20:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Pavelbej, странный ты... ты хоть посмотрел бы код который выполняешь... ты же сам выставляешь флаги FOF_SILENT(скрытно) и FOF_NOCONFIRMATION(без подсверждения). smile

Хоть чуть-чуть надо смотреть код который копипастишь smile

Вот так примерно надо:

Код


function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

--------------------

(* Honesta mors turpi vita potior *)

Pavelbej

Дата 26.11.2007, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Ха, прозевал, торопился. Спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »