Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.06.30;
Скачать: [xml.tar.bz2];

Вниз

Как запретить доступ к папке?   Найти похожие ветки 

 
Bonial   (2003-04-20 02:41) [0]

Помогите, пожалуйста. Очень нужно для программы


 
Eug201   (2003-04-20 09:52) [1]

Такое в Windows95/98/ME не встроено. Есть какие-то приблуды, которые папку "прячут" от операционки. А для WinXP права можно установить, если программа запустится с соответсвующими правами.


 
joisy   (2003-04-21 12:29) [2]

A mojno li zapretit dostup papke cherez sodaniye (otritie ee) kak objekta s ekslusivnim dostupom? Ya imeyu vvidu cherez CreateFile ili CreateMutex - chtobi explorer naprime ne mog eyu "polzovatsya"


 
Polevi   (2003-04-22 10:51) [3]

бред


 
cdadmitriy   (2003-04-22 10:54) [4]

Ну почему бред ....

попробуй

procedure TForm1.Button1Click(Sender: TObject);var S1:String;
begin // D:\ICON "D:\DELPHI_PROG\Test_OpenDIR\"
//F:=TFileStream.Create("D:\ICOn\1.txt",fmCreate or fmOpenRead or fmShareExclusive);
S1:=DirectoryEdit1.Text; //"D:\DELPHI_PROG";//"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]);
end;


 
cdadmitriy   (2003-04-22 10:56) [5]

В Win 2000 отлично работает


 
Polevi   (2003-04-22 14:13) [6]

в 2000 для этого есть нормальные способы


 
Bonial   (2003-04-28 04:57) [7]

Спасибо cdaDmitriy, в Windows XP пашет. Но в WinME - нет.



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2003.06.30;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.006 c
14-97791
Yanis
2003-06-14 15:56
2003.06.30
Что значат оконания?


11-97577
slipper
2002-10-15 17:16
2003.06.30
API and KOL


1-97617
Non
2003-06-19 14:10
2003.06.30
TIniFile -- непонятный глюк


11-97559
VadimSmirnoff
2002-10-15 18:35
2003.06.30
Application.Handle .Handle


1-97711
Rutkovsky
2003-06-18 10:23
2003.06.30
Редакторы свойств





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский