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

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

← →
m-kirill-2003 ©   (2006-10-22 12:08) [0]

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

---

← →
SerJaNT ©   (2006-10-22 12:09) [1]

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


---

← →
Anatoly Podgoretsky ©   (2006-10-22 17:02) [2]

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

---

← →
guav ©   (2006-10-22 17:10) [3]

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

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

---

← →
Leonid Troyanovsky ©   (2006-10-22 18:23) [4]

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

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

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


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

--
Regards, LVT.

---

← →
TUser ©   (2006-10-23 07:48) [5]

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

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

---

← →
Elen ©   (2006-10-23 07:58) [6]

> 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 найти не могу

---

← →
SerJaNT ©   (2006-10-23 08:08) [7]

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

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;



---

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

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



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