Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Катунов Юрий © (2008-01-06 10:30:00)
Здравствуйте мастера и с новым 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 в данном случае?

Германн (2008-01-07 00:51:00) [1]
А самая "тупая" ошибка тут:

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

icWasya (2008-01-06 22:25:00) [2]
IoResult + F1

Anatoly Podgoretsky (2008-01-06 18:17:00) [3]
Вот этот завет тебе поможет
http://www.podgoretsky.com/DM/BadWill.html#BW-04

Leonid Troyanovsky (2008-01-06 18:11:00) [4]

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

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

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

--
Regards, LVT.

Dennis I. Komarov (2008-01-06 14:39:00) [5]
Сейчас прочитает, и пароли вытаскивать будет :)

Alarm (2008-01-06 14:24:00) [6]
>Катунов Юрий © (06.01.08 10:30)

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

Virgo_Style (2008-01-06 14:14:00) [7]
Разве в книжках и справке не написано, что именно делает Reset в случае ошибки?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »