如何抓取 user 所登入的 domain , 群組及user中文名稱 ......急急 |
|
尚未結案
|
|
cosin
一般會員   發表：16 回覆：10 積分：5 註冊：2004-11-12 發送簡訊給我 |
|
|
Mickey
版主  發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
|
|
malanlk
尊榮會員 發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
查 Help Windows SDK , GetUserName
var
n :Cardinal;
buf :pchar;
begin
n:=255;
buf:=stralloc(n);
if GetUserName(buf,n) then
result:=strpas(buf)
else
Result:='';
strdispose(buf); //Domain 用 LookupAccountName var
SID: PChar;
szDomain: PChar;
cbDomain, cbSID: Cardinal;
begin
cbDomain:=1;
szDomain:=AllocMem(cbDomain);
cbSID:=1;
SID:=AllocMem(cbSID);
LookupAccountName(PChar(AMachine),PChar(AName),SID,cbSID,szDomain,cbDomain,NameUse);
發表人 - malanlk 於 2005/09/13 10:07:50
|
|
malanlk
尊榮會員 發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
趁中午有空寫完整一點
procedure TForm1.Button1Click(Sender: TObject); var n :Cardinal; buf :pchar; MachineName, UserName: String; SID: PChar; szDomain: PChar; cbDomain, cbSID, cbSIDType: Cardinal; begin n := 255; buf:=stralloc(n); GetUserName(buf,n); UserName := buf; strdispose(buf); n := 255; buf := stralloc(n); GetComputerName(buf,n); MachineName := buf; strdispose(buf); cbDomain := 255; szDomain := AllocMem(cbDomain); cbSID := 255; SID := AllocMem(cbSID); LookupAccountName(PChar(MachineName),PChar(UserName),SID,cbSID,szDomain,cbDomain,cbSIDType); ShowMessage(MachineName #13#10 UserName #13#10 szDomain); FreeMem(szDomain); FreeMem(SID); end;發表人 - malanlk 於 2005/09/13 13:42:09 |
發表時間：2005-08-31 11:28:36
IP:210.66.xxx.xxx 未訂閱
系統時間：2024-06-30 23:18:49
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |