Как поменять программным способом Readonly атрибут файла.

[HRACH]

Как поменять программным способом Readonly атрибут файла.

[alibek]

SetAttr()

[Twister]

Можно SetFileAttributes:

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

Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" ( _
    ByVal lpFileName As String, _
    ByVal dwFileAttributes As Long) As Long
Private Declare Function GetFileAttributes Lib "kernel32.dll" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

Смотри описание функции в MSDN

[alibek]

А зачем?

[Twister]

Не знаю - привычка, там где можно использую АПИ.

[alibek]

Формы ты тоже создаешь через API или рисуешь в дизайнере?

[Twister]

Язвишь?..
Не, ну до таких глюков я еще недожил (хотя иногда приходится генерировать кнопочки на лету - например добавить что нибудь свое в какой-нить диалог).

[alibek]

Нет, не понимаю смысла в использовании API, когда есть прямой аналог с той же функциональностью. В чем цель использования API?

[RayShade]

API истинне подобно

Использование его

Порой с трудностей преодолением связано

И также радости не приносит

[Twister]

Все дело в привычке. Просто на делфи, для сокращения размера, пользуют либо KOL, либо на чистом АПИ пишут. Вот эта привычка с Делфей у меня и в Бейсик перешла...

[Twister]

Хотя на Бейсике я начал писать раньше чем на Делфи, и когда-то считал Делфи "ужасным языком". Но это уже из другой оперы...
RayShade, ты уже читал про колбасу? Как тебе?

[HRACH]

Спасибо вы мне очень помогли.

[Twister]

Чем, своей болтовней?