Pegar os USU�RIOS que est�o acessando os compartilhamentos

Question

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� rod...

Hamilton Dias · Answer

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;