08-01-2011، 07:45 PM
از این تابع برای گرفتن نام کاربری شخصی که به سیستم لاگین شده است اسفاده می شود:
کد:
function GetUserName : String;
var
pcUser : PChar;dwUSize : DWORD;
begin
FreeMem( pcUser );finallyResult := pcUserif Windows.GetUserName( pcUser, dwUSize ) thendwUSize := 21;GetMem( pcUser, dwUSize );try