получить имя активного пользователя

[SunnyCrash]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 function GetCurrentUserName: string;
 const
   cnMaxUserNameLen = 254;
 var
   sUserName: string;
   dwUserNameLen: DWORD;
 begin
   dwUserNameLen := cnMaxUserNameLen - 1;
   SetLength(sUserName, cnMaxUserNameLen);
   GetUserName(PChar(sUserName), dwUserNameLen);
   SetLength(sUserName, dwUserNameLen);
   Result := sUserName;
 end;



procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetCurrentUserName);
end;

[JUDAS]

SunnyCrash, а теперь попробуй запустить от имени другого пользователя, что покажет?
... мне надо чтобы показало того, кто вошёл в систему

[Stilet]

мне надо чтобы показало того, кто вошёл в систему

А как быть со случаями, когда несколько сеансов активны?

[northener]

Сообщение от JUDAS

Мне нужно чтобы моя программа запускалась от единственного пользователя (например адмиинистратора), а писала в папки с названием пользователя который вошёл в систему.

Не совсем понятно чего ты желаешь? Нужен именно запуск от другого пользователя, но чтобы писалось в папки того пользователя чей рабочий стол сейчас активен? Или всё-таки запуск с правами администратора?
Ибо вроде, как бы, начиная с Висты пользователь даже с правами администратора не имеет прав писать в папки других пользователей. Он ведь всего лишь "старший помощник младшего администратора".

[Пепел Феникса]

а те функции на коорые я указал что вам выдали? или вы не пробовали(там ж нет готового кода)

[Foreseen]

Диспетчер задач то правильно определяет активного пользователя...
Может это как то поможет ТСу? http://ab57.ru/cmdlist/whoami.html (нет, не поможет, тоже определяет имя юзера по getusername)

[Slym]

WTSQuerySessionInformation
поле WTSUserName

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

const
  //  Specifies the current server
  WTS_CURRENT_SERVER_HANDLE = THandle(0);

const
  // WTS_EVENT - Event flags for WTSWaitSystemEvent
  WTS_EVENT_NONE        = $00000000; // return no event
  WTS_EVENT_CREATE      = $00000001; // new WinStation created
  WTS_EVENT_DELETE      = $00000002; // existing WinStation deleted
  WTS_EVENT_RENAME      = $00000004; // existing WinStation renamed
  WTS_EVENT_CONNECT    = $00000008; // WinStation connect to client
  WTS_EVENT_DISCONNECT  = $00000010; // WinStation logged on without client
  WTS_EVENT_LOGON      = $00000020; // user logged on to existing WinStation
  WTS_EVENT_LOGOFF      = $00000040; // user logged off from existing WinStation
  WTS_EVENT_STATECHANGE = $00000080; // WinStation state change
  WTS_EVENT_LICENSE    = $00000100; // license state change
  WTS_EVENT_ALL        = $7fffffff; // wait for all event types
  WTS_EVENT_FLUSH      = DWORD($80000000); // unblock all waiters

type
  //WTS_CONNECTSTATE_CLASS - Session connect state
  WTS_CONNECTSTATE_CLASS = (
    WTSActive,              // User logged on to WinStation
    WTSConnected,          // WinStation connected to client
    WTSConnectQuery,        // In the process of connecting to client
    WTSShadow,              // Shadowing another WinStation
    WTSDisconnected,        // WinStation logged on without client
    WTSIdle,                // Waiting for client to connect
    WTSListen,              // WinStation is listening for connection
    WTSReset,              // WinStation is being reset
    WTSDown,                // WinStation is down due to error
    WTSInit);              // WinStation in initialization


  PWTS_SESSION_INFO = ^WTS_SESSION_INFO;
  WTS_SESSION_INFO = record
    SessionId: DWORD;              // session id
    pWinStationName: LPSTR;        // name of WinStation this session is connected to
    State: WTS_CONNECTSTATE_CLASS; // connection state (see enum)
  end;

  WTS_INFO_CLASS = (
    WTSInitialProgram,
    WTSApplicationName,
    WTSWorkingDirectory,
    WTSOEMId,
    WTSSessionId,
    WTSUserName,
    WTSWinStationName,
    WTSDomainName,
    WTSConnectState,
    WTSClientBuildNumber,
    WTSClientName,
    WTSClientDirectory,
    WTSClientProductId,
    WTSClientHardwareId,
    WTSClientAddress, //Returns pointer to a WTS_CLIENT_ADDRESS - structure
    WTSClientDisplay,
    WTSClientProtocolType);

  PWTS_CLIENT_ADDRESS = ^WTS_CLIENT_ADDRESS;
  WTS_CLIENT_ADDRESS = record
    AddressFamily: DWORD;          // AF_INET, AF_IPX, AF_NETBIOS, AF_UNSPEC
    Address: array [0..19] of BYTE; // client network address
  end;

const
  AF_INET      = 2; // internetwork: UDP, TCP, etc.
  AF_NS        = 6; // XEROX NS protocols
  AF_IPX      = AF_NS; // IPX protocols: IPX, SPX, etc.
  AF_NETBIOS  = 17; // NetBios-style addresses
  AF_UNSPEC    = 0; // unspecified
const
  wtsapi = 'wtsapi32.dll';
  Kernel = 'Kernel32.dll';

  function WTSWaitSystemEvent(hServer: THandle;
                              EventMask: DWORD;
                              var pEventFlags: DWORD): BOOL; stdcall;external wtsapi name 'WTSWaitSystemEvent';

  function WTSEnumerateSessions(hServer: THandle;
                                Reserved: DWORD;
                                Version: DWORD;
                                var ppSessionInfo: PWTS_SESSION_INFO;
                                var pCount: DWORD): BOOL; stdcall;external wtsapi name 'WTSEnumerateSessionsA';

  function WTSQuerySessionInformation(hServer: THandle;
                                      SessionId: DWORD;
                                      WTSInfoClass: WTS_INFO_CLASS;
                                      var ppBuffer: Pointer;
                                      var pBytesReturned: DWORD): BOOL; stdcall; external wtsapi name 'WTSQuerySessionInformationA';

  procedure WTSFreeMemory(pMemory: pointer); stdcall;external wtsapi name 'WTSFreeMemory';

  function ProcessIdToSessionId(dwProcessId: DWORD; var pSessionId: DWORD): BOOL; stdcall;external Kernel name 'ProcessIdToSessionId';

Function GetSessionUserName: String;
Var BufSize: Cardinal;
    pBuf: PChar;
    pSessionId : DWORD;
Begin
  ProcessIdToSessionId(GetCurrentProcessId(), pSessionId);
  if WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, pSessionId, WTSUserName, Pointer(pBuf), BufSize) then
  try
    SetString(result,pBuf,BufSize);
  finally
    WTSFreeMemory(pBuf);
  end;
end;

begin
  writeln(GetSessionUserName);
  readln;
end.

[JUDAS]

Господин Slym, огромнейшая Вам благодарность за рабочий пример.
То что надо ! Пусть Господь дарит Вами здоровье !
п.с. репутации +

Тема себя исчерпала, но пусть висит для информации. На эту тему очень мало внятных ответов у гражданина Гула Яндеска Рамлеровича, все советуют проверять запуск explorer-а

Не совсем понятно чего ты желаешь? Нужен именно запуск от другого пользователя, но чтобы писалось в папки того пользователя чей рабочий стол сейчас активен?

Поясняю предназначение приложения.
Есть доменная сеть, в которой на каждом рабочем месте может сидеть любой человек с определёнными правами. Есть приложение, которое выполняет роль программы-аналог uvScreenCamera. видео объективный контроль рабочих мест. Задача, сделать так, чтобы видеофайлы которые сливаются каждые 10 минут на диск... допустим D, были доступны администраторам доменной сети, и не были доступным никому другому (ну чтобы пользователь не стёр ролики как он смотрел в рабочее время "порнуху" )

Решение:
Доменный админ, прописывает моему приложению особый статус и запускает его от минеи доменного админа. Приложением может лазить в папку-хранилище, может там создавать файлы, писать в них и т п. Приложение запускается всегда од одного имени VideoAdmin с особыми правами. Теперь, приложению нужно определить в какую именно папку в хранилище писать, Для каждого юзера создаётся своя папка. Так вот, чтобы узнать имя юзера стартанувшего по автозапуску моё приложение мне нужно было узнать кто зашёл в систему. Папка формируется в формате USER_IP. Например JUDAS_666.666.666.666

[Аватар]

Задрали пользователей. Даже порнуху нельзя беднягам посмотреть на работе

[JUDAS]

Про порнуху утрирую. Суть, видеть что пользователь клацает на специализированных АРМ, чтобы потом, когда начинаются разборки, пользователь не включал дурачка мол "я не понимаю как моя фамилия оказалась в объективном контроле базы данных, наверное в это время я ходил(ходила) кушать или писять". С этой программой, которая параллельно пишет содержимое РМ + параллельно с веб камеры (окно в окне) сразу восстанавливается память и логика понимания.
п.с. а работа у нас такая, что за косяк можно загреметь от 5 до 8-ми