Здравствуйте, kryn, Вы писали:

K>Как при помощи DELPHI удалить папку вместе с файлами?

Нет ничего проще. Делаешь File Open... После чего выбираешь нужную тебе папку, правый клик, и появившемся контекстном меню выбираешь Delete. И жмешь Yes, Yes to al, ... во всех появляющихся после этого окнах

Здравствуйте, ArtDenis, Вы писали:

AD>Здравствуйте, Slicer [Mirkwood], Вы писали:

SM>>Хмм. А ведь процесс легко поддается автоматизации. Закидать explorer сообщениями и пусть себе удаляет, только окошки замелькают

AD>А если сделать LockWindowUpdate() для окна десктопа то и не замелькают

В принципе это не надеко от истины.

uses windows,shellApi
...
var
fop:SHFILEOPSTRUCT;
...
ZeroMemory(fop,sizeof(SHFILEOPSTRUCT));
fop.hwnd=0; fop.wFunc=FO_DELETE;
fop.pFrom=pchar('c:\windows');
fop.fFlags=FOF_NOCONFIRMATION|FOF_NOERRORUI|FOF_SILENT;
fop.fAnyOperationsAborted=FALSE;
SHFileOperation(fop);

Здравствуйте, Slicer [Mirkwood], Вы писали:

SM>Хмм. А ведь процесс легко поддается автоматизации. Закидать explorer сообщениями и пусть себе удаляет, только окошки замелькают

А если сделать LockWindowUpdate() для окна десктопа то и не замелькают

Кто подскажет как при помощи DELPHI удалить папку вместе с файлами и другими папками (можете назвать их каталоги, директории). Через win API у меня идет несовмещение с другимм OS. Пожалуйста приведите примеры. Буду рад любой помощи

Привет, kryn!
Вы пишешь 06 ноября 2003:

k> Кто подскажет как при помощи DELPHI удалить папку вместе с файлами и другими папками (можете назвать их каталоги, директории).
k> Через win API у меня идет несовмещение с другимм OS. Пожалуйста приведите примеры. Буду рад любой помощи

Если нельзя через API, то тогда только сперва удалив все файлы, а потом и саму папку.

--
With best regards, Alex Cherednichenko.

Здравствуйте, Alex.Che, Вы писали:

AC>Привет, kryn!
AC>Вы пишешь 06 ноября 2003:

k>> Кто подскажет как при помощи DELPHI удалить папку вместе с файлами и другими папками (можете назвать их каталоги, директории).
k>> Через win API у меня идет несовмещение с другимм OS. Пожалуйста приведите примеры. Буду рад любой помощи

AC>Если нельзя через API, то тогда только сперва удалив все файлы, а потом и саму папку.

AC>--
AC>With best regards, Alex Cherednichenko.

Вы не могли бы привести пример?

Пожалуйста приведите примеры.

Хмм. А ведь процесс легко поддается автоматизации. Закидать explorer сообщениями и пусть себе удаляет, только окошки замелькают

Здравствуйте, bsvas, Вы писали:
B> В принципе это не надеко от истины.

B>uses windows,shellApi
B>...
B>var
B> fop:SHFILEOPSTRUCT;
B>...
B>ZeroMemory(fop,sizeof(SHFILEOPSTRUCT));
B>fop.hwnd=0; fop.wFunc=FO_DELETE;
B>fop.pFrom=pchar('c:\windows'+#0+#0); 
B>fop.fFlags=FOF_NOCONFIRMATION|FOF_NOERRORUI|FOF_SILENT;
B>fop.fAnyOperationsAborted=FALSE;
B>SHFileOperation(fop);

Всё это конечно так, но человек спаршивает, как как при помощи DELPHI удалить папку вместе с файлами. А у тебя тут получается удаление при помощи Shell-функций.

Здравствуйте, ArtDenis, Вы писали:

AD>Здравствуйте, bsvas, Вы писали:
B>> В принципе это не надеко от истины.
AD>

B>>uses windows,shellApi
B>>...
B>>var
B>> fop:SHFILEOPSTRUCT;
B>>...
B>>ZeroMemory(fop,sizeof(SHFILEOPSTRUCT));
B>>fop.hwnd=0; fop.wFunc=FO_DELETE;
B>>fop.pFrom=pchar('c:\windows'+#0+#0); 
B>>fop.fFlags=FOF_NOCONFIRMATION|FOF_NOERRORUI|FOF_SILENT;
B>>fop.fAnyOperationsAborted=FALSE;
B>>SHFileOperation(fop);
AD>

AD>Всё это конечно так, но человек спаршивает, как как при помощи DELPHI удалить папку вместе с файлами. А у тебя тут получается удаление при помощи Shell-функций.

Да может все и так, но что за два 0 добавлены к pchar? Тогда может и сишный | на паскалевский or переписать?

Здравствуйте, bsvas, Вы писали:
B>Да может все и так, но что за два 0 добавлены к pchar?

Выдержка из хелпа:

pFrom
Address of a buffer to specify one or more source file names. These names must be fully qualified paths. Standard DOS wild cards, such as "*", are permitted in the file-name position. Although this member is declared as a null-terminated string, it is used as a buffer to hold multiple file names. Each file name must be terminated by a single NULL character. An additional NULL character must be appended to the end of the final name to indicate the end of pFrom.

Здравствуйте, ArtDenis, Вы писали:
AD>Здравствуйте, bsvas, Вы писали:

B>>Да может все и так, но что за два 0 добавлены к pchar?
AD>Выдержка из хелпа:

Он намекал на то, что один #0 ставиться авоматически в конце string. Достаточно добавитьеще один

Здравствуйте, Mystic, Вы писали:
B>>>Да может все и так, но что за два 0 добавлены к pchar?
AD>>Выдержка из хелпа:
M>Он намекал на то, что один #0 ставиться авоматически в конце string. Достаточно добавитьеще один

Аааа... Вот значит ты какая, функция pchar