функция PathIsDirectoryEmpty

[SolovejK]

Как я понял функция PathIsDirectoryEmpty проверяет пустая ли папка. Покажите, пожалуйста, на примере как использовать эту функцию в Delphi.

[Serge_Bliznykov]

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

if PathIsDirectoryEmpty('c:\temp') 
   then ShowMessage('Папка пуста')
   else ShowMessage('Папка НЕ пуста');

[SolovejK]

А что прописать в uses, чтобы delphi увидела функцию?

[spamer]

Shlwapi

>>> msdn

[doktor255]

{$R *.dfm}

USES FileCtrl; // для SelectDirectory

function PathIsDirectoryEmpty(pszPath: PChar): BOOL; stdcall;
external 'shlwapi.dll' name 'PathIsDirectoryEmptyW';

procedure TForm1.Button1Click(Sender: TObject);
var b: bool;
chosenDirectory: String;
begin
if SelectDirectory('Выберите каталог', '', chosenDirectory) then begin
b := PathIsDirectoryEmpty(PChar(chosenDirectory));
if b = true then ShowMessage('Каталог пустой');
if b = false then ShowMessage('Каталог не пустой');
end;
end;

[spamer]

Сообщение от doktor255

function PathIsDirectoryEmpty(pszPath: PChar): BOOL; stdcall;
external 'shlwapi.dll' name 'PathIsDirectoryEmptyW';

Все написано до нас...модуль Shlwapi

[doktor255]

Зачем пихать весь модуль, если можно обойтись вызовом функции DLL?

[ZuBy]

Я например этим пользуюсь

  
uses IOUtils;
...
if TDirectory.IsEmpty('c\temp') then ShowMessage('Папка пуста')
   else ShowMessage('Папка НЕ пуста');

[northener]

Сообщение от doktor255

Зачем пихать весь модуль, если можно обойтись вызовом функции DLL?

А с модулем Windows ты также поступаешь?

[ZuBy]

Сообщение от northener

А с модулем Windows ты также поступаешь?

Ты зря так иронизируешь! Я когда над установщиком работал, мне нужно было получить 2 программки наименьшего размера, которые вшивались в архив. Пришлось огромные куски кода копировать в unit что бы воспользоваться одной функцией. что-то приходилось "изобретать" с 0.
итог все же успешный 1 программка 56 кб, 2 программа 1008 кб на Delphi XE5 + сжать все upx'оми вообще прекрасно.

Итог полезно, но не всегда уместно!