Реестр windows (registry)

[Hershy]

Добрый день.
Подскажет кто-нибудь, как из .vip обратиться к реестру windows
Какие есть функции по этому поводу?
Спасибо заранее!

[cruger]

В Атлантисе нет.

[Magic]

В Атлантисе нет.

Но, ничто не мешает написать для этих целей DLL-ку, например, на паскале.

Вот пример использования DLL в Атлантисе:

Файл exam0501.pas:

Код: Выделить всё

library Exam0501;

  function CalcAge(DBorn: LongInt; CurDate: LongInt): Integer;
  begin
    if DBorn > 0 then
      result := (CurDate - DBorn) div 365
    else
      result := 0;
  end;

exports
  CalcAge index 1 name 'CALCAGE';

begin
end.

Файл exam0501.vip:

Код: Выделить всё

function CalcAge(LongInt, LongInt): Integer; external 'exam0501.dll';

Interface Exam0501 'Пример использования dll';

  view
    as select
      Persons.*,
      CalcAge(LongInt(Persons.BornDate), LongInt(Cur_Date)) (FieldName = PersonAge)
    from
      Persons;

  Browse B1;
    fields
      Persons.FIO 'Фамилия И.О.': [30], Protect;
      Persons.BornDate 'Дата рождения': Protect;
      PersonAge 'Возраст': [7], Protect;
  end;
End.

DLL-ку можно откомпилировать при помощи компилятора DCC32.EXE, который входит в состав Атлантиса (он находится в директории DCC) или же воспользоваться компилятором Delphi.

[Hershy]

Спасибо большое, за dll

Эту тему мы знали, просто надеялись, что в атлантисе есть уже встроенные функции для работы с реестром винды