maison
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

vers le bas

Et vous pouvez bloquer l'accès au dossier, quelque chose comme fmShareExclusive, mais pour le dossier ??? Trouver des branches similaires


Art   (2001-12-18 15:12) [0]

Et vous pouvez bloquer l'accès au dossier, quelque chose comme fmShareExclusive, mais pour le dossier ???



Алексей Петров   (2001-12-18 16:08) [1]

С помощью CreateFile можно открыть и директорию, в т.ч. и эксклюзивно.

Essayez-le ...

Подробности в MSDN



cdaDmitriy   (2001-12-18 17:20) [2]

> Алексей Петров ©
SOURCE for use CreateFile for
С помощью CreateFile можно открыть и директорию ? ...



Алексей Петров   (2001-12-18 17:23) [3]

> cdaDmitriy © (18.12.01 17:20)
Читайте MSDN.
Source я в тривиальных случаях не привожу.



Art   (2001-12-18 17:25) [4]

Я обязательно попробую ,но от слов MSDN веет чем-то мелкософтовым,а я про Дельфи!!



cdaDmitriy   (2001-12-18 17:40) [5]

> Алексей Петров © я в тривиальных случаях не привожу ?
я пробовал ... попробуй идай пример.



cdaDmitriy   (2001-12-18 17:47) [6]

S1:="D:\ICON\"; в т.ч. и эксклюзивно
H := Integer(CreateFile(PChar(S1), GENERIC_READ, 0 , nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0));
label1.Caption: = inttostr (H);
if H < 0 then raise EFCreateError.CreateResFmt(@S, [S1]);




Art   (2001-12-18 17:53) [7]

cdaDmitriy откудова ты ето достал,я не сомневаюсь в работоспособности кода,но охота почитать по поводу директорий



cdaDmitriy   (2001-12-18 17:59) [8]

help for CreateFile and попробовал



Art   (2001-12-18 20:24) [9]

Ребят вы или дураки или читать не умеете.Был задан вопрос Заблокировать папку надо,доступ к ней. А вы про файлы мне???Я сначала не поверил,но потом я все выяснил,все написанное здесь,кроме моего вопроса - чушь!



Anatoly Podgoretsky   (2001-12-18 20:28) [10]

Да и как ты думаешь будут тебе отвечать в дальнейшем, я не хочу проверять приведенный код, но хинт следующий Папка такой же файл.



Art   (2001-12-18 21:39) [11]

Ђнатолий,значит Я - дурак!!! ? все тут!!! џ пробовал и код приведенный выше и сам писал и ничего не прошло,если указывать директорию - ничего не менЯетсЯ,а если файл , то все ЋЉ работает,файл заблокирован!!! ? как с этим быть???



Алексей Петров   (2001-12-19 08:41) [12]

Еще хинт:
В коде, приведенном "cdaDmitriy © (18.12.01 17:47)" 2 ошибки.
1. В имени директории конечный "\" - лишний.
2. Проверка открылся ли файл должна выполняться проверкой на INVALID_HANDLE_VALUE, а не <0. В текущей версии Delphi и WinAPI Integer(INVALID_HANDLE_VALUE) конечно <0, но это может поменяться, к тому-же, теоретически возможно появление корректного Handle, такого, что Integer(Handle)<0.
3. Для проверки ошибок WinAPI - удобнее писать
Win32Check(H<>INVALID_HANDLE_VALUE)

> Art © (18.12.01 17:25)
Если MSDN смущает - смотри в SDK help, это собственно усеченная версия MSDN-а. А из Delphi все API прекрасно вызывается.



cdaDmitriy   (2001-12-19 09:31) [13]

> Алексей Петров ©

1. В имени директории конечный "\" - лишний.
он не лишний а избыточный :

lpFileName

Points to a null-terminated string that specifies the name of the object (file, pipe, mailslot, communications resource, disk device, console, or directory) to create or open.

If *lpFileName is a path, there is a default string size limit of MAX_PATH characters. This limit is related to how the CreateFile function parses paths.
Windows NT: You can use paths longer than MAX_PATH characters by calling the wide (W) version of CreateFile and prepending "\\?\" to the path. The "\\?\" tells the function to turn off path parsing. This lets you use paths that are nearly 32,000 Unicode characters long. You must use fully-qualified paths with this technique. This also works with UNC names. The "\\?\" is ignored as part of the path. For example, "\\?\C:\myworld\private" is seen as "C:\myworld\private", and "\\?\UNC\tom_1\hotstuff\coolapps" is seen as "\\tom_1\hotstuff\coolapps".

2. посмотри реализацию unit Classes; хотя
Win32Check(H<>INVALID_HANDLE_VALUE) надежней.


{ TFileStream }

constructor TFileStream.Create(const FileName: string; Mode: Word);
commencer
if Mode = fmCreate then
commencer
FHandle := FileCreate(FileName);
if FHandle < 0 then
raise EFCreateError.CreateResFmt(@SFCreateError, [FileName]);
fin du reste
commencer
FHandle := FileOpen(FileName, Mode);
if FHandle < 0 then
raise EFOpenError.CreateResFmt(@SFOpenError, [FileName]);
fin;
fin;

Art © все работает если хочешь пиши пришлю



Pages: 1 branche entière

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

à l'étage









Mémoire: 0.86 MB
Heure: 0.051 c
1-22228
Nazgul
2001-12-15 14:28
2002.01.08
Comment faire?


3-21907
RDA
2001-12-01 12:48
2002.01.08
Delphi et MySql


1-22034
Alexey_K
2001-12-15 16:35
2002.01.08
Formulaire


14-22410
fint
2001-11-08 15:10
2002.01.08
Essayer


14-22371
Dense
2001-11-08 17:11
2002.01.08
La vie après la mort?





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais English estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien Japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol