如何获取当前进程的执行用户名? ( 积分: 200 )

mosker · 2005-05-12

如题,想写一个程序获取程序运行的用户名,就象win2000 xp中的任务管理器一样可以察看哪个进程是哪个用户运行的,看了很多资料也没有解决,请高人给点思路最好是代码,本人送上200分.

mosker · 2005-05-12

如题,想写一个程序获取程序运行的用户名,就象win2000 xp中的任务管理器一样可以察看哪个进程是哪个用户运行的,看了很多资料也没有解决,请高人给点思路最好是代码,本人送上200分.

yf_zq · 2005-05-12

//取得当前登陆系统的用户 procedure TForm1.Button1Click(Sender: TObject); Var  lpBuffer :Array[1..64] of Char;  nSize    :Cardinal;  sUserName : String; Begin  nSize := 64;  GetUserName(@lpBuffer, nSize);  sUserName := lpBuffer;  sUserName := Copy(sUserName, 1, nSize-1);  Edit1.Text := sUserName; end;

mosker · 2005-05-12

我不是要获取当前登陆的用户,我是要获取当前所有进程中运行的程序的用户名.比如你看任务管理器里面所有进程,有的程序的用户是administrat,有的是system,有的有是local service 等等,我就是要获取任何一正在运行的程序的用户名.有什么办法吗?

andy263 · 2005-05-12

参考下这贴 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1938095

mosker · 2005-05-12

来自：wfzha, 时间：2003-6-13 20:02:00, ID：1950632 上面的例子中用到了GetCurrentProcess函数取得当前进程的句柄，然后调用 OpenProcessToken打开当前进程的访问令牌 通过GetTokenInformation的参数中有一个TokenInformationClass得东东，它里面有一个TOKEN_OWNER structure 它可以返回owner的sID 通过LookupAccountSid函数返回用户信息 API是这么说的，我的E文不好，不知看得对不对，反正我是没试过 上面虽然讲了过程,但是没有具体的东西,那些API不会用,所以请会的朋友帮个忙写点代码.

YuZi · 2005-05-13

分给我吧，我正好要用分，呵呵。。。 //取进程所属的用户名和域，ｘｐ+DELPHI7下成功 function GetUserAndDomainFromPID(ProcessId: DWORD;  var User, Domain: string): Boolean; var  hToken: THandle;  cbBuf: Cardinal;  ptiUser: PTOKEN_USER;  snu: SID_NAME_USE;  ProcessHandle: THandle;  UserSize, DomainSize: DWORD;  bSuccess: Boolean; begin  Result := False;  ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId);  if ProcessHandle <> 0 then  begin    if OpenProcessToken(ProcessHandle, TOKEN_QUERY, hToken) then    begin      bSuccess := GetTokenInformation(hToken, TokenUser, nil, 0, cbBuf);      ptiUser  := nil;      while (not bSuccess) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) do      begin        ReallocMem(ptiUser, cbBuf);        bSuccess := GetTokenInformation(hToken, TokenUser, ptiUser, cbBuf, cbBuf);      end;      CloseHandle(hToken);      if not bSuccess then      begin        Exit;      end;      UserSize := 0;      DomainSize := 0;      LookupAccountSid(nil, ptiUser.User.Sid, nil, UserSize, nil, DomainSize, snu);      if (UserSize <> 0) and (DomainSize <> 0) then      begin        SetLength(User, UserSize);        SetLength(Domain, DomainSize);        if LookupAccountSid(nil, ptiUser.User.Sid, PChar(User), UserSize,          PChar(Domain), DomainSize, snu) then        begin          Result := True;          User := StrPas(PChar(User));          Domain := StrPas(PChar(Domain));        end;      end;      if bSuccess then      begin        FreeMem(ptiUser);      end;    end;    CloseHandle(ProcessHandle);  end; end;

lichengbin · 2005-05-13

好象漏了点，PTOKEN_USER的定义没有。[

] type  PTOKEN_USER = ^TOKEN_USER;  _TOKEN_USER = record                  User: TSidAndAttributes;                end;  TOKEN_USER = _TOKEN_USER; 借花献佛，改动一点点。 function GetUserAndDomainFromPID(ProcessId: DWORD;  var User, Domain: string): Boolean; var  hToken: THandle;  cbBuf: Cardinal;  ptiUser: PSIDAndAttributes;  snu: SID_NAME_USE;  ProcessHandle: THandle;  UserSize, DomainSize: DWORD;  bSuccess: Boolean; begin  Result := False;  ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId);  if ProcessHandle <> 0 then  begin    if OpenProcessToken(ProcessHandle, TOKEN_QUERY, hToken) then    begin      bSuccess := GetTokenInformation(hToken, TokenUser, nil, 0, cbBuf);      ptiUser  := nil;      while (not bSuccess) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) do      begin        ReallocMem(ptiUser, cbBuf);        bSuccess := GetTokenInformation(hToken, TokenUser, ptiUser, cbBuf, cbBuf);      end;      CloseHandle(hToken);      if not bSuccess then Exit;      UserSize := 0;      DomainSize := 0;      LookupAccountSid(nil, ptiUser.Sid, nil, UserSize, nil, DomainSize, snu);      if (UserSize <> 0) and (DomainSize <> 0) then      begin        SetLength(User, UserSize);        SetLength(Domain, DomainSize);        if LookupAccountSid(nil, ptiUser.Sid, PChar(User), UserSize,          PChar(Domain), DomainSize, snu) then        begin          Result := True;          User := StrPas(PChar(User));          Domain := StrPas(PChar(Domain));        end;      end;      FreeMem(ptiUser);    end;    CloseHandle(ProcessHandle);  end; end;

mosker · 2005-05-13

呵呵,好的谢谢,等我测试下行了马上给分.

mosker · 2005-05-13

多谢拉,[

] 调试通过!

mosker · 2005-05-13

晕拉,分给错了,! YuZi应该是150分,晕了,没关系我重新开一个贴给你吧. 请进: http://www.delphibbs.com/delphibbs/dispq.asp?lid=3072492

mosker · 2005-05-13

andy263,还分来!!![

]

如何获取当前进程的执行用户名? ( 积分: 200 )

mosker

Unregistered / Unconfirmed

mosker

Unregistered / Unconfirmed

yf_zq

Unregistered / Unconfirmed

mosker

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

mosker

Unregistered / Unconfirmed

YuZi

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

mosker

Unregistered / Unconfirmed

mosker

Unregistered / Unconfirmed

mosker

Unregistered / Unconfirmed

mosker

Unregistered / Unconfirmed

Similar threads