Pegar os USUÁRIOS que estão acessando os compartilhamentos

20/05/2003

1

Senhores,

Preciso de uma Rotina / Componente ou similar, ou mesmo uma forma de se implementar, que identifique todo os usuários que estão usando os compartilhamentos da máquina onde o programa está rodando.

Se algúem puder me ajudar de alguma forma fico grato.


Responder

Posts

20/05/2003

Hamilton Dias

procedure TfrmRede.GetUsers(UserList: TStrings);
var
TmpCursor: hDbiCur;
rslt: dbiResult;
UsrDesc: USERDesc;
begin
UserList.Clear;
Check(DbiOpenUserList(TmpCursor));
try
repeat
Rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);
if Rslt <> DBIERR_EOF then UserList.Add(UsrDesc.szUserName);
until Rslt <> DBIERR_NONE;
finally
Check(DbiCloseCursor(TmpCursor));
end;
end;


procedure TfrmRede.btnAtuClick(Sender: TObject);
begin
ListBox1.Items.Clear;
GetUsers(ListBox1.Items);
ListBox1.Refresh;
end;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira