Папка или файл

[HTTqp]

Помогите как определить что это файл или папка? Делаю так:

function DirExists(const Name:string):Boolean;
var
PathName:Byte;
begin
PathName:=GetFileAttributes(PChar(Name));
Result:=(PathName<>-1) and (FILE_ATTRIBUTE_DIRECTORY and PathName<>0);
end;

но например файл pagefile.sys определяется как папка(это только тот который я заметил, возможно есть еще). Пробовал проверять если есть расширение то это файл, но и тут заминка. Есть папки такие как например Microsoft.NET, и тут ступор показывает что файл. Так все же как определить, желательно на api delphi примерчик.

[Streletz]

Смотрите в сторону TSearchRec.

[HTTqp]

да, можно, но может есть еще вариаты?

[northener]

2 HTTqp
Чисто из любопытства.
Почему PathName:Byte; ? В оригинале эта переменная имеет тип Integer.

[HTTqp]

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

2 HTTqp
Чисто из любопытства.
Почему PathName:Byte; ? В оригинале эта переменная имеет тип Integer.

Отвечаю, так как Byte меньше по объему и не вижу смысла использовать Integer. Проблем от перемены типов не вижу. Или же ошибаюсь?

[doktor255]

В оригинале эта переменная имеет тип Integer

DWORD если быть точными

[Человек_Борща]

Отвечаю, так как Byte меньше по объему и не вижу смысла использовать Integer. Проблем от перемены типов не вижу. Или же ошибаюсь?

Во прикольно будет когда врач скажет вам, что не видит смысла давать вам больше обезболивающего, когда у вас высокий болевой порог
Или когда вам камин/печь сделают из простого кирпича, а не из огнеупорного.. ведь кирпич он и в африке кирпич

Весело будет

Как написано так и делайте. 4 байта, значит 4 байта, и никак не 1, потому что так надо.


И проверка делается проще:

Flags:= GetFileAttrbytes...
Result := (Flags = (Flags and FILE_ATTRIBUTE_DIRECTORY));

[northener]

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

DWORD если быть точными

Это в какой версии Дельфи?

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

Отвечаю, так как Byte меньше по объему и не вижу смысла использовать Integer. Проблем от перемены типов не вижу. Или же ошибаюсь?

А это ничего что Byte - безнаковое целое?

[doktor255]

northener XE6. В D7 Cardinal.

[northener]

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

northener XE6. В D7 Cardinal.

Имхо в Д7 Cardinal - Integer.