Текущий архив: 2005.12.04;
Скачать: CL | DM;

Вниз

имя пользователя   Найти похожие ветки 

← →
syte_ser78 ©   (2005-11-16 15:40) [0]

как определить имя пользователя от которого запущенна программа?

---

← →
Eraser ©   (2005-11-16 15:44) [1]

> syte_ser78 ©   (16.11.05 15:40)

GetUserName

---

← →
serko ©   (2005-11-16 22:22) [2]

Function 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;

---

← →
syte_ser78 ©   (2005-11-18 09:02) [3]

serko ©   (16.11.05 22:22) [2]
фигню какуюто возвращает

---

← →
syte_ser78 ©   (2005-11-18 09:06) [4]

syte_ser78 ©   (18.11.05 9:02) [3]
прошу прощения!
Все ОК!
Допустил такую ошибку что и писать стыдно.
Спасибо!

---

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

Текущий архив: 2005.12.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.035 c