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

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

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

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

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;

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