Игнорирование кода от совместного доступа к файлу 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

IoResult + F1

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

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

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