Скачать: CL | DM;

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

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

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

---

← →
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;

---

← →
pfar ©   (2003-02-20 13:01) [4]

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

---

← →
Amit ©   (2003-02-20 13:12) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c