Pegar os USUÁRIOS que estão acessando os compartilhamentos
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.
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.
Regisjj
Curtidas 0
Respostas
Hamilton Dias
20/05/2003
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;
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;
GOSTEI 0