| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как программно удалить master-пароль Paradox-таблицы ? [D6, Paradox]

_Вован ©   (2006-02-09 12:10:00) 

Актуальный пароль известен.

---

_Вован   (2006-02-10 16:49:00) [1]

Уже сам нашёл :) Если кому интересно, вот:

var
 db: TDatabase;
 Desc: CRTblDesc;
begin
 db := Table1.OpenDatabase;
 FillChar(Desc, SizeOf(Desc), #0);
 StrCopy(Desc.szTblName, PChar(Table1.TableName));
 StrCopy(Desc.szTblType, szParadox);
 StrCopy(Desc.szPassword, '');
 Desc.bProtected := TRUE;
 Check(DbiDoRestructure(db.Handle, 1, @Desc, nil, nil, nil, FALSE));
end;

---

Наверх