..: رقص دانش :..

Get the username and computer name from a computer

function  GetWindowsUserName : string;
const
  cnMaxLen=254;
var
  dwUserNameLen : DWord;
begin
  dwUserNameLen:=cnMaxLen-1;
  SetLength(sUserName, cnMaxLen);

  GetUserName(@Result[1], dwUserNameLen);
  SetLength(Result, dwUserNameLen - {null term} 1 );
  if dwUserNameLen=cnMaxLen-1 then
    SetLength(Result,0);
end;

+ نوشته شده در چهاردهم بهمن 1385ساعت توسط حسین |

فهرست اصلي

صفحه نخست
پست الكترونيك
آرشيو مطالب

آرشيو مطالب