Проблема с созданием заблокированного файла

[uberchel]

Здрасте, господа программисты !
Проблема заключаться в том, что не получаться заблокировать файл, я блокирую через функцию "OpenFile".

var
MyFile: string;
begin
MyFile := OpenFile('reg.sys', ofStruct, - Здесь ошибка, пишет что типа надо ()
OF_CREATE or OF_READWRITE or OF_SHARE_EXCLUSIVE );
end;

ofStruct- это же просто инфа о файле, открытым функцией "OpenFile".
С LockFile- не знаю как. может кто-то знает другой способ или решение этого ?

Заранее спасибо!

[Kotofff]

Попробуй так :

fileopen('reg.sys',fmshareexclusive);

... типа открыли файл с запретом доступа к нему остальным ...

[uberchel]

Спосибо за ответ.
Но нет, мне не открыть надо, а заблокировать файл !

[Stilet]

Во-первых OpenFile возвращает не String а THandle
Во-вторых нужно описать переменку, принимающую инфу по открытому файлу - _OFSTRUCT:

var
MyFile: THANDLE; os:_OFSTRUCT;
begin
MyFile := OpenFile('reg.sys', @os,OF_CREATE or OF_READWRITE or OF_SHARE_EXCLUSIVE );
end;

[uberchel]

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

Во-первых OpenFile возвращает не String а THandle
Во-вторых нужно описать переменку, принимающую инфу по открытому файлу - _OFSTRUCT:

var
MyFile: THANDLE; os:_OFSTRUCT;
begin
MyFile := OpenFile('reg.sys', @os,OF_CREATE or OF_READWRITE or OF_SHARE_EXCLUSIVE );
end;

Пишет : Types of actual and formal var parameters must be identical.

Если конечно @os убрать @ и просто os- то файль заблокирован, пока прога работает, это та я и др процедурой могу, а мне же надо что-б он был заблокирован всегда! можно конечно на explorer
повесить этот файл, но зачем ресурсы жрать!!!

[Stilet]

Если конечно @os убрать @ и просто os- то файль заблокирован, пока прога работает

Просто в хелпе WINAPI и в описаниях модуля windows немного отличий.

а мне же надо что-б он был заблокирован всегда!

Напиши демона, который откроет файл, и не будет его закрывать. Пусть демон в процессах висит.
Если хочеш малый размер можно на асме написать, не сильно и сложно.

P.S. Даже такая "защита" обходится. Учти.

[uberchel]

Да, ты прав, пишу новую защиту в 4 уровня и проблема только вот в этом,
контроль целостности приложения.
А демона писать или на системный процесс вешать, не хочу уже говорил,
тем более пишу твикер!
Знаю, что в реестре можно где-то прописать - но точно где не знай !!!

[Stilet]

Знаю, что в реестре можно где-то прописать - но точно где не знай !!!

А не проще настроить доступ к этому фалу административными средствами?

[uberchel]

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

А не проще настроить доступ к этому фалу административными средствами?

Да, дак вот, это всё где-то в реестре, но я не знаю, если знаешь напиши пожалуйста !