Работа с каталогами. Pascal

[Колядин Максим]

Здравтвуйте программисты. У меня такой вопрос: "Можно ли в Pascal работать с атрибутами каталога?". А именно сделать скрытой.

[somewhere]

Код: Выделить всё

var
filename : String;

begin
Filename := 'd:\games'+chr(0);
asm
mov ax, 4301h
mov dx, offset filename
mov cx, 2
int 21h
end;

end.

Только врядли тебе дадут изменить атрибуты папки под WinNT(XP)

[Колядин Максим]

Программа запускается, но ничего не делает (не выдаёт никаких ошибок и из неё нельзя выйти, только снимать задачу). Так и должно быть?

[somewhere]

У меня все без проблем, что у тебя за ОС

[Колядин Максим]

Есть ли ещё на форуме такие умные программисты как ты с Хыиудой? Наверное нет. Т. к. я уже вопросов задавал штук 5, и всё время отвечают или ты, или Хыиуда (ты чаще). Somewhere, спасибо, (уже не знаю как избавиться от однообразия) БОЛЬШОЕ. Всё уже работает.

[Хыиуду]

Может, у тебя в системе диска d: нету?
Если есть - не буду комментировать решение, предложенное Somewhere, потому что ассемблер знаю плохо, но знаю, что в Паскале в каком-то из модулей (то ли system, то ли dos) есть возможность вытянуть в переменную целого типа (пусть fileattrs) атрибуты объекта. Типа: скрытый, системный, является ли папкой и т.д. После этого делаем
fileattrs:=fileattrs OR faHidden;
(если не ошибаюсь, эта константа называется примерно так, надо бы хелп посмотреть, да я с работы, тут Паскаль не стоит), а потом аналогичным оператором записать в атрибуты те значения, которые забиты в fileattrs. Вроде бы операторы называются getfileattr и setfileattr, но точнее, опять же, сказать не могу

[somewhere]

Вроде бы операторы называются getfileattr и setfileattr

SetFAttr, GetFAttr - работают с переменными типа File, из чего следует что сначала их надо подвязать, но подвязать директорию к переменной типа File нельзя - отсюда код на ассемблере.

[Хыиуду]

Ну, есть вариант - получить эту директорию в переменную типа TSearchRec с помощью FindFirst и FindNext. В ТСерчРек прекрасно влезает и файл, и директория, и логический диск, и черт лысый.

[somewhere]

Можно попробовать, но для меня проще все-таки так.

[Колядин Максим]

... и логический диск, и черт лысый.

Хуиуду..... ты что???

Ну, есть вариант - получить эту директорию в переменную типа TSearchRec с помощью FindFirst и FindNext. В ТСерчРек прекрасно влезает и ....

Ану-ка Хыиуду расскажи-ка свой способ.