Как узнать в win2000 под каким пользователем работают?

← →
pfar © (2003-02-20 12:16) [0]

← →
Anatoly Podgoretsky © (2003-02-20 12:25) [1]

Пользователь по английски User, имя Name, узнать это по поруски получить, а по английски Get
Думаю тепеть сумеешь составить комбинацию из трех слов, всего 6 комбинай.

← →
pfar © (2003-02-20 12:46) [2]

Все не унывающий Anatoly Podgoretsky

← →
pfar © (2003-02-20 12:57) [3]

function GetCurrentUserName: string;
var
Len: Cardinal; { This will have to be Integer, not cardinal, in Delphi 3. }
begin
Len := 255; { arbitrary length to allocate for username string, plus one for null terminator }
SetLength(Result, Len - 1); { set the length }
if GetUserName(PChar(Result), Len) then { get the username }
SetLength(Result, Len - 1) { set the exact length if it succeeded }
else
begin
RaiseLastWin32Error; { raise exception if it failed }
end;
end;

Вот как помощь выглядет, А вымных тут полно

функция должна возращать тип, вместо функции используй процедуру.

Как узнать в win2000 под каким пользователем работают? Найти похожие ветки