به دست آوردن User جاری سیستم

[test15000]

آیا میشه فهمید الان سیستم با چه user ی لاگین کرده

[BORHAN TEC]

اگر از JCL استفاده می کنید باید یونیت JclSysInfo به فهرست uses اضافه کرده و از تابع GetLocalUserName استفاده کنید.
ولی اگر از JCL استفاده نمی کنید باید از تابع زیر استفاده کنید:
function GetSessionUserName: string;
const
cMaxUserNameLen = 254;
var
vUserNameLen: DWORD;
begin
vUserNameLen := cMaxUserNameLen - 1;
SetLength(Result, cMaxUserNameLen);
GetUserName(PChar(Result), vUserNameLen);
SetLength(Result, vUserNameLen);
end;

[MohsenB]

با سلام

راههای زیادی هست

یه راه ساده استفاده از کامپوننت JvComputerInfoEx از مجموعه JEDI (http://jvcl.sourceforge.net) می باشد

به این صورت :

Caption:= JvComputerInfoEx1.Identification.LocalUserName;

موفق باشید

[lord_viper]

خود یونیت ویندوز تابع داره
GetUserName


procedure TForm1.btn1Click(Sender: TObject);
var
ch:array[0..256]of char;
i:DWORD;
begin
i:=256;
GetUserName(ch,i);
ShowMessage(ch);
end;