[Amin_Mansouri]

از این تابع برای گرفتن نام کاربری شخصی که به سیستم لاگین شده است اسفاده می شود:

کد:

function GetUserName : String;
var




pcUser : PChar;dwUSize : DWORD;
begin














FreeMem( pcUser );finallyResult := pcUserif Windows.GetUserName( pcUser, dwUSize ) thendwUSize := 21;GetMem( pcUser, dwUSize );try