Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
ВнизGetUserName Найти похожие ветки
← →
DimChan (2003-09-19 12:51) [0]Подскажите как определить имя текущего пользователя (не только в Win 95/98)???
← →
Юрий Федоров (2003-09-19 13:01) [1]Функция такая есть, как называется - см. сабж
← →
clickmaker (2003-09-19 13:09) [2]Первый раз вижу ответ на вопрос в теме вопроса :)
← →
Плохиш_ (2003-09-19 13:15) [3]clickmaker © (19.09.03 13:09) [2]
Не вижу ничего смешного.
The GetUserName function retrieves the user name of the current thread. This is the name of the user currently logged onto the system.
← →
DimChan (2003-09-19 13:25) [4]Ну так что с этим никто не сталкивался?
← →
Alex_x (2003-09-19 13:49) [5]У меня так работает:
Var
Size : cardinal;
PRes : PChar;
BRes : boolean;
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetUserName(PRes, Size);
if BRes then
Ini_F.WriteString("USER", "Name", StrPas(PRes));
А вот как узнать права пользователя?????
может кто знает
← →
DimChan (2003-09-19 13:57) [6]А в 2000-ом тоже Arbeiten?
← →
Плохиш_ (2003-09-19 14:03) [7]Да
← →
DimChan (2003-09-19 14:38) [8]Я извиняюсь но...
[Error]: Undeclared identifier: "Ini_F"
← →
mOOx_ (2003-09-19 14:42) [9]Ты чо, считаешь что мы тут все на расстоянии твой код ощущаем? Ini_F к обсуждению никакого отношения не имеет :[
← →
DimChan (2003-09-19 14:48) [10]Look up to this code...
procedure TForm2.UserName ();
Var
Size : cardinal;
PRes : PChar;
BRes : boolean;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetUserName(PRes, Size);
if BRes then
Ini_F.WriteString("USER", "Name", StrPas(PRes));
end;
← →
mOOx_ (2003-09-19 14:52) [11]Ты чо, считаешь что мы тут все на расстоянии твой код ощущаем? Ini_F к обсуждению никакого отношения не имеет :[
← →
NAlexey (2003-09-19 14:59) [12]Look down this code...
procedure TForm2.UserName ();
var
Res: array [0..MAX_COMPUTERNAME_LENGTH] of Char;
Size: DWORD;
begin
Size := SizeOf(Res);
GetComputerName(Res, Size);
Ini_F.WriteString("USER", "Name", Res);
end;
Да и StrPas провайдет фор бекведс компабилити.
← →
clickmaker (2003-09-19 15:19) [13]Одного не понимаю: если Get UserName, то почему MAX_ COMPUTERNAME_LENGTH ?
Вот рабочий код
procedure WhoAmI;
var
szName: array[0..255] of char;
dwSize: cardinal;
begin
dwSize := SizeOf(szName);
GetUserName(szName, dwSize);
ShowMessage(szName);
end;
← →
Юрий Федоров (2003-09-19 15:20) [14]clickmaker © (19.09.03 15:19) [13]
А почему 255 ? :-)))
← →
clickmaker (2003-09-19 15:23) [15]> Юрий Федоров © (19.09.03 15:20) [14]
Только очень злобный сисадмин может дать пользователю логин > 255 :)))
← →
NAlexey (2003-09-19 15:23) [16]>clickmaker - Одного не понимаю: если GetUserName, то почему MAX_COMPUTERNAME_LENGTH
Точна! Я был неправ...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.009 c