Скачать: CL | DM;

Игнорирование кода от совместного доступа к файлу Windows XP   Найти похожие ветки 

← →
Катунов Юрий ©   (2008-01-06 10:30) [0]

Здравствуйте мастера и с новым 2008 годом. Пусть всё у вас будет коллеги. -))
Я тут сэмитировала совместный доступ к файлу на примере файла sam.
Вот такой вот код......
procedure TForm1.Button1Click(Sender: TObject);
var
 f: TextFile;
 s: string;
begin
 s := "C:\WINDOWS.0\system32\config\sam";
     AssignFile(f, s);
     try
       try
         Reset(f);
       except
         exit;
       end;
     finally
       CloseFile(f);
     end;
end;
На ура работает в Windows98 и в WindowsME, а в WindowsXP - не хочет. Как игнорировать ошибки I/O 32 и I/O 103 в данном случае?

---

← →
Virgo_Style ©   (2008-01-06 14:14) [1]

Разве в книжках и справке не написано, что именно делает Reset в случае ошибки?

---

← →
Alarm ©   (2008-01-06 14:24) [2]

>Катунов Юрий ©   (06.01.08 10:30)

А где ты в Windows98 и в WindowsME нашел (или нашла, судя по "Я тут сэмитировалА") файлы SAM?

---

← →
Dennis I. Komarov ©   (2008-01-06 14:39) [3]

Сейчас прочитает, и пароли вытаскивать будет :)

---

← →
Leonid Troyanovsky ©   (2008-01-06 18:11) [4]

> Катунов Юрий ©   (06.01.08 10:30)  

> Как игнорировать ошибки I/O 32 и I/O 103 в данном случае?

Надо протяжно произнести "ээх.." и взмахнуть рукой.

--
Regards, LVT.

---

← →
Anatoly Podgoretsky ©   (2008-01-06 18:17) [5]

Вот этот завет тебе поможет
http://www.podgoretsky.com/DM/BadWill.html#BW-04

---

← →
icWasya ©   (2008-01-06 22:25) [6]

IoResult + F1

---

← →
Германн ©   (2008-01-07 00:51) [7]

А самая "тупая" ошибка тут:

>      finally
>        CloseFile(f);
>      end;
>

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c