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

Как получить имя текущего пользователя на компе?   Найти похожие ветки 

← →
TStas ©   (2007-01-25 22:47) [0]

Вот и весь сабж

---

← →
Dmitrij_K   (2007-01-25 22:48) [1]

как ни странно
GetUserName()

---

← →
Anatoly Podgoretsky ©   (2007-01-25 22:51) [2]

> TStas  (25.01.2007 22:47:00)  [0]

Получить Пользователя Имя - только по английски.
Вот и весь ответ.

---

← →
TStas ©   (2007-01-25 22:52) [3]

Только Дельфи пишут, что не достаточно параметров:(

---

← →
Anatoly Podgoretsky ©   (2007-01-25 22:53) [4]

> TStas  (25.01.2007 22:52:03)  [3]

Ну так добавь.

---

← →
Apachi   (2007-01-25 22:54) [5]

function TMainForm.GetUserFromWindows: string;
var
 UserName : string;
 UserNameLen : Dword;
begin
 UserNameLen := 255;
 SetLength(userName, UserNameLen);
 if GetUserName(PChar(UserName), UserNameLen) then
   Result := Copy(UserName,1,UserNameLen - 1)
 else
   Result := "Unknown";
end;

---

← →
B.B. ©   (2007-01-25 23:51) [6]

> Apachi  

Зачем доп. переменная UserName ?
Можно использовать сразу строковую переменную Result

---

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

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



Память: 0.46 MB
Время: 0.046 c