| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Имя пользователя

m-kirill-2003 ©   (2006-10-22 12:08:00) 

При открытии формы значение поля edit должно быть равно имени пользователю, под которым вошли в систему... Кто знает?

---

SerJaNT   (2006-10-23 08:08:00) [1]

Не тот код дал. Вот рабочий:

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;



---

Elen   (2006-10-23 07:58:00) [2]

> SerJaNT ©   (22.10.06 12:09) [1]
>
> function GetCurrentUser: string;
> var
>  pwrec: PPasswordRecord;
> begin
>  pwrec := getpwuid(getuid);
>  Result := pwrec.pw_name;
> end;


Excuse me please. Не подскажете ли откуда эти функции и типы, из каких модулей, а то я в хелпе SDK найти не могу

---

TUser   (2006-10-23 07:48:00) [3]

Что должно быть, если я запущу твою программу командой runas или еще как под другим пользователем?

The GetUserName function retrieves the user name of the current thread. This is the name of the user currently logged onto the system.

---

Leonid Troyanovsky   (2006-10-22 18:23:00) [4]

> guav ©   (22.10.06 17:10) [3]

> > Бить будешь?

> А разве пользователей бьют по учётной записи ? :-)


Случается, что и ниже.

--
Regards, LVT.

---

guav   (2006-10-22 17:10:00) [5]

> [2] Anatoly Podgoretsky ©   (22.10.06 17:02)
> Бить будешь?

А разве пользователей бьют по учётной записи ? :-)

---

Anatoly Podgoretsky   (2006-10-22 17:02:00) [6]

Много кто знает, а тебе зачем их имена? Бить будешь?

---

SerJaNT   (2006-10-22 12:09:00) [7]

function GetCurrentUser: string;
var
 pwrec: PPasswordRecord;
begin
 pwrec := getpwuid(getuid);
 Result := pwrec.pw_name;
end;


---

Наверх