Текущий архив: 2006.11.05;
Скачать: 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 вся ветка
Текущий архив: 2006.11.05;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.045 c
