Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как узнать учетную запись пользователя, под которой загружена Винда? / 6 сообщений из 6, страница 1 из 1
04.12.2002, 12:34
    #32075530
Cooper
Cooper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать учетную запись пользователя, под которой загружена Винда?
Как узнать учетную запись пользователя, под которой загружена Винда? Мот есть какая-нить функция?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2002, 12:39
    #32075533
hDrummer
hDrummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать учетную запись пользователя, под которой загружена Винда?
GetUserName()

что-то типа того

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
function myGetUserName;
var
 buf   :array [ 0 .. 255 ] of Char;
 nSize :dword;
 uName :string;
begin
 nSize:= 256 ;
 if GetUserName(@buf, nSize) then
 begin
  uName:=buf;
 end else uName:='Unknown';
 Result:=uName;
end;//fnc
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2002, 12:52
    #32075537
Cooper
Cooper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать учетную запись пользователя, под которой загружена Винда?
Спасибо!
А как узнать имя компа?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2002, 13:16
    #32075558
Mich
Mich
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать учетную запись пользователя, под которой загружена Винда?
Лезем в WinAPI хелп, что бы посмотреть, что за функцию посоветовали, параметры и прочее (не будете же Вы вызывать все, что ни попадя?). Там же видим GetComputerName . Или Вы делаете это как-то иначе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2002, 13:27
    #32075570
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать учетную запись пользователя, под которой загружена Винда?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
//Имя компьютера
function GetComputerName: string;
var Ch :PChar;
{$IFDEF VER100} { Borland Delphi  3 . 0  }
    Size :Integer;
{$ELSE}
    Size :Cardinal;
{$ENDIF}
begin
  Size := MAX_COMPUTERNAME_LENGTH +  1 ;
  Ch := StrAlloc(Size);
  Windows.GetComputerName (Ch, Size);
  Result := StrPas (Ch);
  StrDispose (Ch)
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2002, 13:53
    #32075594
Cooper
Cooper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать учетную запись пользователя, под которой загружена Винда?
2 ALL
СПАСИБО
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как узнать учетную запись пользователя, под которой загружена Винда? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]