Процессы и их создатели

[alekola]

function GetNamebySID(destSystem: PChar; sid: PSID):PChar;
var
  _userName : PChar;
  _Domain: PChar;
  _Needed : DWORD;
  _DomLen : DWORD;
  _use  : SID_NAME_USE;
begin
  Result := 0;
  _Needed := 0;
  _DomLen := 0;
  LookupAccountSid(destSystem, sid, 0, _Needed, 0, _DomLen,  _use);

  if GetLastError() = ERROR_INSUFFICIENT_BUFFER then
   begin
    Result := HeapAlloc(GetProcessHeap(), 0, _Needed);
    _Domain:= GetMemory(_DomLen);
    LookupAccountSid(destSystem, sid, Result, _Needed, _Domain, _DomLen, _use);
    FreeMemory(_Domain);
   end;
end;

function GetProcessUserName(Process:THandle):PChar;
var
  _Token:THandle;
  _Info:PTOKEN_USER;
  _Needed:DWORD;
begin
  Result:=0;
  if not OpenProcessToken(Process, TOKEN_QUERY, _Token) then exit;
  _Needed:=0;
  GetTokenInformation(_Token, TokenUser, 0, 0, _Needed);
  if GetLastError() = ERROR_INSUFFICIENT_BUFFER then
   begin
    _Info := HeapAlloc(GetProcessHeap(), 0, _Needed);
    if GetTokenInformation(_Token, TokenUser, _Info, _Needed, _Needed) then
     Result:=GetNamebySID(0, _Info^.User.Sid);
    HeapFree(GetProcessHeap(),0, _Info);
   end;
end;

Вот нашел функцию, но разобраться не могу при компиляции ошибка где то в месте выделенным красным.
Но задача в целом вот в чем...у меня каждую ночь программа делает бэкапы, но к сожалению она бессильна когда приложение открыто хотя бы у одного из пользователей терминального сервера, так вот мне нужно получать информацию о том кем запущен висящий процесс(чтобы карать тех кто забыл выключить), подскажите пожалуйста решение

[veniside]

а не проще переписать приложение так, чтобы файлы создавались/открывались с FILE_SHARE_READ? Тогда бэкап без проблем сможет их прочитать.

[alekola]

извиняюсь что сразу не дополнил, бэкапится не мое приложение, а 1ски

[veniside]

может тогда его (процесс) проще прибить?

[alekola]

Если прибивать процесс то слишком увеличивается вероятность повреждения базы =\

[veniside]

А если ему нежно послать сообщение WM_QUIT? Или программно нажать пункт меню File - Exit?
Имхо, это будет эффективней, чем вывешивать имена нерадивых юзеров на доску позора.

[alekola]

Эм, а есть какие то нюансы? или просто ищю в цикле по имени процеса - аккуратно выхожу.
И все таки как определить имя пользователя запустившего процесс, тоже хотелось бы узнать

[veniside]

попробуйте поменять проблемную строчку на такую:

  _Info: ^TOKEN_USER;

после этого код по крайней мере компилится. Рабоатает он или нет, хз.