Список пользователей Windows

Здравствуйте! Скажите пожалуйста, какая API функция вызывается, когда в диспетчере задач, на вкладке пользователи, выводится список активных пользователей Windows? Пробовал разобрать taskmgr.exe, но ничего не получилось... =( Заранее благодарен...

 

Все сам нашел... =) Вот если кому нужно...

var
GetUserNameEx: function (NameFormat: Dword; szName: PWideChar; var Size: Integer): BOOL; stdcall = nil;
hSecur32: THandle = 0;

const
NameUnknown = 0;
NameFullyQualifiedDN = 1;
NameSamCompatible = 2;
NameDisplay = 3;
NameUniqueId = 6;
NameCanonical = 7;
NameUserPrincipal = 8;
NameCanonicalEx = 9;
NameServicePrincipal = 10;
NameDnsDomain = 12;

function GetUserName(NameFormat: DWORD): WideString;
var
sz: Integer;
begin
if @GetUserNameEx = nil then
begin
hSecur32 := LoadLibrary('Secur32.dll');
if hSecur32 <> 0 then
begin
@GetUserNameEx := GetProcAddress(hSecur32, 'GetUserNameExW');
end;
if @GetUserNameEx = nil then
@GetUserNameEx := Pointer(-1);
end;
if @GetUserNameEx <> Pointer(-1) then
begin
sz := 0;
GetUserNameEx(NameFormat, nil, sz);
SetLength(Result, sz+1);
GetUserNameEx(NameFormat, PWideChar(Result), sz);
end else
Result := 'Неизвестное имя';
end;

 

ужасный код.
и не вижу тут списка =\
не, ты ошибся.

 

А мне тоже интересно. Как же узнать их и PW на вход как вытащить?

 

тихон (с47) писал пару лет назад хороший вариант.

 

А это кто?

 

ну вы поездец прямо, где вы были в 2оо5м?
Silent Assasin47 из бывшего с47, кароче найду тогда, сам выложу.

 

не пугайся это дельфи

а воабще читаем http://wasm.ru/forum/viewtopic.php?id=26993 и идём с этого форума лесом

 

я на нём vx три года писал .))
под конец даже неплохой vx пошёл, но делфи стал мне тесен и я перескочил на си.

 

Comer_

У меня в тот год компа не было.