ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как узнать учетную запись пользователя, под которой загружена Винда?
6 сообщений из 6, страница 1 из 1
Как узнать учетную запись пользователя, под которой загружена Винда?
    #32075530
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cooper
Участник
Как узнать учетную запись пользователя, под которой загружена Винда? Мот есть какая-нить функция?
...
Рейтинг: 0 / 0
04.12.2002, 12:34
| Ответить | Цитировать | Написать  
Как узнать учетную запись пользователя, под которой загружена Винда?
    #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:39
| Ответить | Цитировать | Написать  
Как узнать учетную запись пользователя, под которой загружена Винда?
    #32075537
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cooper
Участник
Спасибо!
А как узнать имя компа?
...
Рейтинг: 0 / 0
04.12.2002, 12:52
| Ответить | Цитировать | Написать  
Как узнать учетную запись пользователя, под которой загружена Винда?
    #32075558
Mich
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mich
Гость
Лезем в WinAPI хелп, что бы посмотреть, что за функцию посоветовали, параметры и прочее (не будете же Вы вызывать все, что ни попадя?). Там же видим GetComputerName . Или Вы делаете это как-то иначе?
...
Рейтинг: 0 / 0
04.12.2002, 13:16
| Ответить | Цитировать | Написать  
Как узнать учетную запись пользователя, под которой загружена Винда?
    #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:27
| Ответить | Цитировать | Написать  
Как узнать учетную запись пользователя, под которой загружена Винда?
    #32075594
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cooper
Участник
2 ALL
СПАСИБО
...
Рейтинг: 0 / 0
04.12.2002, 13:53
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как узнать учетную запись пользователя, под которой загружена Винда?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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