Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Молодые шлюхи Коврова 2020 извлекают у вас готовность насладиться с ними групповым сексом? На этом веб-ресурсе https://prostitutkikovrova2020.com/molodye/ вы осведомитесь с самым большим выбором самых самых распрекрасных проституток.
Delphi - База Знаний: Упаковать *.mdb-файл
uses comobj;
function CompactAndRepair(db: string): boolean; {db = path to access database}
var
v: olevariant;
begin
result := true;
try
v := createoleobject('jro.jetengine');
try
v.compactdatabase('provider=microsoft.jet.oledb.4.0;data source=' + db,
'provider=microsoft.jet.oledb.4.0;data source=' + db + 'x;jet oledb:engine type=5');
deletefile(db);
renamefile(db + 'x', db);
finally
v := unassigned;
end;
except
result := false;
end;
end;
