Есть у кого-нить пример как получить список пользователей из users.usr?
Если на Дельфе - то просто великолепно будет :)

UsersDef.dll
ТЗ=ОбъектВК.ПолучитьСписокПользователейТЗ(СокрЛП(ПутьКБазе));

Есть на 1С.

(1)Не-а :( Исходник нужен
(2)Исходником - потрашение файла? Давай :)

(3)

Сорри, ошибся. У меня обработка, которая показывает список пользователей, которые работают с базой.

(0)
http://www.itpb.ru/forum4/topic.php?id=1217&page=-1

(5)Спасиб!
В принципе сам уже начал через СОМ хранилище вытаскивать. Ссылка неплохое подспорье :)

На дельфе получилось так:
procedure TForm1.Button3Click(Sender: TObject);
   var Stg:IStorage;
       Strm:IStream;
       OS:TOleStream;
       S:String;
   begin
    OleCheck(StgOpenStorage(PWideChar(WideString(Edit1.Text)),nil,STGM_READWRITE or STGM_SHARE_EXCLUSIVE, nil,0,Stg));
    OleCheck(Stg.OpenStream('Container.Contents',0,STGM_READ or STGM_SHARE_EXCLUSIVE,0,Strm));
    OS:=TOleStream.Create(Strm);
    try
     SetLength(S,OS.Size);
     OS.ReadBuffer(Pointer(S)^,OS.Size);
     finally
     OS.free;
     Strm:=nil;
     Stg:=nil;
    end;

     while POS('Page', S) > 0 do
     begin
       Delete(S, 1, POS('Page', S));
       if POS(',"', S) > 0 then
         begin
         Delete(S, 1, POS(',"', S)+1);
         ListBox1.AddItem(Copy(S, 1, POS('"', S)-1), nil);
         end
     end
   end;

есть готовое решение от смахарбы. поиши по форуму я таким пользвоался.

Поздняк метаться - уже все сделано.
Очередное рукоблудство - прогу сляпал ярлык базы на рабочий стол генерить. А то задолбался ключи вспоминать :)