Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Как получить имя текущего пользователя в NT сервисе 


Bobr   (2002-01-14 17:50) [0]

Как получить имя текущего пользователя в NT сервисе (т.е. того который сейчас работает в системе 2000, XP). GetUserName возвращает имя пользователя от которого стартован сервис, а мне нужно знать кто сейчас работает в системе?



Crowned   (2002-01-17 11:12) [1]

Выкинь лишнее из этой процедурки, мне лень...
procedure TForm1.HardwareInfo(var ComputerName,UserName,ProcessorType,NumberOfProcessors :string);
var
Size : cardinal;
PRes : PChar;
BRes : boolean;
lpSystemInfo : TSystemInfo;
begin
// Имя компьютера
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetComputerName(PRes, Size);
if BRes then ComputerName := StrPas(PRes);
// Имя пользователя
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetUserName(PRes, Size);
if BRes then UserName := StrPas(PRes);
// Процессор
GetSystemInfo(lpSystemInfo);
// ProcessorType := IntToStr(lpSystemInfo.dwProcessorType);wProcessorArchitecture
ProcessorType := IntToStr(lpSystemInfo.dwProcessorType);
NumberOfProcessors :=IntToStr(lpSystemInfo.dwNumberOfProcessors);
end;



bobr   (2002-01-17 15:07) [2]

Увы и ах, например я вхожу как "bobr", сервис стартован под SYSTEM, и естественно GetUserName возвратит SYSTEM. А мне надо получить именно того, кто вошел в систему (активен на данный момент, т.е. "bobr")




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
3-90779           alexbl                2002-03-04 03:07  2002.03.28  
ListBox


3-90781           Malder                2002-03-03 20:11  2002.03.28  
Как снять GRANT с пользователя ?


14-91050          Дмитрий               2002-02-14 11:48  2002.03.28  
Мистика


1-90932           lightix               2002-03-13 15:11  2002.03.28  
Подскажите, как запустить Excel и передать в него данные?


1-90848           lipskiy               2002-03-16 18:54  2002.03.28  
Memo: как погасить курсор и прокрутить программно.